|
CATIA V5 Programmierung : VBA Object(HybridBody) als Private an Sub übergeben
PAP am 06.06.2016 um 20:32 Uhr (1)
Hallo,ich habe in meinem Makro zwei Subs, eine soll ein GeoSet setzen, die andere darin Punkte erzeugen.Ich dachte ich übergebe einfach das gesetzte GeoSet als Object, aber das geht nicht, wie kann ich das lösen?Die Sub SelItem wird mit dem Ergebnis einer Selection beliefert "objSelection.Item(1).Value"In der DoPoint kriege ich die Koordinaten für den Punkt, aber ich kann hier nicht das Set mitgeben, da ich es mit einer Selection festlege, oder?!Code:Option ExplicitPrivate DestinationGeoSet As HybridBodySu ...
| | 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 |
|
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 : 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 Object(HybridBody) als Private an Sub übergeben
PAP am 07.06.2016 um 20:09 Uhr (1)
Hi,eigentlich funktioniert es so, ich hatte nur einen Fehler ganz am AnfangCode:Option ExplicitPrivate DestinationGeoSet As HybridBodySub SelItem(objHybridBody As HybridBody) Set DestinationGeoSet = objHybridBody MsgBox "Success"End SubDas Set hat gefehlt, mit dem Set funktioniert es. Das Part Frage ich ab, wie du vorgeschlagen hast und übergebe es auch an eine private variable.Vielen DAnk und viele Grüße
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
