---

Guten Tag alle zusammen,

mal wieder eine Frage:

wie kann ich via VBA eine Skizze im FeatureManager in einen Ordner verschieben? 

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

---

http://help.solidworks.com/2014/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.ipartdoc~reorderfeature.html

Der Makrorecorder zeichnet das auch ordenlich auf...

Code:

---

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Skizze3", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.ReorderFeature("Skizze3", "Ordner1")
boolstatus = Part.EditRebuild3()
End Sub

---

WW

------------------

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

---

Den Makrorecorder versuche ich immer als erstes wenn ich nicht weiterkomme 

Aber wenn ich den dann nachträglich ausführe kommt beim "Reorder" der Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht"

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