---

Hallo zusammen,

ich habe leider keine Ahnung was Macroprogrammierung angeht. Aber ich bin sicher ihr könnt mir helfen.

Ich habe ein Macro aufgezeichnet, dass mir die aktuelle Datei immer als Parasolid abspeichert (...abspeichern soll).
Das Problem, es wird immer der vorgegebene Dateiname (im Beispiel xxxxxx.X_T)eingesetzt. Kann mir einer sagen, wie ich das Macro ändern muß, dass immer der Dateiname der aktuell geöffnteten Teiledateiverwendet wird.

Danke

Martin

__________________________________________

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Part.SaveAs2 "xxxxxxxx.X_T", 0, True, False
End Sub

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

---

Hi,

Für Einzelteile kann das Makro z.B. so aussehen:

[---snip---]
Dim swApp As Object
Sub main()

Dim doc As ModelDoc2
Dim currentname As String
Dim newname As String

Set swApp = Application.SldWorks
Set doc = swApp.ActiveDoc
currentname = doc.GetPathName
newname = Replace(currentname, ".SLDPRT", ".X_T")
doc.SaveAs (newname)

End Sub
[---snap---]

Gruß,
  Danny

------------------
Danny Reinhold
Reinhold Software & Services

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

---

Danke es funktioniert super. Vielen Dank für die schnelle Hilfe.

Gruß

Martin

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

---

HI Martin,
Hast Du mein MAkro aud diesem Beitrag schon mal angeschaut: http://ww3.cad.de/foren/ubb/Forum2/HTML/003590.shtml
Da kannst Du sehen wie ich etwas ähnliches gelöst habe.

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website

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

---

Hallo gismo,

ja jetzt.    Funktioniert super; danke für den Tipp.

Gruß

Martin

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

---

Hallo cadsw,

falls du jemals so etwas im Batchmodus brauchst und noch nicht die SW2004 einsetzt oder kein SolidWorks Office hast ... http://swtools.cad.de/prog_pac.htm  

Ciao,
Stefan

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

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

---

Hi Stefan,

Der Link scheint nicht zu funktionieren. 

Oder geht's nur bei mir nicht???

Ha - hab's herausgefunden... In dem Link ist ein Leerzeichen zuviel.
Der richtige Link lautet: http://swtools.cad.de/prog_pac.htm

Gruß,
  Danny

------------------
Danny Reinhold
Reinhold Software & Services

[Diese Nachricht wurde von dr am 07. August 2003 editiert.]

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

---

Hallo Danny,

ups, da ist mir ein Leerezeichen beim Copy/Paste reingerutscht  

Ist jetzt korrigiert 

Ciao,
Stefan

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

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

---

Oh, das war ja fast gleichzeitig...

Nennt man das 'concurrent engineering' ? 

Gruß,
  Danny

------------------
Danny Reinhold
Reinhold Software & Services

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