---

Hi leute!!!

Steh mal wieder aufm Schlauch. Pls help.

Code:

---

(defun layer()(tblnext "layer" t)(while (/= nil (print(cdr(assoc 2 (tblnext "layer")))))(print (cdr (assoc 2 (tblnext "layer")))))(assoc 2(tblnext "layer" t)))

---

Dieser Code listet mir alle Layer in der zeichnung, aber nur in der Befehlszeile ausgegeben, is klar wg print. Ich will mir aber jetzt die gesamte liste als alert anzeigen lassen. Wie geht das?

mfg

blue

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

---

; Ich mache aus allen "Ergebnissen" einen langen String mit Zeilenumbrüchen, dann diesen String im Alert anzeigen lassen.
; ABER: Lange Listen, gemessen an der Zeilenanzahl, sind nichts für Alert-Fenster.

(defun LAYERLISTE ( / LAY TEMPLIST)
  (setq LAY (tblnext "LAYER" t))
  (while LAY
    (setq TEMPLIST (cons (strcat "\n" (cdr(assoc 2 LAY)))  TEMPLIST)); erzeugt Liste '("\nLayer1" "\nLayer2" usw.
    (setq LAY (tblnext "LAYER"))
  )
  (alert
    (apply 'strcat TEMPLIST)
  ) ; verkettet alle String aŽla "\nLayer1\nLayer2\nLayer3 usw.
)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

oK danke cadffm

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

---

Ah ok habs gesehen Ihr wart zu schnell für mich.
Trotzdem hier noch mein ansatz.

Code:

---

(defun myLayer (/ Lay-Txt Lay-elem)
  (setq Lay-Txt "")
  (while (setq Lay-elem (cdr (assoc 2 (tblnext "layer" (not Lay-elem)))))
    (setq Lay-Txt (strcat Lay-Txt (strcat Lay-elem "\n")))
  )
  (alert Lay-Txt)
)

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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