如何框选所有物体过滤不同的物体改变其颜色

ymcui

如图框选所有直线和文字,直线颜色变成红色,文字颜色变成黄色.谢谢

2. (defun c:TT()
   
3. (setq ss (ssget))
   
4.       (if (= t1 "TEXT")
   
5. (PROGN
   
6. (COMMAND "CHPROP" ?? "" "Color" "2" "" )
   
7. )
   
8. )
   
9.       (if (= t1 "LINE")
   
10. )
    
11. (COMMAND "CHPROP" ?? "" "Color" "1" "" )
    
12. )
    
13. )
    
14. )
    

(defun c:TT()<br /> (setq ss (ssget))<br />       (if (= t1 "TEXT")<br /> (PROGN<br /> (COMMAND "CHPROP" ?? "" "Color" "2" "" )<br /> )<br /> )<br />       (if (= t1 "LINE")<br /> )<br /> (COMMAND "CHPROP" ?? "" "Color" "1" "" )<br /> )<br /> )<br /> )<br />

xyp1964

2. (defun c:tt ()
   
3.   (setq ss (ssget '((0 . "text,line"))))
   
4.   (setq ss1 (ssget "p" '((0 . "text"))))
   
5.   (command "chprop" ss1 "" "color" "2" "")
   
6.   (command "select" ss "")
   
7.   (setq ss1 (ssget "p" '((0 . "line"))))
   
8.   (command "chprop" ss1 "" "color" "1" "")
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   (setq ss (ssget '((0 . "text,line"))))<br />   (setq ss1 (ssget "p" '((0 . "text"))))<br />   (command "chprop" ss1 "" "color" "2" "")<br />   (command "select" ss "")<br />   (setq ss1 (ssget "p" '((0 . "line"))))<br />   (command "chprop" ss1 "" "color" "1" "")<br />   (princ)<br /> )

ymcui

xyp1964 发表于 2014-5-24 10:02

感谢xyp1964 的帮助,谢谢