---

Ich suche ein Lisp, mit dem man ein Objekt anwählt, und das die Farbe, Layer und Linientyp des gewählten Objekts aktuell setzt.
Ähnlich MATCHPROP, aber nicht die Eigenschaften übernehmen sondern setzen.

Gruss Maese

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

---

Bitte:
(defun c:PROP-FROM-OBJEKT ( / OBJEKT OBJEKTDATEN)
  (if (setq OBJEKT (car(entsel "OBJEKT wählen: ")))
    (progn
      (setq OBJEKTDATEN (entget OBJEKT))
      (setvar "CLAYER" (cdr(assoc 8 OBJEKTDATEN)))
      (if(assoc 62 OBJEKTDATEN)
         (setvar "CECOLOR" (itoa(abs(cdr(assoc 62 OBJEKTDATEN)))))
         (setvar "CECOLOR" "BYLAYER")
      )           
      (if (assoc 6 OBJEKTDATEN)
        (setvar "CELTYPE" (cdr(assoc 6 OBJEKTDATEN)))
        (setvar "CELTYPE" "BYLAYER")          
      )
      (if (and(assoc 48 OBJEKTDATEN)(/= (cdr(assoc 48 OBJEKTDATEN))0))
        (setvar "CELTSCALE" (cdr(assoc 48 OBJEKTDATEN)))
        (setvar "CELTSCALE" 1.0)                  
      )
      (if (assoc 370 OBJEKTDATEN)
        (setvar "CELWEIGHT" (cdr(assoc 370 OBJEKTDATEN)))
        (setvar "CELWEIGHT" -1)
      )                  
    )
  ) 
)

------------------
    - Thomas -

[Diese Nachricht wurde von CADmium am 29. Jul. 2004 editiert.]

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

---

alles schonmal dargewesen.... 
http://ww3.cad.de/foren/ubb/Forum54/HTML/002727.shtml

------------------
- Sebastian -

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

---

Dnake vielmal CADmium

Genau das hab ich gesucht.

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