|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 14:12 Uhr (1)
Soooo jetzt funzt es xDSub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSel = oDraw.SelectionCATIA.HSOSynchronized=FalseoSel.Search "CATDrwSearch.DrwText.Name=Kanten, all"For n = 1 to oSel.CountSet oText = oSel.Item(n).ValueoText.Text = "Edges Broken"NextoSel.ClearCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 17:02 Uhr (1)
Jetzt versuche ich die Blattendung anzupassen, falls sich aufdem Sheet im Backround das entsprechende Deteil befindet.Das Makro erwartet aber einen weiteren Befehl und kein End Sub?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oPara = oDraw.ParametersSet oSheets = oDraw.SheetsqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = qSheets.Item(i).IsDetailIf IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch.DrwDetail.N ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 22:35 Uhr (1)
Hi habe ich bei mir auch immer nur hier muss man es immer manuellnochmal machen. Also ich find den Fehler einfach nicht...Vielleicht habe ich auch wieder was vermischt oder so oOSub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For i = 1 To oSel.Count IsDetail = oSel.Item(i).IsDetail If IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 09.05.2015 um 10:35 Uhr (1)
Oh ja des is eindeutig n schnitzer gewesen xDAlso ich rate mich grad nur durch ka. Habe es jetzt umgestellt und jetztkommt ständig eine Fehlermeldung bei If oSel 0 Then oOIst der Suchbefehl vllt falsch?!Code:Sub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For s = 1 to oSheets.Count IsDetail = oSheets.Item(s).IsDetail If IsDetail = False Then Set active_sheet = oSheets.Item(s) ac ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 10.05.2015 um 18:33 Uhr (1)
Also ich habe jetzt viele Versionen ausprobiert und das Ergebnis ist immer das selbe. Das Makro läuft eindeutig über die normalen Sheetsdrüber aber es passiert rein gar nichts mit dem Namen.Die Makroaufzeichnung liefert absolut nichts außer wenn ich z.B. inden Backround gehe...Der VB-Editor läuft ohne zu meckern durch...so der Stand:Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSheets = oDraw.SheetsSet oSel = oDraw.SelectionqSheets = oSheets.Count For i = 1 To qSheets IsDetail = oSheets.Item(i).I ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen egal ob CatPart oder Product
Jürgen W am 11.05.2015 um 08:55 Uhr (1)
Hallo zusammenich möchte mir eine einfache Routine (VB.Net) schreiben, die die Parameter aus dem aktiven Objekt ausliest. Dabei soll es egal sein, ób es ein CatPart, Product oder auch eine DrawingDocument ist.Bisher habe ich immer den Type ermittelt und dann die Parameter ausgelesen.Kann ich das Ganze auch so schreiben, dass egal was vorliegt - also ohne diese Fallunterscheidung - die Parameter ausgelesen werden.SO ist das aktuell Public globPartDocument As PartDocument Public globCurPart As Part Public gl ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 11.05.2015 um 16:09 Uhr (1)
Ich habe es jetzt mal so geprüft und es wird definitiv keinekomponente gefunden...Code:Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSheets = oDraw.SheetsSet oSel = oDraw.SelectionqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = oSheets.Item(i).IsDetailIf IsDetail = False Then Set active_sheet = oSheets.Item(i) oSel.Clear osel.add active_sheetoSel.Search "CATDrwSearch.DrwDitto.Name=A0-Brennteil-Stempel*, sel"If oSel.Count 0 ThenRetCode = MsgBox( "Fund")End IfoSel.Search "CATD ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Projekt kann nicht speichern
tubuibam am 12.05.2015 um 11:20 Uhr (1)
Hallo,1)manchmal ist der Save Button in dem VBA Editor bei mir nicht aktiv (der ist grau, und kann man nicht drücken)2)Außerdem habe ich ein "Gefühl", dass allein das speichern in VBA Editor ist nicht sicher, also man muss CATIA schließen, damit das in VBA Editor gespeichert richtig da ist.Z.B ich habe etwas in VBA gespeichert, danach stürzt mein CATIA ab, dann ist diese Sache nach dem neu Öffnen von CATIA wieder weg.Hat jemand Idee für 1), und ob 2) stimmt?Ich bedanke mich auf jeder Hilfe. Allein das Spei ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Projekt kann nicht speichern
moppesle am 12.05.2015 um 11:37 Uhr (1)
Hallo tubuibamZitat:1)manchmal ist der Save Button in dem VBA Editor bei mir nicht aktiv (der ist grau, und kann man nicht drücken)Wenn eine andere Catiasitzung geöffnet ist (mit VBA-Fenster offen) funzt das nicht.Vielleicht ist es ja das.Zitat:Z.B ich habe etwas in VBA gespeichert, danach stürzt mein CATIA ab, dann ist diese Sache nach dem neu Öffnen von CATIA wieder weg.Da ist wohl beim speichern schon etwas schief gelaufen. Desahlb auch der Absturz. Dann kann ja auch nicht alles wieder da sein was dzu v ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen egal ob CatPart oder Product
ptit.tom am 12.05.2015 um 14:10 Uhr (1)
Guten Tag,Ich vermute, dass es nicht möglich ist. Die Sammlung Parameters befindet sich in Objekte, die nicht viel miteinander zu tun haben (part / Product / Drawing).Was gefällt Ihnen an der Version mit Case nicht ? Man kann es etwas kompakter schreiben:Code:Public CATIA As Application Sub Main() Try CATIA = System.Runtime.InteropServices.Marshal.GetActiveObject("CATIA.Application") Catch ex As Exception Exit Sub End Try If CATIA.Documents.Count() = 0 Then Exit Sub Dim MyParamete ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Gewählte Punkte
tubuibam am 12.05.2015 um 15:32 Uhr (1)
Hallo,ich habe ein Makro geschrieben, wenn wir die Punkte gewählt haben, werden ihrer Koordinaten bemerkt, und etwas gearbeitet.1)Meine Frage ist, ob die gewählte Punkte eine Fähnchen, oder ein Marken in 3d Model bekommen kann, damit man weiß, welche Punkt man gewählt hat?2) Weitere Frage ist, am Ende dieses Wahlvorgang, habe ich ein Form erstellt, quasi ein Vorschau mit Information von den gewählten Punkten. Dieser Form ist aber fest in der Vordergrund, und man kann nicht zu 3D Model Fenster wechseln, dam ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 12.05.2015 um 17:07 Uhr (1)
Was meinst du mit manueller suche?!Wenn ich aufzeichnen lass und zum den Namen unter Properties änderedann kommt nur sowas:Code:Language="VBSCRIPT"Sub CATMain()Set drawingDocument1 = CATIA.ActiveDocumentSet drawingSheets1 = drawingDocument1.SheetsSet drawingSheet1 = drawingSheets1.Item("Details")drawingSheet1.Activate Set drawingViews1 = drawingSheet1.ViewsSet drawingView1 = drawingViews1.Item("A0-Brennteil-Stempel")drawingView1.Activate Set drawingSheet2 = drawingSheets1.Item("Blatt_011")drawingSheet2.Act ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
bgrittmann am 12.05.2015 um 17:21 Uhr (1)
ServusManuelle Suche: in Catia - bearbeiten - Suchen - Typ "aus Element" - gesuchten Elementtyp selektieren - Suchen (und dies aufzeichnen)Welche Blätter willst du nun umbenennen/suchen, das Detail-Blatt oder Blätter in der solch ein Detail eingefügt wurde? (kannst du mal ein Bild posten oder die (vereinfachte) Zeichnung hochladen)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
