---

Hallo!

- Ich habe hier ein Einzelteil mit einem verknüpften PDF. (Anlagen hinzufügen... und ein Häckchen bei Verknüpfung setzen)
- Jetzt nehme ich mit SW (Version 2006, 2007 oder 2008) ein Makro auf, in welchem ich die obige Datei öffne und wieder schließe.
- Das Makro für sich läuft einwandfrei.
- Nun baue ich dieses Makro in einen CommandButton von VB6 ein.
- Lasse ich das VB-Script laufen, so stürzt SolidWorks ab 

Getestet mit SW 2006, 2007 und 2008.

Kann von euch jemand dieses Problem nachvollziehen?

ciao
Detlef

PS: Bin erst ab dem 15.10.08 wieder erreichbar. Ihr habt also ein paar Tage Zeit zum probieren...

Hier mein VB-Code:

<cut>
Private Sub Command5_Click()
' ******************************************************************************
' C:\DOKUME~1\g005696.CAD\LOKALE~1\Temp\swx3948\Macro1.swb - macro recorded on 10/09/08 by g005696
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object

'Set swApp = Application.SldWorks
Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.OpenDoc6("N:\mein_Teil.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc2("mein_Teil.SLDPRT", False, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "mein_Teil.SLDPRT"

End Sub
</cut>

------------------
--
Detlef Jockheck

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

---

Also bei mir läuft dein Code problemlos.

Allerdings solltes du noch den Macrorecorder-Müll beseitigen.
Das hier reicht

Code:

---

...
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.OpenDoc6("N\mein_Teil.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = Nothing
swApp.CloseDoc "mein_Teil.SLDPRT"
...

---

und dafür noch Prüfungen einbauen,
- ob SWX läuft,
- ob das Öffnen geklappt hat
- ...

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat...

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

---

Hallo!

Ich denke die Ursache liegt darin, daß mein Makro versucht, die Datei zu schließen bevor der Ladevorgang entgültig abgeschlossen ist. Zumindest passiert nichts, wenn ich nach dem Laden eine Message-Box einbaue und warte bis der Ladevorgang abgeschlossen ist. Nur wie wartet man per Macro auf einen abgeschlossenen Ladevorgang?

ciao
Detlef

------------------
--
Detlef Jockheck

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