---

ZeichnNr.JPG

Hallo Zusammen,

ich versuche gerade eine PDF Datei per Makro abzuspeichern.
Nur soll der Name der PDF Datei mit einer Eigenschaft "ZeichnungsNr" der Datei verbunden werden. Siehe Bild:

Der Name in dem Fall soll lauten:
"1111 Teil1.pdf"

Habe auch schon ein funktionierendes pdf export Script gefunden.
Wie kann ich die richtige Variable in den Dateinamen bringen?

Für Hilfe wär ich echt dankbar.

Code:

---

' ******************************************************************************
' C:\DOKUME~1\ast06\LOKALE~1\Temp\swx2140\Macro1.swb - macro recorded on 14/04/04 by Andreas Bacher
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"    ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False

End Sub

---

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

---

Hat einer ne Idee wie die klasse der Variable lautet?

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

---

Hallo

schau mal in der Hilfe unter "CustomPropertyManager"

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

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

---

Auch auf die Gefahr hin, dass du nicht viel dabei lernst, sondern nur abschreibst...

Code:

---

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Dim MyExt as ModelDocExtension
Dim MyPropMan as CustomPropertyManager
Dim Zeichnungsnummer as String
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set MyExt = Part.Extension
Set MyPropMan = MyExt.CustomPropertyManager("") 'Wenn Konfigurationsspezifisch, dann hier eintragen

swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

Zeichnungsnummer = MyPropMan.Get("ZeichnungsNr") 'Hier Feldnamen, welcher ausgelesen werden soll

saveFileName = Zeichnungsnummer + " " + Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"    ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False

End Sub

---

Der Code ist ungetestet!
Du solltest vor dem Auslesen der Dateieigenschaft vielleicht noch eine Prüfung einbauen, ob es denn diese wirklich gibt, denn sonst landet dein Makro ganz schnell im Dreck, wenn sie einmal nicht vorhanden ist.

Grüße

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

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

---

Ich hatte auch schon das Problem auf dem Schirm, habe hier und hier was dazu geschrieben...

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

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

---

Hej Super!!! Danke an Alle, jetzt funktionierts   

Noch eine Frage, wie kann ich mein macro auf ein icon legen?

Gruß

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

---

20114_makro-knopf-erstellen.png

Hallo anikicu

Zitat:

---

Original erstellt von anikicu:
Noch eine Frage, wie kann ich mein macro auf ein icon legen?

---

Unter Extras/Anpassen wechselst du auf den zweiten Reiter und ziehst dir aus dem Bereich Makro den Knopf ganz rechts auf die Toolbar, wo das Icon hin soll. Dann füllst du in der Dialogbox die Parameter für den Makroknopf aus und hast dein Makro als Icon.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

Danke hat funktioniert!

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