color, etc bylayer

[TCEBob]

Is there a routine that will identify an object's color, linetype, lineweight even tho they are "bylayer"? It's a pain to have to go to the layer dialog. Also a pain when trying to replicate a color programmatically. I've started one, but hate to rebuild a pyramid if it's already out there.

rs

 

[James Buzbee]

(setq color
(cdr(assoc 62
(entget(tblobjname "layer"
(cdr(assoc 8(entget(car(entsel))))))))))

or

(setq color(vla-get-color
(vla-item
(vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) (vla-get-layer(vlax-ename->vla-object(car(entsel)))))))

jb

 

[TCEBob]

(setq color
(cdr(assoc 62
(entget(tblobjname "layer"
(cdr(assoc 8(entget(car(entsel))))))))))

or

(setq color(vla-get-color
(vla-item
(vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) (vla-get-layer(vlax-ename->vla-object(car(entsel)))))))

jb

Thank you, sir.

rs