框选图层对调求助

巛丸

(defun c:as ()
  (vl-load-com)
  (setvar "cmdecho" 0)
  (graphscr)
  (if (setq sss (ssget '((0 . "line") (8 . "colu,ct"))))
    (progn (setq sss1 (ssget "p" '((8 . "ct"))))
           (command "_.select" sss "remove" sss1 "")
           (setq sss2 (ssget "p"))
    )
  )
     (求对调代码)     
  (princ)
)

巛丸

求 对调函数  

Andyhon

2. 
   
3. (defun c:as ()
   
4.   (vl-load-com)
   
5.   (setvar "cmdecho" 0)
   
6.   (cond
   
7.    ((Null (setq sss (ssget '((0 . "line") (8 . "colu,ct"))))))
   
8.    (T
   
9.      (setq sss1 (ssget "p" '((8 . "ct"))))
   
10.      (command "_.select" sss "remove" sss1 "")
    
11.      (setq sss2 (ssget "p"))
    
12.      (command "Chprop" sss1 "" "LA" "colu" "")
    
13.      (command "Chprop" sss2 "" "LA" "ct" "")
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    

<br /> (defun c:as ()<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (cond<br />    ((Null (setq sss (ssget '((0 . "line") (8 . "colu,ct"))))))<br />    (T<br />      (setq sss1 (ssget "p" '((8 . "ct"))))<br />      (command "_.select" sss "remove" sss1 "")<br />      (setq sss2 (ssget "p"))<br />      (command "Chprop" sss1 "" "LA" "colu" "")<br />      (command "Chprop" sss2 "" "LA" "ct" "")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

hao3ren

用change啊，你的选择集都出来了

巛丸

杨如迁

好厉害