如何得到，并设置一个实体的颜色？

levin

如何得到，并设置一个实体的颜色？
比如得到：一个圆的颜色，如果不是我想要的颜色，那么重新设置一个新的颜色。

EPISODE

查看、修改DXF组码，“62
颜色号（如果不是“随层”，则出现）；零表示“随块”（可变的）颜色；256 表示“随层”；负值表示层已关闭（可选）
”，即可解决问题。

levin

能给一段代码吗？

龙龙仔

;;(TT 2)
(defun TT (COL)
  (setq EG2 (entget (car (entsel))))
  (if (assoc 62 EG2)
    (setq EG2 (subst (cons 62 COL) (assoc 62 EG2) EG2))
    (setq EG2 (append EG2 (list (cons 62 COL))))
  )
  (entmod EG2)
  (princ)
)