老师好，请教点选多个对象和设置颜色号的问题，谢谢

xdcad9819

各位老师好，请教两个问题：
1、能不能用entsel点选多个对象？
2、通过人机输入颜色号，修改实体颜色
以下代码是修改实体的颜色
(Defun c:cs ()

(setq 图元 (entsel "\n 选择一个对象 \n "))

(while (not 图元)
(setq 图元 (entsel "\n 选择一个对象 \n ")) #希望能在这里实现点选多个对象，怎么修改？
)        
(setq 图元名称 (car 图元))

(setq 图元定义信息表 (entget 图元名称))
(
(setq 旧图元表 (assoc 62 图元定义信息表));62表示颜色

(setq 新颜色号 (getint "\n 请输入新颜色号： "))#希望通过人机输入新颜色号


(setq 新图元表 (62 . 新颜色号))#希望能在这里设置想要的颜色号，如何修改？


(setq 新图元定义信息表 (subst 新图元表 旧图元表 图元定义信息表))
(print 新图元定义信息表)        

(entmod 新图元定义信息表)        
)        

newer

1. (defun c:tt ()
   
2. ;用ACAD命令chprop修改颜色
   
3.   (setvar "cmdecho" 0)
   
4.   (while (and (setq e (car (entsel "\n拾取要修改的对象<退出>:")))
   
5.               (setq clr (getint "\n输入颜色号<退出>:"))
   
6.          )
   
7.     (command ".chprop" e "" "color" clr "")
   
8.   )
   
9.   (princ)
   
10. )
    

(defun c:tt ()<br /> ;用ACAD命令chprop修改颜色<br />   (setvar "cmdecho" 0)<br />   (while (and (setq e (car (entsel "\n拾取要修改的对象<退出>:")))<br />               (setq clr (getint "\n输入颜色号<退出>:"))<br />          )<br />     (command ".chprop" e "" "color" clr "")<br />   )<br />   (princ)<br /> )<br />

1. (defun c:tt ()
   
2. ;用修改实体数据修改颜色，颜色祖码是 62
   
3.   (setvar "cmdecho" 0)
   
4.   (while (and (setq e (car (entsel "\n拾取要修改的对象<退出>:")))
   
5.               (setq clr (getint "\n输入颜色号<退出>:"))
   
6.          )
   
7.     (setq ed  (entget e)
   
8.           old (assoc 62 ed)
   
9.           new (cons 62 clr)
   
10.     )
    
11.     (if        old
    
12.       (setq ed (subst new old ed))
    
13.       (setq ed (cons new ed))
    
14.     )
    
15.     (entmod ed)
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:tt ()<br /> ;用修改实体数据修改颜色，颜色祖码是 62<br />   (setvar "cmdecho" 0)<br />   (while (and (setq e (car (entsel "\n拾取要修改的对象<退出>:")))<br />               (setq clr (getint "\n输入颜色号<退出>:"))<br />          )<br />     (setq ed  (entget e)<br />           old (assoc 62 ed)<br />           new (cons 62 clr)<br />     )<br />     (if        old<br />       (setq ed (subst new old ed))<br />       (setq ed (cons new ed))<br />     )<br />     (entmod ed)<br />   )<br />   (princ)<br /> )<br />

1. (defun c:tt ()
   
2. ;用XDRX API
   
3.   (xdrx-begin)
   
4.   (while (and (setq e (car (xdrx-entsel "\n拾取要修改的对象<退出>:")))
   
5.               (setq clr (getint "\n输入颜色号<退出>:"))
   
6.          )
   
7.     (xdrx-setpropertyvalue e "color" clr)
   
8.   )
   
9.   (xdrx-end)
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:tt ()<br /> ;用XDRX API<br />   (xdrx-begin)<br />   (while (and (setq e (car (xdrx-entsel "\n拾取要修改的对象<退出>:")))<br />               (setq clr (getint "\n输入颜色号<退出>:"))<br />          )<br />     (xdrx-setpropertyvalue e "color" clr)<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

1. (defun c:tt ()
   
2. ;用vlax activex com
   
3.   (while (and (setq e (car (entsel "\n拾取要修改的对象<退出>:")))
   
4.               (setq clr (getint "\n输入颜色号<退出>:"))
   
5.          )
   
6.     (setq obj (vlax-ename->vla-object e))
   
7.     (vla-put-color obj clr)
   
8.   )
   
9.   (princ)
   
10. )
    

(defun c:tt ()<br /> ;用vlax activex com<br />   (while (and (setq e (car (entsel "\n拾取要修改的对象<退出>:")))<br />               (setq clr (getint "\n输入颜色号<退出>:"))<br />          )<br />     (setq obj (vlax-ename->vla-object e))<br />     (vla-put-color obj clr)<br />   )<br />   (princ)<br /> )<br />