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