---

Mein Programm soll sich beenden, wenn das zugehörige Part geschlossen wurde.
Scheinbar kann man dies nur mit einem Timer erreichen, der immmer wieder nachsieht, ob das Part noch offen ist.
(Mir ist kein Event bekannt, das beim Schliessen eines Parts reagiert - oder gibt es sowas?)
Das funktioniert soweit. Ich verwende VB.NET 2008.

Alle paar Sekunden wird der TimerEventProcessor angesprungen:

    Private Shared Sub TimerEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs)
        myTimer.Stop()
        If SldWorksEventFrm.IstDokumentGeoeffnet(SldWorksEventFrm.oSwAppCls, SldWorksEventFrm.DateinamePART, False) Then myTimer.Enabled = True ' ist das zugehörige Part geöffnet ?
        If Not myTimer.Enabled Then
            'SolidWorks freigeben
            SldWorksEventFrm.oSwPartCls = Nothing
            SldWorksEventFrm.oSwDrawingCls = Nothing
            SldWorksEventFrm.oSwAppCls = Nothing
            '        SldWorksEventFrm.oSwAssemblyCls = Nothing
            'Formular schließen
            SldWorksEventFrm.Hide()
            SldWorksEventFrm.Close()
        End If
    End Sub

, der dann entsprechend der Function IstDokumentGeöffnet reagiert.

    Public Function IstDokumentGeoeffnet(ByVal oSwApp As SldWorks.SldWorks, ByVal sDokument As String, ByVal bAktivierenWennGeoeffnet As Boolean, Optional ByRef bModelDocVisible As Boolean = False) As Boolean
        Try
            'Mal schauen was alles offen ist
            Dim oSwAktuellModel As SldWorks.ModelDoc2
            Dim bVorhanden As Boolean = False
            oSwAktuellModel = CType(oSwApp.GetFirstDocument, SldWorks.ModelDoc2)
            Do While Not oSwAktuellModel Is Nothing
                If oSwAktuellModel.GetPathName.Length > 0 Then
                    If oSwAktuellModel.GetPathName = sDokument Then
                        bVorhanden = True
                    End If
                    If System.IO.Path.GetFileName(oSwAktuellModel.GetPathName) = sDokument Then
                        bVorhanden = True
                    End If
                    If System.IO.Path.GetFileNameWithoutExtension(oSwAktuellModel.GetPathName) = sDokument Then
                        bVorhanden = True
                    End If
                Else
                    If oSwAktuellModel.GetTitle = sDokument Then
                        bVorhanden = True
                    End If
                End If
                If bVorhanden Then
                    bModelDocVisible = oSwAktuellModel.Visible
                    If bAktivierenWennGeoeffnet Then
                        oSwApp.ActivateDoc(oSwAktuellModel.GetTitle)
                    End If
                    Exit Do
                End If
                oSwAktuellModel = CType(oSwAktuellModel.GetNext, SldWorks.ModelDoc2)
            Loop
            Return bVorhanden
        Catch ex As Exception
            Debug.Assert(False)
            Trace.WriteLine("Fehler: Wo: " & ex.StackTrace & " Was: " & ex.Message)
            Return False
        End Try
    End Function

Nun kommt mein Problem.
Ich möchte mein Programm nur solange offen halten, wie das Part selbst geöffnet ist. Wenn das Part indirekt über ein Assembly offen ist, soll mein Programm schliessen. Ich kann jedoch beim Durchlaufen durch alle geöffneteten Dateien in IstDokumentGeoeffnet nicht unterscheiden, ob das Part direkt oder nur indirekt geöffnet ist.

Kann mir jemand helfen?

Gruß
Erwin

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

---

Hallo Erwin,

dafür gibt es ein, bzw zwei Ereignisse.

Es gibt das "DestroyNotify - PartDoc" Ereignis, dies wird aber nur ausgelöst wenn das Bauteil wirklich geschlossen wird.

Was du meiner Meinung nach benötigst ist das "DestroyNotify2 - ModelView" Ereignis.
Wenn dein Bauteil in einem eigenen Fenster geöffnet ist, gibt es ein ModelView Objekt. Dessen Instanz erhälst du mit "ModelDoc2.GetFirstModelView".
Wenn das Fenster geschlossen wird, müsste das DestroyNotify2 Ereignis der ModelView Klasse ausgelöst werden, egal ob dein Bauteil noch in einer Baugruppe oder Zeichnung geöffnet ist.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

Hallo Daniel,

danke für Deine Antwort. Der Hinweis ist genial. Ich habe es eingebaut und es funktioniert.

Nur interessehalber:
Vielleicht kennt doch noch jemand eine Möglichkeit, wie man erkennt, ob das Part direkt oder nur indirekt geöffnet ist. Gibt es vielleicht eine Eigenschaft eines swModels?

Gruß
Erwin

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

---

Hallo Erwin,

das funktioniert im Prinzip genaus so:

Wenn ModelDoc2.GetFirstModelView Nothing ist gibt es kein eigenes Fenster, spricht das Modell ist in einer Baugruppe oder Zeichnung geöffnet.

-oder-

ModelDoc2.Visible: Bei false gibt es kein eigenes Fenster, bei true schon.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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