---

Hallo Lispler,

habe da ein altes Lisp aus R12.
Dort konnte man Farbe usw. abfragen.
Das war ganz nützlich bei sehr vielen Layern; und wenn es ein Fremdplan war.
Könnte mir jemand von Euch helfen das zum Laufen zu bringen?
Ich habe da schon dran rumprobiert, aber meine bescheidenen Kenntnisse über lisp reichen nicht aus.
Wäre wirklich nett von Euch.

Ciao

[Diese Nachricht wurde von AsSchu am 31. Mrz. 2004 editiert.]

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

---

ltcol.zip

bin mir bei einem befehl nicht ganz klar, was er meint...habe improvisiert...müsste halt wissen wie es "richtig" aussehen muss

------------------
...so long and thanx for all the fish!

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

---

ich auch ...

(defun c:ltcol( / name liste typ la ltyp col ladef coldef ltdef namelist)
  (if (setq name (car (entsel)))
    (progn
      (setq liste    (entget name)
            typ      (cdr(assoc 0 liste))
            la       (cdr(assoc 8 liste ))
            ltyp     (cdr(assoc 6 liste))
            col      (cdr(assoc 62 liste))
            ladef    (tblsearch "LAYER" la)
            coldef   (cdr(assoc 62 ladef))
            ltdef    (cdr(assoc   6 ladef))           
      )
      (princ (strcat "\n\nObjekt " typ " auf Layer " la "  --> "))
      (if col
        (princ (strcat "\nFarbe:     zugewiesen =  "(itoa col)))
        (princ (strcat "\nFarbe:     VONLAYER ---> " (itoa coldef)))
      )
      (if ltyp
        (princ (strcat "\nLinientyp: zugewiesen =  " ltyp))
        (princ (strcat "\nLinientyp: VONLAYER ---> " ltdef))
      )
    )
  )
  (princ)
)

.. wohl zu lange getestet ... ?! 
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 31. Mrz. 2004 editiert.]

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

---

Vielen, vielen Dank

an marvin 101010 und Cadmium

funktioniert beides hervorragend.
Das hilft mir jetzt total gut bei meinen Plänen mit den vielen Layern und Farben.

Euch beiden 10 U's

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