na wenn nicht, kannst du dir hieraus was basteln ..
(defun c:ALTW(/ L DOC)
(vl-load-com)
(vlax-for ITEM(vla-get-documents(vlax-get-acad-object))
(setq L(cons ITEM L))
)
(setq L(reverse L))
(or (setq DOC(cadr(member(vla-get-activedocument(vlax-get-acad-object))L)))
(setq DOC(car L))
)
(vla-activate DOC)
)
muß bloß in jede Zeichnung ( z.b. über die acaddoc.lsp oder ein Menü -> mnl geladen werden)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP