---

Hallo zusammen,

ich will ein Makro erstellen, dass mir ein Part in eine Baugruppe umwandelt. Dazu hab ich folgenden Code mit dem Makrorecorder aufgezeichnet und schon etwas abgewandelt:

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
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
Set Part = swApp.NewDocument("F:\Konstruktion\SolidWorks-Vorlagen\Dokumentvorlagen\Baugruppenvorlage.asmdot", 0, 0, 0)
boolstatus = Part.AddComponent("Bauteilpfad", 0, 0, 0)
End Sub

ich will das Makro auf verschiedene Bauteile anwenden, ohne jeweils den Bauteilpfad im Makro zu modifizieren.
Wie kann ich mir den Pfad des aktuell geöffenten Bauteils anzeigen lassen?
Ich habe es mit:

Set swModel = Bauteil
Bauteil = swModel.GetPathName

versucht, aber es klappt einfach nicht.   

Würde mich freuen wenn mir jemand helfen kann 

------------------
Gruß Philipp

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

---

Hallo Philipp,

schau dir mal den Snippet Dateipfad ermitteln und aufschlüsseln an.

ModelDoc2.GetPathName ist eigentlich der richtige Befehl. Der Fehler muss wo anders liegen.
Was bekommst du den zurück?

Schreibe die Rückgabe mal mit Debug.Print in das Direktfenster. Dann kannst du besser kontrollieren wo der Fehler ist.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

Hallo Daniel,
danke für deine schnelle Hilfe!

Mit diesem Code hat es funtioniert:

Option Explicit

Dim SwApp As SldWorks.SldWorks
Dim SwModel As SldWorks.ModelDoc2

Dim sFullpath As String

Dim Part As Object

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

Sub main()

Set SwApp = Application.SldWorks

Set SwModel = SwApp.ActiveDoc

sFullpath = SwModel.GetPathName

Debug.Print sFullpath

Set Part = SwApp.NewDocument("F:\Konstruktion\SolidWorks-Vorlagen\Dokumentvorlagen\Baugruppenvorlage", 0, 0, 0)
boolstatus = Part.AddComponent(sFullpath, 0, 0, 0)
End Sub

------------------
Gruß Philipp

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