---

Ich hätte gerne denn Befehl layaktm angepasst damit der nicht nur denn aktuellen Layer übernimmt sondern auch die Farbe des gewählten Objekts...

Wie stelle ich das am einfachsten an ?

Danke für Tipps...

Befehl liegt auf Shift+Q bei mir...

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

---

Da man heute ja auch Truecolor berücksichtigen müßte ist die saubere Lösung viel aufwändiger wie es scheint.

- Objektwahl (einzel)

- Layer ermitteln

- Farbe ermitteln
  - schauen ob "VonLayer" (gc62 nicht vorhanden)
    - wenn nicht, ermitteln ob Truecolor verwendet wurde(gc420)
      - ..

Dann die Farbinformation so aufbereiten das man die Systemvariable CECOLOR oder den Befehl _-COLOR bedienen kann.
Den Layer dann einfach mit CLAYER steuern (aber an den Systemvariablen wird es ja nicht haken, die sind ja bekannt)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Fingerübung :

(defun C:PROPSET(/ OBJ DATA L C1 C2 C3 C R G B)
  (vl-load-com)
  (if(and(setq OBJ (car(entsel "\nObjekt wählen: ")))
        (setq DATA(entget OBJ))
    )   
    (progn
      (setq L  (cdr(assoc  8 DATA)))
      (setq C1 (cdr(assoc  62 DATA)))
      (setq C2 (cdr(assoc 420 DATA)))
      (setq C3 (cdr(assoc 430 DATA)))
      (cond
        (C3 (setq C C3))
        (C2
        (progn
          (setq R (lsh (fix      C2)    -16))
          (setq G (lsh (lsh (fix C2) 16) -24))
          (setq B (lsh (lsh (fix C2) 24) -24))
          (setq C (strcat "RGB:"(itoa R)","(itoa G)","(itoa B)))
        )
        )
        ((> C1 0) (setq C (itoa C1)))
        ((= C1 0) (setq C "BYBLOCK"))
        ('T (setq C "BYLAYER"))
      )
      (vl-catch-all-apply 'setvar (list "CLAYER"  L))
      (vl-catch-all-apply 'setvar (list "CECOLOR" C))
    )
  ) 
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Danke Sehr nett...

Möglich hier auch noch denn Linientyp und Linienstärke mit zu nehmen  

Dankeeeee

[Diese Nachricht wurde von Bunnyguard am 27. Feb. 2015 editiert.]

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

---

natürlich, passe es dir an wie benötigt. Weitere Beispiele: Klick!

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

SetAct dürfte genau das sein, was du suchst.

------------------
Gruß

Michi

"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)

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