---

Habe schon das Forum durchforstet bin aber nur bedingt fündig geworden.
Ich möchte die RGB True Color Farben in einem Plan mit Referenzen in die ACI (Indexfarben) umwandeln.
Leider gibts im AutoCAD keine Systemvariable mit der man dies umstellen kann.

Ich habe im Forum das hier gefunden.

(defun c:nlaycolor (/ vg layers)
  (setq vg
'((1 . 2);Farbe 1 nach 2
  (70 . 51);Farbe 70 nach 51
  )
layers (tab:getLayers)
)
  (foreach LAYER (mapcar '(lambda (L)
    (entget(tblobjname "LAYER" L))
    )
layers)
    (entmod
      (subst (if(assoc (cdr(assoc 62 LAYER)) vg)
      (cons 62 (cdr (assoc (cdr(assoc 62 LAYER)) vg)))
      (assoc 62 LAYER))
    (assoc 62 LAYER)
    LAYER
    )
      )
    )
  )
(defun tab:getLayers (/ la lali)
  (setq la (tblnext "LAYER" T))
  (while la
    (setq lali (cons (cdr(assoc 2 la)) lali)
  la (tblnext "LAYER"))
    )
  (ACAD_STRLSORT lali)
  )

Würde mir schon weiterhelfen aber funzt momenten nur mit  :

ACI Farben nach ACI Farben.
Brauche aber True Color (RGB) Farben nach ACI Farben.

Würd mich sehr freuen, wenn mir jemand weiterhelfen könnte  .

-Nadia-

------------------
Gruß Nadia

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

---

Hallo Nadia,
folgendes kleine Lisp wandelt ALLE Layerfarben in die korrespondierenden Index-Farben um:

Code:

---

(defun c:LayerColor-2-ACI ( / lay)
  (vl-load-com)
  (vlax-for lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    (vla-put-color lay (vla-get-colorindex (vla-get-truecolor lay)))
  )
)

---

HTH,
Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

(ungetestet) Runterspeichern in eine Version vor Truecoloreinführung ( 2000) könnte auch helfen.

------------------
  - 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

---

       

Vielen Dank funktioniert super....

------------------
Gruß Nadia

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

---

Hallo,
die u. a. Lisp habe ich im Forum gefunden. Ich brauche sie aber genau anders herum. Und zwar Indexfarbe zu Truecolorfarbe. Um genau zu sein die Farbe 8 in 128,128,128 mehrerer Layer.
Ist es möglich diese umzuschreiben?
Danke und Gruß
Beate

folgendes kleine Lisp wandelt ALLE Layerfarben in die korrespondierenden Index-Farben um:

Code:

---

(defun c:LayerColor-2-ACI ( / lay)
  (vl-load-com)
  (vlax-for lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    (vla-put-color lay (vla-get-colorindex (vla-get-truecolor lay)))
  )
)

---

HTH,
Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

(defun c:LAYACI2TC(/ LAY TC)
  (vl-load-com)
  (vlax-for LAY (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))   
  (setq TC(vla-get-truecolor LAY))
  (vla-SetRGB TC (vla-get-red TC) (vla-get-green TC)(vla-get-blue TC))
  (vla-put-truecolor LAY TC)         
  )
)

------------------
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

---

Vielen Dank für die schnelle Antwort! Es läuft ausgezeichnet für alle Layer. Aber besteht auch die Möglichkeit nur die Layer, die die Farbe 8 haben in Truecolor umzuwandeln?
Lieben Gruß und danke
Beate

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

---

Zitat:

---

Original erstellt von BBecker:
Aber besteht auch die Möglichkeit nur die Layer, die die Farbe 8 haben in Truecolor umzuwandeln?
Lieben Gruß und danke
Beate

---

Sicher  

... (if(=(vla-get-color LAY)8) ...

------------------
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

---

Und wie?

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

---

ok .. komplett :

(defun c:LAYACI2TC(/ LAY TC)
  (vl-load-com)
  (vlax-for LAY (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) 
  (if(=(vla-get-color LAY)8)
    (progn
  (setq TC(vla-get-truecolor LAY))
  (vla-SetRGB TC (vla-get-red TC) (vla-get-green TC)(vla-get-blue TC))
  (vla-put-truecolor LAY TC)   
    )
  )   
  )
)

------------------
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

---

Ich kann danke sagen und Unities vergeben, aber in diesem Fall reicht das nicht!
Also fühl Dich herzlich virtuell umarmt!
Ich werde einen superschönen Feierabend haben und Du hoffentlich auch.
Großen Dank und lieben Gruß
Beate

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

---

Ist es auch möglich das ganze nicht auf die layerfarbe sondern auf die Objektfarbe anzuwenden? also wenn die Objektfarbe dummerweise nicht über den Layer gesteuert wird?

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

---

Ja .. ist machbar ... hatte ich auch schon mal ... hieß Colors2aci oder so

------------------
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

---

Ja ich hab den Thread gefunden, funktioniert leider nicht mehr http://forum.cad.de/foren/ubb/Forum54/HTML/019940.shtml

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