levin 发表于 2003-12-31 11:51:00

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

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

EPISODE 发表于 2003-12-31 13:01:00

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

levin 发表于 2003-12-31 14:12:00

能给一段代码吗？

龙龙仔 发表于 2003-12-31 17:01:00

;;(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)
)
页: [1]
查看完整版本: 如何得到，并设置一个实体的颜色？