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