XD::Ent:ChangeColor

marting

1. ;;; 函数名称: XD::Ent:ChangeColor
   
2. ;;; 功能: 修改选定对象的颜色，如果颜色值为 256，则设为 "bylayer"；如果为 0，则设为 "byblock"。
   
3. ;;; 参数:
   
4. ;;;   - ss (选择集/实体): 需要修改颜色的对象。
   
5. ;;;   - co (整数/字符串): 颜色值：
   
6. ;;;       0 - 设置为 "byblock"
   
7. ;;;       256 - 设置为 "bylayer"
   
8. ;;;       其他 - 直接使用指定颜色
   
9. ;;; 返回值:
   
10. ;;;   - 无返回值，直接修改对象颜色。
    
11. (defun XD::Ent:ChangeColor (ss co)
    
12.   ;; 处理特殊颜色值
    
13.   (if (or (not co) (= co 256))
    
14.     (setq co "bylayer")
    
15.   )
    
16.   (if (= co 0)
    
17.     (setq co "byblock")
    
18.   )
    
19. 
    
20.   ;; 执行 AutoCAD "change" 命令
    
21.   (command "change")
    
22.   (command ss)
    
23.   (command "") ;; 结束选择
    
24.   (command "p") ;; 选择上一步选择的对象
    
25.   (command "c") ;; 选择颜色修改
    
26.   (command co) ;; 设置颜色
    
27.   (command "") ;; 结束命令
    
28. )
    

;;; 函数名称: XD::Ent:ChangeColor<br /> ;;; 功能: 修改选定对象的颜色，如果颜色值为 256，则设为 "bylayer"；如果为 0，则设为 "byblock"。<br /> ;;; 参数:<br /> ;;;   - ss (选择集/实体): 需要修改颜色的对象。<br /> ;;;   - co (整数/字符串): 颜色值：<br /> ;;;       0 - 设置为 "byblock"<br /> ;;;       256 - 设置为 "bylayer"<br /> ;;;       其他 - 直接使用指定颜色<br /> ;;; 返回值:<br /> ;;;   - 无返回值，直接修改对象颜色。<br /> (defun XD::Ent:ChangeColor (ss co) <br />   ;; 处理特殊颜色值<br />   (if (or (not co) (= co 256)) <br />     (setq co "bylayer")<br />   )<br />   (if (= co 0) <br />     (setq co "byblock")<br />   )<br /> <br />   ;; 执行 AutoCAD "change" 命令<br />   (command "change")<br />   (command ss)<br />   (command "") ;; 结束选择<br />   (command "p") ;; 选择上一步选择的对象<br />   (command "c") ;; 选择颜色修改<br />   (command co) ;; 设置颜色<br />   (command "") ;; 结束命令<br /> )<br />