Hallo Community,
ich hoffe einer von euch kann mir bei folgendem Problem helfen:
Ich habe per Makro Recorder ein Makro aufgenommen und anschließend leicht abgewandelt:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim TIEFE As Variant
Sub main()
Set swApp = _
Application.SldWorks
TIEFE = 75
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Ebene vorne", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, TIEFE / 1000, 0, 0, 0, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Ebene12", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, True, False, TIEFE)
End Sub
In diesem Makro wähle ich zuerst die Ebene "Ebene Vorne" an und generiere eine neue Ebene mit Abstand 75mm und diese kriegt anschließend den Namen "75".
Nur muss ich den Namen der neu erstellten Ebene (hier: Ebene 12) explizit ausschreiben damit ich sie umbennen kann.
Jetzt zu meiner eigentlichen Frage:
Wie kann ich dem Makro sagen NIMM DIE ZULETZT ERSTELLTE EBENE?
Habe in der API Hilfe etwas von GetLastFeatureAdded entdeckt, werde aber kein bisschen schlau draus
Danke für jede Art von Hilfe
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP