---

Hallo ich bin Praktikant bei einer Firma und arbeite seit guten zwei Monaten mit Solidworks 2011. Man möchte nun dass ich ein Makro erstelle mit welchem Bauteile automatisch als PDF und DXF abgespeichert werden.
Bei Extra/Makro/Aufnahme habe ich eine Datei als DXF und PDF gespeichert und danach die Aufnahme gestoppt. Die Datei abgespeichert und ein neues Bauteil geöffnet um das neue Makro anzuwenden mit der "Ausführen-Taste" jedoch erscheint dann im Folgenden "Fehler beim kompilieren: Syntaxfehler"
Die drittletzte Zeile von unten ist dann rot markiert bei mir:
boolstatus = Part.DeleteNamedView(*Aktuell)

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
longstatus = Part.SaveAs3("C:\Users\fa\Desktop\Test\Test77.PDF", 0, 0)
longstatus = Part.SaveAs3("C:\Users\fa\Desktop\Test\Test77.DXF", 0, 0)
swPart = swApp.NewPart()
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "Zeichnung1 - Blatt1", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "Test77", False, longstatus
Set Part = swApp.ActiveDoc
Dim myView As Object
Set myView = Part.CreateDrawViewFromModelView3("C:\Users\fa\Desktop\Test\Test77.SLDPRT", "*Aktuell", 0, 0, 0)
boolstatus = Part.DeleteNamedView(*Aktuell)
Part.ClearSelection2 True
End Sub

Ist der Weg den ich eingeschlagen habe überhaupt richtig oder muss man das ganze programmieren um ans Ziel zu kommen?
Frage würdet ihr mir irgendwelche "Programmier Lehrbücher" empfehlen welche mir in Verbindung mit Solidworks weiterhelfen könnten?
Würde gerne das ganze auch nachvollziehen..

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

---

Schau mal hier nach! Vielleicht hilft dir das Makro mit der Nr. 20 weiter... 

------------------
Viele Grüße, THSEFA 

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

---

Vielen Dank für die schnelle Antwort.
Habe gerade es gerade entdeckt jedoch kann ich die datei welche zum Download rangehängt wurde nicht öffnen

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

---

Vielen Dank!
Habe es hinbekommen
Top

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

---

Genau so etwas brauchen wir auch.
Nur für pdf und dwg.
Dieses zu ändern ging problemlos.
Kleines Problem noch:
Das Makro schreibt die neuen Dateien in das Verzeichnis der SW-Datei.
Da wir eine Datenbank nutzen, wäre es für uns hilfreich, die Dateien in ein anderes, lokales Verzeichnis zu speichern.
Was muß dann geändert werden.
Perfekt wäre natürlich die Frage, wo die Dateien gespeichert werden sollen.

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

---

Hallo Wolle,
in diesem Beitrag habe ich mein Schriftfeldmakro veröffentlicht.
http://ww3.cad.de/foren/ubb/Forum2/HTML/022779.shtml

Darin enthalten ist ebenfalls ein Export von verschiedenen Formaten.
Dabei kann der Speicherort zwischen 2 Positionen gewählt werden.
Und zwar entweder beim Original oder einem im Makro vordefinierten Pfad, je nach Format unterschiedlich.

Evtl. kannst du aus meinem Makro die Routinen in deins übertragen.

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

PDFDXFConverter.rar.txt

Das wäre unser Makro für PDF und DXF. Die Makro Datei sowie die beiden Ordner PDF und DXF müssen dort hin kopiert werden, wo auch die Zeichnungen die zu konvertieren sind, kopiert werden.

funktioniert eigentlich ganz gut. Einziges manko: Die Blatt-Beziechung wird in den Dateinamen geschrieben.

------------------
Engineers have the power to bring minds in reality!

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

---

Hallo Formi,

setz dir doch im Makro deinen Dateinamen wie gewünscht zusammen. Ist mit wenigen Stringoperationen
getan.

------------------
==========
Gruß
Andreas
==========

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