（XD::List:Flat-Point）将多重点表FLAT到一层

marting

1. (defun XD::List:Flat-Point (x)
   
2.   (defun _atom (x)
   
3.     (or        (and (= (type x) 'LIST)
   
4.              (or (= (length x) 2)
   
5.                  (= (length x) 3)
   
6.              )
   
7.              (vl-every '(lambda (x) (numberp x)) X)
   
8.         )
   
9.         (atom x)
   
10.     )
    
11.   )
    
12.   (cond
    
13.     ((null x) x)
    
14.     ((_atom x) (list x))
    
15.     ((append (XD::List:Flat-Point (car x)) (XD::List:Flat-Point (cdr x))))
    
16.   )
    
17. )
    

(defun XD::List:Flat-Point (x)<br />   (defun _atom (x)<br />     (or        (and (= (type x) 'LIST)<br />              (or (= (length x) 2)<br />                  (= (length x) 3)<br />              )<br />              (vl-every '(lambda (x) (numberp x)) X)<br />         )<br />         (atom x)<br />     )<br />   )<br />   (cond<br />     ((null x) x)<br />     ((_atom x) (list x))<br />     ((append (XD::List:Flat-Point (car x)) (XD::List:Flat-Point (cdr x))))<br />   )<br /> )<br />

命令: !a
((((321.732 -1841.98 0.0) (1684.06 -845.055 0.0) (2000.56 -1800.73 0.0)
(1567.09 -1979.48 0.0) (321.732 -1841.98 0.0))) (((2881.25 -1381.33 0.0)
(4257.34 -590.668 0.0) (4394.95 -1910.73 0.0) (3789.47 -1676.97 0.0) (2881.25
-1381.33 0.0))) (((1499.32 928.383 0.0) (2339.05 1458.97 0.0) (2772.46 698.281
0.0) (2398.65 343.653 0.0) (2309.25 644.139 0.0) (1875.85 262.44 0.0) (1818.96
638.725 0.0) (1548.08 376.138 0.0) (1336.79 522.32 0.0) (1499.32 928.383 0.0))))

命令: (xd::list:flat-point a)
((321.732 -1841.98 0.0) (1684.06 -845.055 0.0) (2000.56 -1800.73 0.0) (1567.09
-1979.48 0.0) (321.732 -1841.98 0.0) (2881.25 -1381.33 0.0) (4257.34 -590.668
0.0) (4394.95 -1910.73 0.0) (3789.47 -1676.97 0.0) (2881.25 -1381.33 0.0)
(1499.32 928.383 0.0) (2339.05 1458.97 0.0) (2772.46 698.281 0.0) (2398.65
343.653 0.0) (2309.25 644.139 0.0) (1875.85 262.44 0.0) (1818.96 638.725 0.0)
(1548.08 376.138 0.0) (1336.79 522.32 0.0) (1499.32 928.383 0.0))