---

Hallo zusammen.

Ich würde gern aus verschiedenen Ansichtsfenstern Layer und deren (AF) Layerfarben auslesen und dann auf andere Ansichtsfenster übertragen. Das übertragen sollte nicht das Problem sein einfach mit einer (command "_vplayer" )... wieder auf das neue Ansichtsfenster übertragen. Das Problem ist eher wo bekomme ich die geänderten Layerfarben in den einzelnen Ansichtsfenstern her? Die Layernamen ziehe ich mir über den GC 331 (gefrorene Layer) des Viewports. Aber die Farbe? Evtl hat da jemand rat. Ich habe bei google und auch hier über die su-fu leider nichts passendes gefunden.
Danke
lg CADblue

[Diese Nachricht wurde von CADblue am 21. Feb. 2019 editiert.]

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

---

Hallo CADblue,
vor ganz langer Zeit hatte ich mal ein ähnliches Problem, im Prinzip ist es doch das, was Du auch wissen willst?

http://ww3.cad.de/foren/ubb/Forum145/HTML/002333.shtml

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Foto-Manager Youtube

[Diese Nachricht wurde von joern bosse am 21. Feb. 2019 editiert.]

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

---

Hallo Jörn,
danke für die schnelle Antwort, sieht auf den ersten blick ganz hilfreich aus. werde mich heute abend oder morgen mal genauer mit dem code beschäftigen. Scheint aber der richtige weg zu sein. Vielen Dank schonmal 

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

---

Hallo nochmal zusammen!!!
Hey Jörn, jetzt habe ich doch nochmal eine Frage zu deinem Code, ich konnte Ihn soweit nachvollziehen. Jetzt stehe ich allerdings bei dem Farbcode auf dem schlauch. Welche Codierungsform hat die enthaltene Farbe denn?

Code:

---

(
("3"
(
(
(-1 . <Objektname: 5131db60>)
(0 . "LAYER")
(5 . "216")
(102 . "{ACAD_XDICTIONARY")
(360 . <Objektname: 5131dd40>)
(102 . "}")
(330 . <Objektname: 41509020>)
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbLayerTableRecord")
(2 . "3")
(70 . 0)
(62 . 3)
(6 . "Continuous")
(290 . 1)
(370 . -3)
(390 . <Objektname: 415090f0>)
(347 . <Objektname: 41509210>)
(348 . <Objektname: 0>)
)
(
(-1 . <Objektname: 5131dd40>)
(0 . "DICTIONARY")
(330 . <Objektname: 5131db60>)
(5 . "234")
(100 . "AcDbDictionary")
(280 . 1)
(281 . 1)
(3 . "ADSK_XREC_LAYER_COLOR_OVR")
(360 . <Objektname: 5131dd50>)
)
(
("COLOR"
(
(
(335 . <Objektname: 5131dcc0>)
(420 . -1023410174)
)
)
)
)
)
)
("2"
(
(
(-1 . <Objektname: 5131db40>)
(0 . "LAYER")
(5 . "214")
(102 . "{ACAD_XDICTIONARY")
(360 . <Objektname: 5131dd20>)
(102 . "}")
(330 . <Objektname: 41509020>)
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbLayerTableRecord")
(2 . "2")
(70 . 0)
(62 . 2)
(6 . "Continuous")
(290 . 1)
(370 . -3)
(390 . <Objektname: 415090f0>)
(347 . <Objektname: 41509210>)
(348 . <Objektname: 0>)
)
(
(-1 . <Objektname: 5131dd20>)
(0 . "DICTIONARY")
(330 . <Objektname: 5131db40>)
(5 . "232")
(100 . "AcDbDictionary")
(280 . 1)
(281 . 1)
(3 . "ADSK_XREC_LAYER_COLOR_OVR")
(360 . <Objektname: 5131dd30>)
)
(
("COLOR"
(
(
(335 . <Objektname: 5131dcc0>)
(420 . -1023410175)
)
)
)
)
)
)
("1"
(
(
(-1 . <Objektname: 5131db20>)
(0 . "LAYER")
(5 . "212")
(102 . "{ACAD_XDICTIONARY")
(360 . <Objektname: 5131dd00>)
(102 . "}")
(330 . <Objektname: 41509020>)
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbLayerTableRecord")
(2 . "1")
(70 . 0)
(62 . 1)
(6 . "Continuous")
(290 . 1)
(370 . -3)
(390 . <Objektname: 415090f0>)
(347 . <Objektname: 41509210>)
(348 . <Objektname: 0>)
)
(
(-1 . <Objektname: 5131dd00>)
(0 . "DICTIONARY")
(330 . <Objektname: 5131db20>)
(5 . "230")
(100 . "AcDbDictionary")
(280 . 1)
(281 . 1)
(3 . "ADSK_XREC_LAYER_COLOR_OVR")
(360 . <Objektname: 5131dd10>)
)
(
("COLOR"
(
(
(335 . <Objektname: 5131dcc0>)
(420 . -1023410173)
)
)
)
)
)
)
)

---

ich mein ich kann sehen das in den 3 geänderten Layern auch andere Farben zugewiesen sind, aber wie kann ichs wieder auf RGB oder Truecolor zurückumrechnen?
hab auf die schnelle leider nix im netz gefunden.
Danke
mfg
CADblue

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

---

Hallo CADblue,
Du hast doch die Gruppencodes 420, d.h., es handelt sich um RGB-Farben. Wie der Code erzeugt wird kannst Du über folgende Seite entnehmen (ACI->RGB) http://www.lee-mac.com/colourconversion.html

Aber musst Du das überhaupt? Du willst doch die Farbe nur in ein neues Ansichtsfenster weitergeben, dann kann der Code doch bleiben wir er ist.

Habe gerade aber ganz wenig Zeit, deswegen nur die stichpunktartige Antwort.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Foto-Manager Youtube

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

---

hat sich erledigt, habs hinbekommen dank

Code:

---

(defun split ( #c / )
(caddr(list (lsh (fix #c) -16)
      (lsh (lsh (fix #c) 16) -24)
      (lsh (lsh (fix #c) 24) -24)
)
)
)

---

nices tool Jörn
nochmal danke
worked

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

---

Oder so

------------------
Gruß Wolfgang

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