---

Hallo Mitstreiter,

habe mal wieder ein Problem :
Ich will alle Layer auf eine Farbe setzen, das mach ich in AutoCAD mit folgender Lisp:

Code:

---

(defun c:test ( / ge_la )
  (setq ge_la (tblnext "LAYER" T))
  (while ge_la
    (princ (cdr (assoc 2 ge_la)))(princ "\n")
    (command "_-LAYER" "_COLOR" 55 (cdr (assoc 2 ge_la)) "" )
    (setq ge_la (tblnext "LAYER"))
    (Princ ge_la)
    )
  (princ)
)

---

In ACAD funzt es.
In ICAD ("ltplus pure" und "progeCAD") zeigt mit das letzte Princ dass ge_la nach tblnext zu nil wird.
wenn ich jetzt die "Command" Zeile rausnehme läuft die Schleife ganz normal durch und listet die Layer.
Weiss jemand warum b.z.w. hat einen anderen Lösungsvorschlag ?

Mit freundlichen Grüßen
TK

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