---

hallo,

ich habe versucht mir ein makro zu erstellen das es ermöglicht eine zeichnung zu speichern, anschliesend noch speichern unter als pdf.
das makro wurde durch die aufzeichnen funktion erstellt.

der arbeitsablauf scheint einfach - ich kenne mich jeoch leider weder mit makros und auch nicht mit visual basic aus.

mein problem - der speicherort ist mit im script mit als pfad festgelegt - somit wird alles immer in diesen order gespeichert. 

mein frage - gibt es eine möglichkeit, im script als speicherort jeweils automatisch den ordner neu fest zu legen, in dem auch die zeichung liegt?

so sieht das script dazu aus:

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
longstatus = Part.SaveAs3("X:\User\MAN\Schweiz_CH\I\Kundenname\Kundenname_2010184_Displayanimations IWC 2011\Portofino\Socle\Kundenname_2010184_Socle_Portofino_V1A.PDF", 0, 0)
Set Part = Nothing
swApp.CloseDoc "Kundenname_2010184_Socle_Portofino_V1A - Blatt1"
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 "Kundenname_2010184_Socle_Portofino_V1A.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub

ich hoffe ich habe meine frage korrekt und verständlich formuliert.
vielen dank für hilfe oder lösungsvorschläge
andreas

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

---

Hallo andreas,

wenn du jetzt noch die Großschreibaste deines Keyboards reparieren lässt, sodass sich deine Beiträge besser lesen und nachvollziehen lassen, dann wird dir hier sicherlich auch mehr geholfen... 

->Back to topic: du kannst den Speicherpfad deiner Zeichnung per VBA auslesen und diesen dann als Speichpfad deiner .pdf - Datei nutzen. Leider hab ich im Moment kein SWX zur Hand, um dir den Schnipsel schnell zu programmieren.

HTH
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

---

Hallo,

ich mach's mir erstmal einfach und verweise hiermit auf das Makro von Andreas Bacher zu diesem Thema, welches hier:
http://solidworks.cad.de/mm_boerse02.htm

zu finden ist.

Gruß, Torsten

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