ssget的過濾功能

lead009

2. (defun C:111()
   
3.   (setq cc 1 layn "TXT")
   
4.   (setq ss11(ssget "X" (list(cons 0 "LINE") (cons 8 layn ))))
   
5.   (setq n 0)
   
6.   (repeat (sslength ss11)
   
7.     (setq en(ssname ss11 n))
   
8.     (command"chprop" en "" "C" "2" "" "")
   
9.     (setq n(+ n 1))
   
10.   )
    
11.   (setq txt(itoa  (sslength ss11)));  "-10"
    
12.   
    
13.   (alert txt)
    
14. (prin1)
    
15. )

(defun C:111()<br />   (setq cc 1 layn "TXT")<br />   (setq ss11(ssget "X" (list(cons 0 "LINE") (cons 8 layn ))))<br />   (setq n 0)<br />   (repeat (sslength ss11)<br />     (setq en(ssname ss11 n))<br />     (command"chprop" en "" "C" "2" "" "")<br />     (setq n(+ n 1))<br />   )<br />   (setq txt(itoa  (sslength ss11)));  "-10"<br />   <br />   (alert txt)<br /> (prin1)<br /> )

如上，ssget"X"可以過濾出"直線"且"在圖層"txt"的物件，然後將其換顏色為黃色如果我想換成過濾條件是"(0 . "LINE")  (0 . "ARC)"。如此SSGET就辦不到了

有什麼方法可以取代之嗎?

Gu_xl

回复 lead009 的帖子

(setq ss11(ssget "X" (list(cons 0 "LINE,arc") (cons 8 layn ))))

lead009

謝謝你啦~~~幫助我很多