---

Wahrscheinlich sind meine Fragen zu speziell, aber ich versuchs trotzdem nochmal. 

Kann ich per Makro abfragen, ob das geöffnete Dokument (in meinem Fall eine Zeichnung)z.B. nur zur Ansicht oder schreibgeschützt geöffnet ist und wenn ja, dann wie? Brauche das Abbruchbedingung.

Gruß

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

---

Hallo Christian

Jupp kann man...

Code:

---

Dim instance As ModelDoc2
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim value As Boolean

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

value = swModel.IsOpenedViewOnly()
Debug.Print value

value = swModel.IsOpenedReadOnly()
Debug.Print value

End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Traumhaft! Danke!

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