社区 › AutoLISP/Visual LISP 编程技术 › 请问如何获取图元的颜色号啊，比如红色是1，灰色是8等等

tranney 发表于 2014-5-9 01:40:28

请问如何获取图元的颜色号啊，比如红色是1，灰色是8等等

请问如何获取图元的颜色号啊，比如红色是1，灰色是8等，谢谢

nzl1116 发表于 2014-5-9 03:33:48

组码62表示颜色号

ZZXXQQ 发表于 2014-5-9 07:49:27

(if (setq s1 (entsel "\n选择图元: ")) (progn
(setq ent (entget(car s1)))
(if (assoc 62 ent)
(setq co (cdr(assoc 62 ent)))
(setq co (cdr(assoc 62 (tblsearch "LAYER" (cdr(assoc 8 ent))))))
)

AbnerXk 发表于 2014-5-9 08:32:32

(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Color )

查看完整版本: 请问如何获取图元的颜色号啊，比如红色是1，灰色是8等等