如何用lisp改变CAD中某个类型图元的颜色

南林浣风

怎样用实现CAD一个图层上某个图元的颜色

YueFeng

你需要的是找一本基础的书，先自己学习下LISP基础

ZZXXQQ

2. (defun c:tt ()
   
3. (if (setq co (acad_colordlg 0))
   
4.   (while (setq s1 (entsel "\n选择图元: "))
   
5.    (command "_.CHPROP" s1 "" "C" co "")
   
6.   )
   
7. )
   
8. (princ)
   
9. )

(defun c:tt ()<br /> (if (setq co (acad_colordlg 0))<br />   (while (setq s1 (entsel "\n选择图元: "))<br />    (command "_.CHPROP" s1 "" "C" co "")<br />   )<br /> )<br /> (princ)<br /> )

南林浣风

YueFeng 发表于 2015-4-6 08:45
你需要的是找一本基础的书，先自己学习下LISP基础

买的书上没有，我才问的

南林浣风

ZZXXQQ 发表于 2015-4-6 10:23

谢谢，谢谢