（XD::Pnts:X<->Y）点表中的点X,Y互换

newer

1. (defun XD::Pnts:X<->Y        (pts tf / v)
   
2.     (vl-remove
   
3.       nil
   
4.       (mapcar
   
5.         '(lambda (x)
   
6.            (if (setq v (xd::list:ispoint x tf))
   
7.              (cond ((= (length v) 3) (list (cadr v) (car v) (last v)))
   
8.                    (t (list (cadr v) (car v)))
   
9.              )
   
10.              nil
    
11.            )
    
12.          )
    
13.         pts
    
14.       )
    
15.     )
    
16. )
    
17. 
    

(defun XD::Pnts:X<->Y        (pts tf / v)<br />     (vl-remove<br />       nil<br />       (mapcar<br />         '(lambda (x)<br />            (if (setq v (xd::list:ispoint x tf))<br />              (cond ((= (length v) 3) (list (cadr v) (car v) (last v)))<br />                    (t (list (cadr v) (car v)))<br />              )<br />              nil<br />            )<br />          )<br />         pts<br />       )<br />     )<br /> )<br /> <br />