---

Hallo Allerseits,
ich möchte in einem Makro für Baugruppen am Anfang abfragen, ob mehr als nur diese eine Baugruppe offen ist. Sind mehrere BGŽs oder auch Teile auf, soll eine Meldung kommen. Kann mir da jemand mal kurz auf die Sprünge helfen? Ein kurzer Tipp für die Suche in der API-Hilfe würde mir reichen... 

Bei meiner Suche im Forum bin ich auf diesen Thread gestoßen, der entspricht aber nicht ganz dem, was ich suche bzw. habe ich keine Ahnung, wie ich dieses Beispiel für mich anpassen kann.

Schon mal vielen Dank fürŽs lesen! 

------------------
Viele Grüße, THSEFA 

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

---

Hallo THSEFA,

das kannst du auf verschiedene Weise lösen, z.B. mit SldWorks::GetDocuments (Beispiel siehe Get Paths of Open Documents), ich hab es hier als Beispiel mit der "klassischen" Traverse über die geöffneten Dokumente gemacht. Du musst nur beachten, dass auch geladenen Komponenten von Baugruppen oder Modelle von Zeichnungen als geöffnet gelten. Dafür den "Umweg"§ über die Sichtbatkeit im Code, je nachdem, ob du alle geöffneten oder nur alle "offenen" Dokumente haben willst  

Code:

---

Sub main()

    Dim swapp     As Object
    Dim ModelDoc  As Object

    Set swapp = Application.SldWorks
    Set ModelDoc = swapp.GetFirstDocument

    While Not ModelDoc Is Nothing

        ' vollständig geladene Baugruppenkomponenten oder Modelle aus Zeichnungen
        ' zählen als geöffnet, sind aber nicht sichtbar
        ' Also nachschauen, ob das ModelDoc "sichtbar" ist

        If ModelDoc.Visible = True Then
            ' sichtbar, also "geöffnet"
            Debug.Print "Geöffnet und sichtbar: " & ModelDoc.GetPathName
        Else
            Debug.Print "   Geöffnet aber nicht sichtbar: " & ModelDoc.GetPathName
        End If
       
        Set ModelDoc = ModelDoc.GetNext
   
    Wend

End Sub

---

Du musst also für deinen Fall nur einen Zähler mitlaufen lassen, wie viele der geöffneten Dokumente sichtbar sind und bei mehr als einem eine Warnmeldung bringen.

Ciao,
Stefan

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

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

---

Danke Stefan für deinen Tipp!

Nachdem ich gestern ein wenig damit rumgespielt habe, ist folgendes rausgekommen:

Code:

---

Dim swApp As SldWorks.SldWorks
Dim myDwgDoc As SldWorks.ModelDoc2
Dim swDoc As SldWorks.ModelDoc2
Dim Part As Object
Dim ModelDoc2  As Object
Dim filename As String
Dim count As String
Dim DwgPath As String
Dim Pdminfo As String
Dim CloseErrors As Long
Dim CloseWarnings As Long
Dim NumDocsReturned As Long
Dim swAllDocs As EnumDocuments2

Const swDocPART = 1
Const swDocASSEMBLY = 2
Const swDocDRAWING = 3

Set swApp = Application.SldWorks
Set swAllDocs = swApp.EnumDocuments2
Set ModelDoc2 = swApp.GetFirstDocument
Set Model = swApp.GetFirstDocument

' dann war gar kein Dokument geöffnet, wie soll da was funktionieren
If ModelDoc2 Is Nothing Then
MsgBox " Kein Dokument geöffnet! ", vbExclamation
End
End If
count = 0
    While Not ModelDoc2 Is Nothing
        'vollständig geladene Baugruppenkomponenten oder Modelle aus Zeichnungen zählen als geöffnet, sind aber nicht sichtbar
        'Also nachschauen, ob das ModelDoc "sichtbar" ist
        If ModelDoc2.visible = True Then
            'sichtbar, also "geöffnet"
            Debug.Print "Geöffnet und sichtbar: " & ModelDoc2.GetPathName
            'zählt die sichtbaren Dokumente
            count = count + 1
        Else
            'ist nur eines offen, so werden die nicht sichtbaren (z.B. die Teile einer Baugruppe) gezählt
            Debug.Print "Geöffnet aber nicht sichtbar: " & ModelDoc2.GetPathName
        End If

        Set ModelDoc2 = ModelDoc2.GetNext

    Wend
   
    If (count > 1) Then
    MsgBox ("Es sind " + count + " Dokumente in Solidworks geöffnet!") ' , vbOKOnly
    End
    End If

Set ModelDoc2 = swApp.GetFirstDocument
   
    'neue Schleife
    Do
        'vollständig geladene Baugruppenkomponenten oder Modelle aus Zeichnungen zählen als geöffnet, sind aber nicht sichtbar
        ' Also nachschauen, ob das ModelDoc "sichtbar" ist
        If ModelDoc2.visible = True Then
            'sichtbar, also "geöffnet"
            Debug.Print "Geöffnet und sichtbar: " & ModelDoc2.GetPathName
            'wenn Dokument sichtbar, dann raus aus Schleife
            Exit Do
        Else
            Debug.Print "Geöffnet aber nicht sichtbar: " & ModelDoc2.GetPathName
            'End
        End If

        Set ModelDoc2 = ModelDoc2.GetNext

    Loop While Not ModelDoc2 Is Nothing

'wenn keine Assembly aktiv ist wird das Makro wieder beendet
If (ModelDoc2.GetType <> swDocASSEMBLY) Then
MsgBox " Nur für Baugruppen geeignet! ", vbExclamation
End
End If
 
'Dateinamen der Baugruppe holen
filename = Model.GetTitle

*
*
*

---

Ich finde es zwar ganz schön umständlich, aber es funktioniert.

Nochmals ein herzliches Dankeschön an Stefan!

------------------
Viele Grüße, THSEFA 

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