Zuordnung einer Schicht zu Einheiten, die eine bestimmte Farbe haben

[dervit]

hallo, alle.
ich wollte fragen, ob es eine lispe gibt, die die möglichkeit gibt, eine schicht allen linien oder polylinien zuzuordnen, die eine bestimmte farbe haben.
ich muss in der lage sein, schichten nach der konvertierung einer pdf-datei in ihre dwg leicht zu erstellen. mit der umwandlung leider verlieren sie die ursprünglichen schichten. allerdings bleiben die zuvor zugeordneten farben unverändert.
ich hoffe, ich war klar.
danke

 

[GP.]

nachweis questo:(Defun cbjcolay)
(Setq cmdecho)
(Setvar "cmdecho" 0)
(Befehl "_undo" "_g")
(setq sset (ssget))
(falls/= sset nil)
(Prog.)
(setq num (sslength sset) itm 0)
(fällt)
(setq hnd (Name sset itm))
(setq ent (entget hnd)
(setq col (cdr (assoc 62 ent))
(falls/= col nil)
(falls (und (> col 0)(< col 256))
(Prog.)
(setq lagen (strcat "color" (itoa col)))
(wenn (= (tblsearch "layer" lay) nil)
(Befehl "_layer" "_n" lag "_c" col lag "")
)
(Befehl "_chprop" hnd "" "_la" lag "_c" "_bylayer"")
)
)
)
(setq itm (1+ itm))
)
(princ ", fertig.)
)
)
(setq sset nil)
(Befehl "_undo" "_e")
(Setvar "cmdecho" cmdecho)
(princ)
)
(Defun cbjcolay)
(Setq cmdecho)
(Setvar "cmdecho" 0)
(Befehl "_undo" "_g")
(setq sset (ssget))
(falls/= sset nil)
(Prog.)
(setq num (sslength sset) itm 0)
(fällt)
(setq hnd (Name sset itm))
(setq ent (entget hnd)
(setq col (cdr (assoc 62 ent))
(falls/= col nil)
(falls (und (> col 0)(< col 256))
(Prog.)
(setq lagen (strcat "color" (itoa col)))
(wenn (= (tblsearch "layer" lay) nil)
(Befehl "_layer" "_n" lag "_c" col lag "")
)
(Befehl "_chprop" hnd "" "_la" lag "_c" "_bylayer"")
)
)
)
(setq itm (1+ itm))
)
(princ ", fertig.)
)
)
(setq sset nil)
(Befehl "_undo" "_e")
(Setvar "cmdecho" cmdecho)
(princ)
)

 

[dervit]

hi, gp.
danke für die liste.
ich habe es nicht sofort bekommen, aber genau das habe ich gesucht.
danke für alles.