请教如何通过选择图元对象来获取实体颜色？

jinsong-liao

不同图元对象的颜色号在数据库的存储位置不同，有何简便的办法来获取，
lisp代码该如何编写？请高手们指点指点！多谢了！！！

kohi

[php]
(defun getcolor (a)
  (setq b (vlax-ename->vla-object a))
  (setq lay (vla-get-layer b))
  (setq col (vla-get-color b))
  (if (= col 256)
    (progn
      (setq doc (vla-get-activedocument (vlax-get-acad-object)))
      (setq layobj (vla-item (vla-get-layers doc) lay))
      (setq col (vla-get-color layobj))
    )
  )
  col
)
[/php]

雨箭风刀

[php]
(defun col (e / ent col)
  (setq ent(entget e))
  (or (setq col(cdr(assoc 62 ent)))
      (setq col(cdr(assoc 62 (tblsearch "layer" (cdr(assoc 8 ent)))))))
  col
) [/php]

jinsong-liao

感谢楼上二位的热情回复，祝春节愉快，阖家欢乐！