---

Hallo,

wie kann per Lisp eine Liste der aktuell geöffneten Zeichnungen erstellen?

Danke im Voraus und viele Grüße
Bernd

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

---

(vl-load-com)
(setq LISTE nil)
(vlax-for I (vla-get-documents(vlax-get-acad-object))
  (setq LISTE(cons(vla-get-fullname I)LISTE))
)

------------------
  - 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

---

Hallo Thomas,

danke für die schnelle Antwort.

Zitat:

---

Original erstellt von CADmium:
(vl-load-com)
(setq LISTE nil)
(vlax-for I (vla-get-documents(vlax-get-acad-object))
  (setq LISTE(cons(vla-get-fullname I)LISTE))
)

---

Es hat so funktioniert. Nur für die neue und noch nicht gespeicherte Zeichnung (z.B. Zeichnung1.dwg) bekomme ich nicht den Namen in der Liste, sondern nur den Wert "". Somit müsste ich statt vla-get-fullname wohl vla-get-name verwenden, wobei dann wieder das Verzeichnis für die bereits gespeicherten Zeichnungen fehlt. Ich muss noch testen, ob ich für meinen Zweck eine Kombination aus Beidem nutzen kann.

Viele Grüße
Bernd

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

---

(vl-load-com)
(setq LISTE nil)
(vlax-for I (vla-get-documents(vlax-get-acad-object))
  (if(/=(vla-get-fullname I)"")
    (setq LISTE(cons(vla-get-fullname I)LISTE))
    (setq LISTE(cons(vla-get-name I)LISTE))
  )
)

------------------
  - 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

---

Hallo Thomas,

ich habe es inzwischen im Prinzip auch so kombiniert:

( defun zngliste_erstellen ( /
                            czng
                            lzng )
 
; Die Liste der Zeichnungen ermitteln
(setq lzng nil)
(vlax-for nZler (vla-get-documents(vlax-get-acad-object))
  (setq czng (vla-get-fullname nZler))
  (if (= czng "")
    (setq czng (vla-get-name nZler))
  ) ; if
  (setq lzng (append lzng (list czng)))
) ; vlax-for
 
; Rückgabewert
  lzng

) ; Modulende 

Viele Grüße
Bernd

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