---

Hallo,
ich habe ein kleines Problem beim Konvertieren von Solidworks-Dateien auf die aktuelle Version.
Bei einem Testdurchlauf mit einem Teil der Daten meldet der Konvertierungsassistent von SXW zwar, dass alles umgewandelt wurde (mit benötigten sek.)
aber wenn ich dann z.B. eine Zeichnung öffne, kommt trotzdem das Fenster, dass folgende Dokumente beim speichern konvertiert werden:.....
Nun wollte ich das mal mit dem PAC4SWX probieren, nur weiß ich nicht wie die Makro-Zeilen auszusehen haben,
damit das Dokument geöffnet, evtl. neu berechnet(?), gespeichert und dann geschlossen wird.
Kann mir da jemand helfen?

Gruß,
Stefan

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

---

Hallo Stefan,

batchmäßig aufrufen erledigt PAC4SWX ja von alleine, du musst mit dem Makro also nur speichern (und wenn gewollt vorher ein Rebuild machen). Das Makro dazu sieht dann z.B. so aus:

Code:

---

' ' **********************************************************************
' * Makro speichert aktives Dokument. Von Baugruppen werden die
' * Komponenten NICHT rekursiv gespeichert, sondern nur die Baugruppe
' * selbst.
' * Sinnvoll zum Einsatz mit PAC4SWX im Batchmodus für "RunMacro", um
' * PAC4SWX z.B. als Ersatz für den Conversion wizard zu nutzen.
' *
' *
' *
' * 07.10.2003 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' **********************************************************************

Dim swApp As Object
Dim ModelDoc As Object

Sub main()
    '
    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc = swApp.ActiveDoc
   
    ' ist überhaupt ein Dokument aktiv
    If ModelDoc Is Nothing Then
        'MsgBox ("Kein Modell geöffnet")
        End
    End If
   
    ' wenn Rebuild gewünscht nächste Zeile einkommentieren
    ' ggf. durch ModelDoc.ForceRebuild(true) ersetzen
    '    If Not ModelDoc.EditRebuild3 Then
    '        ' Fehler beim Rebuild, ACHTUNG: hält den autoamtischen
    '        ' Durchlauf an und Dialogbox muss bestätigt werden
    '        MsgBox "ERROR EditRebuild - FEHLER beim Wiederaufbau" & vbCrLf & ModelDoc.GetPathName, vbCritical + vbOKOnly
    '    End If
   
    If ModelDoc.Save2(True) > 0 Then
        ' Fehler beim Speichern, ACHTUNG: hält den autoamtischen
        ' Durchlauf an und Dialogbox muss bestätigt werden
        MsgBox "ERROR saving - FEHLER beim Speichern" & vbCrLf & ModelDoc.GetPathName, vbCritical + vbOKOnly
    End If
   
End Sub

---

Schließen tut PAC4SWX anschließend auch wieder automatisch. Nur Speichern oder irgendetwas an den Originaldaten verändern werde ich sicher nicht in den Standardumfang einbauen, das ist mir zu heikel 

Ciao,
Stefan

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

Member of CAD.de BOINC Team  -   | Seti@Home | CPDN | Einstein@Home

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

---

Hallo!
Super, vielen Dank! Das werde ich dann mal testen.

Viele Grüße,
Stefan

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