---

Hi,

wie bekomme ich eine Liste mit allen offenen Dokumenten?

Danke!

Grüße

HP

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

---

Hallo HP,

wenn du du alle geöffneten Zeichnungen meinst, müßte folgende Routine klappen :

(defun geoeffnet ( / MCAD Doku i Dokument Zeichnung DWG_Liste aktiv_Nr )

  (Setvar "Cmdecho" 0)
  (vl-load-com)
  (setq MCAD (vlax-invoke-method (vlax-get-acad-object) 'GetInterfaceObject "Mcad.Application")
Doku (vlax-get-property MCAD 'Documents)
i 0)

  (vlax-for Dokument Doku
    (setq Zeichnung (vlax-get-property Dokument 'HostDocument)
          DWG_Liste (append DWG_Liste (list (vlax-get-property Zeichnung 'Name))))
   
    (if (= (vlax-get-property Zeichnung 'Active) :vlax-true)
      (setq aktiv_Nr i))
   
    (setq i (1+ i))
  ) ; vlax-for

  (setq i 0)
  (repeat (length DWG_Liste)
    (princ (strcat "\n" (nth i DWG_Liste)))
    (if (= i aktiv_Nr)
      (princ "  <-- aktiv"))
    (setq i (1+ i))
  ) ; repeat
  (princ)
)

Aber wie du eine nicht aktive aktiv machen kannst, kann ich dir auch nicht sagen.

Gruß
Helmut

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

---

Hallo Helmut,

vielen Dank für die Info.

Grüße

HP

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