---

Hallo liebe SolidWorks-Experten,
ich habe mal wieder einer Frage zu der SolidWorks-API. Habe mich langsam eingearbeitet und komme auch ganz gut zurecht. Hänge aber an einem kleinen für mich, aber wichtigem Problem. Wenn man SolidWorks, ohne Programmierung verwendet, ein Bauteil erstellt und dieses dann mit "Speichern unter" unter einem anderen Namen abspeichert, dann ändert sich auch automatisch die geöffnete Datei, und wird unter dem neuen Namen angezeigt (im Strukturbaum).

Wenn ich das jetzt per Programmcode durchführe und das Bauteil mit swModel.SaveAs3(...) abspeichere, dann speichert er mir das Bauteil zwar unter neuem Namen, aber der Name des geöffneten Bauteil ändert sich nicht. Muss ich dann unbedingt den Umweg gehen, und das Bauteil mit swModel.CloseDoc(...) schließen und danach wieder mit swModel.OpenDoc6(...) neu öffnen, oder gibts da vielleicht eine einfachere Möglichkeit?

Ich hoffe mal das Problem ist soweit verstanden worden, und ihr könnt mir weiterhelfen.

P.S. Das gleiche Problem habe ich auch bei einer Baugruppe.

Viele Grüße

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

---

Speichernunter.JPG

Hallo,
zunächst wäre deine SolidWorks Version in deiner System-Info hilfreich.

Wenn du über den Makrorekorder dein SaveAs3 geholt hast, dann muss ich dir sagen, dass hier falsch aufgezeichnet wird.
Die im Bild beschriebenen Funktionen werden zwar manuell aber nicht per aufgezeichnetem Makro wiedergegeben.
Mal davon abgesehen, das der Befehl SaveAs3 Obsolete ist.

Verwende lieber folgende Befehle:

Dim swApp          As SldWorks.SldWorks
Dim swModel        As ModelDoc2
Dim longstatus      As Long
Dim longwarnings    As Long

Set swModel = swApp.ActiveDoc

'"Speichern unter"
swModel.Extension.SaveAs "C:\NeuesDokument.SLDPRT", 0, swSaveAsOptions_Silent, Nothing, longstatus, longwarnings
'oder, da swSaveAsOptions_Silent = 1 oder 0 ist
swModel.Extension.SaveAs "C:\NeuesDokument.SLDPRT", 0, 1, Nothing, longstatus, longwarnings

'"Als Kopie speichern und fortfahren"
swModel.Extension.SaveAs "C:\NeuesDokument.SLDPRT", 0, swSaveAsOptions_Copy, Nothing, longstatus, longwarnings
'oder, da swSaveAsOptions_Copy = 2 ist
swModel.Extension.SaveAs "C:\NeuesDokument.SLDPRT", 0, 2, Nothing, longstatus, longwarnings

'"Als Kopie speichern und öffnen"
swModel.Extension.SaveAs "C:\NeuesDokument.SLDPRT", 0, 2, Nothing, longstatus, longwarnings
Set swModel = swApp.OpenDoc6("C:\NeuesDokument.SLDPRT", 1, 0, "", longstatus, longwarnings)

So müsstest du jetzt einen Schritt weiterkommen.

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