---

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

---

Hallo

gib einfach statt "Ebene12" myRefPlane.Name ein und es passt.

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wahnsinn... danke 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

kannst du mir auch verraten, wie ich den gleichen Effekt bei einer Skizze hinbekomme?
Also die zuletzt eingefügte Skizze zu markieren und umzubennenen?

Danke 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich würde das zum Zeitpunkt der Skizzenerstellung umbenennen, dazu musst du über das Feature-Object gehen.

Code:

---

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt as ModelDocExtension
Dim swSketchMgr As SketchManager
Dim swSketch As Sketch
Dim swFeature As Feature

Dim boolstatus as Boolean

Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension

swModel.SetPickMode

boolstatus = swModelDocExt.SelectByID2("Ebenenname zum Einfügen", "PLANE", 0, 0, 0, False, 0, Nothing, 0)

Set swSketchMgr = swModel.SketchManager

swSketchMgr.InsertSketch True

Set swSketch = swModel.GetActiveSketch2
Set swFeature = swSketch

swFeature.Name = "NEUEERNAME"

'und ab hier dann die Skizzensekmente erstellen

---

Gruß
Bernd

------------------
--- Man muß nicht alles wissen, man muß nur wissen wo es steht ---

Staatlich anerkannte Deutschniete   

[Diese Nachricht wurde von bk.sc am 18. Aug. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP