VBA - Commando om te achterhalen of een document actief is

Out of category
1

Hallo

Welk commando bepaalt of een document actief is? Het doel zou zijn om mijn programma te verlaten als dat er niet is.

Dank u voor uw hulp:)

2

Hallo

U moet activedoc gebruiken:

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

Het retourneert NULL als er geen documenten actief zijn.

Stel swModel = swApp.ActiveDoc in

Als isnull(swModel) dan ...

Of misschien:

Doen

Stel swModel = swApp.ActiveDoc in

Loop while isnull(swModel) = onwaar

 

3

De functie retourneert altijd hetzelfde wanneer een document wordt geopend of niet. Ik gebruik de onderstaande code :

Dim swmodel als SldWorks.ModelDoc2

Als IsNull(swmoddel) = onwaar, sluit dan Sub af

 

4

Probeer je dan te laten inspireren door deze macro:

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