VBA - Befehl, um herauszufinden, ob ein Dokument aktiv ist

Hallo

Welcher Befehl bestimmt, ob ein Dokument aktiv ist? Das Ziel wäre, mein Programm zu verlassen, wenn es keines gibt.

Vielen Dank für Ihre Hilfe:)

Hallo

Sie sollten activedoc verwenden:

http://help.solidworks.com/2012/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISldWorks~ActiveDoc.html

Sie gibt NULL zurück, wenn keine Dokumente aktiv sind.

Festlegen von swModel = swApp.ActiveDoc

Wenn isnull(swModel) dann ...

Oder vielleicht:

Tun

Festlegen von swModel = swApp.ActiveDoc

Schleife while isnull(swModel) = false

 

Die Funktion gibt immer das Gleiche zurück, wenn ein Dokument geöffnet wird oder nicht. Ich verwende den folgenden Code:

Dim swmodel As SldWorks.ModelDoc2

Wenn IsNull(swmoddel) = false, dann sub beenden

 

Versuchen Sie dann, sich von diesem Makro inspirieren zu lassen:

http://www.lynkoa.com/tutos/import-export-formats-neutres/macro-solidworks-obtenir-le-nom-des-documents-ouverts