---

Hi,

Möchte einen ganzen Ordner mit SWX Teilen in STL Daten umwandeln.

Dazu hab ich mir gedacht ich erstelle einen benutzerdefinierten Task und führe dort ein Makro aus welches die Datei umwandelt.

Nun habe ich aber ein Problem mit dem Makro:



Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension

Dim FileName As String
Dim Errors As Long
Dim Warnings As Long
Dim boolstatus As Boolean
Dim path As String

Sub main()
Dim ExportData As Object

Set swApp = Application.SldWorks
swApp.Visible = True

Set swModel = swApp.ActiveDoc
path = "C:\Dokumente und Einstellungen\ha247\Desktop\"

FileName = path & swModel.GetTitle & ".stl"
Set ExportData = Nothing
boolstatus = swModelDocExt.SaveAs(FileName, 0, 0, ExportData, Errors, Warnings)

Set swApp = Application.SldWorks
End Sub



Der Fehler liegt beim SaveAs (Objektvariable nicht deklariert) weiß aber leider nicht wo...

Vielleicht kann mir hier ja jemand weiterhelfen?

Danke

Mfg Metallica88

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

---

Versuche es mal so rum:

Code:

---

boolstatus = swModel.Extension.SaveAs(FileName, 0, 0, ExportData, Errors, Warnings)

---

Bei mir geht es jedenfalls so.

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

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

---

Hallo,

vor dem Befehl SaveAs muss du das swModelDocExt Objekt initialisieren.
Füge dazu einfach folgende Zeile vor dem SaveAs Befehl ein:

Code:

---

Set swModelDocExt = swModel.Extension

---

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

www.MySldWorks.de - SolidWorks API Snippets

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

---

Oh Mann.....

Ist klar danke für die schnellen Antworten.

Manchmal sitzt man einfach auf der Leitung....

Mfg Metallica88

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