|
CATIA V5 Programmierung : 2D/3D Spline aus Excel-Makro
PAP am 17.06.2016 um 16:08 Uhr (1)
Oh man ich Idiot... bin ich also völlig umsonst ausgerastet Nach ner Weile seh ich den Wald vor Bäumen nicht mehr..Danke dafür!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D/3D Spline aus Excel-Makro
PAP am 16.06.2016 um 20:07 Uhr (1)
Hallo,ich verwende prinzipiell die gleiche funktion, jedoch funktioniert die Schleife bei mir nicht.Hier wie es geht:(eben nur für 3 Punkte aus der Collection)Code:Sub CreateSpline() Dim hybridShapeFactory1 As HybridShapeFactory Set hybridShapeFactory1 = PUBobjTargetPart.HybridShapeFactory Dim hybridShapeSpline1 As HybridShapeSpline Set hybridShapeSpline1 = hybridShapeFactory1.AddNewSpline() hybridShapeSpline1.SetSplineType 0 hybridShapeSpline1.SetClosing 0 Dim reference1 As Reference Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Produktstruktur scannen und GeoSets in Parts erzeugen
PAP am 06.06.2016 um 20:38 Uhr (1)
Hallo,aber die muss ich doch auch durchlaufen?Ich glaube vorhin selbst auf die Lösung gestoßen zu sein.Ich dachte an etwas wie CATIA.Documents.GetItemByPartNumber("Part1"). Ich meine gesehen zu haben, dass man ein Item anstatt mit CATIA.Documents.Item(1) auch mit CATIA.Documents.Item("Part1.CATPart") direkt ansprechen kann.Ungetestet und ohne Garantie ;-) aber um zu verdeutlichen was ich meinte.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Produktstruktur scannen und GeoSets in Parts erzeugen
PAP am 05.06.2016 um 21:01 Uhr (1)
Hallo,vielen Dank! Also geht der Pfad durch ReferenceProduct bis aufs Part, super, Danke!In der Zwischenzeit hatte ich gesehen, dass ich bei CATIA.Documents.Item(x) auf alle geöffneten Parts zugreifen kann.Habe dann eine Schleife gemacht, mit der ich die PartNumber aus der Struktur in den CATIA.Documents suche:Code: Dim i As Integer For i = 1 To objProducts.Count Dim j As Integer For j = 1 To CATIA.Documents.Count If objProducts.Item(i).PartNumber = CATIA.Documents.Item(j).Product.Pa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA SelectElements2-Auswahlmodus aus anderer Sub beenden
PAP am 07.06.2016 um 20:28 Uhr (1)
Hallo,ich habe ein Makro, mit einer Sub, in der ich über SelectElements2 mitCode:objSelectionState = objSelection.SelectElement2(arrFilter, "Text, der unten links in CATIA angezeigt wird", False)If objSelectionState = "Normal" ThenElseIf objSelectionState = "Cancel" ThenElseEndIfein Objekt Abfrage.Hier Frage ich ab, ob die Auswahl erfolgreich war, oder abgebrochen wurde. Durch ESC-Taste kann die Suche abgebrochen werden.Ich suche eine Möglichkeit, aus einer anderen Sub heraus diesen Auswahlzustand, in dem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : AutomationSelectionFourthState
PAP am 07.06.2016 um 20:07 Uhr (1)
Gibts Neuigkeiten?Kriege auch öfter den AutomationSelectionFourthState, wenn ich mit dem VBA-Editor arbeite und ein Makro teste, das SelectElements2 verwendet...CATIA ist dann nicht mehr schließbar und ich muss den Prozess abschießen...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : AutomationSelectionFourthState
PAP am 15.06.2016 um 21:18 Uhr (1)
Hallo,ich habe beobachtet, dass das bei mir immer auftritt, wenn ich mit SelectElement2 auf eine Eingabe warte, und dann aber trotzdem eine Zweite gestartet wird mit SelectElement2.Kann ich abfragen, ob CATIA sich schon im Auswahlmodus befindet?Vielen Dank!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Object(HybridBody) als Private an Sub übergeben
PAP am 07.06.2016 um 11:53 Uhr (1)
Der Pukt soll in der Sub Dopoint erstellt werden, da sieht man nur noch nichts. Das soll irgendwie in diese Richtung funktionieren:Code:Option ExplicitPrivate DestinationGeoSet As HybridBodySub SelItem(objHybridBody As HybridBody) DestinationGeoSet = objHybridBody MsgBox "Success"End SubSub DoPoint(objInput As Object) Dim objCoords(2) objInput.GetCoordinates (objCoords) Dim documents1 As Documents Set documents1 = CATIA.Documents Dim partDocument1 As PartDocument Set partDocument1 = documents1.It ...
|
| In das Form CATIA V5 Programmierung wechseln |
