（XD::List:IsPoint）判断参数是否是点

newer

1. (defun xd::list:ispoint (x tf / v)
   
2.     (and (= (type x) 'list)
   
3.          (or (= (length x) 2) (= (length x) 3))
   
4.          (xd::vla:apply * x)
   
5.          (if tf
   
6.            (setq v (if (= (length x) 2)
   
7.                      (list (car x) (cadr x) 0.0)
   
8.                      x
   
9.                    )
   
10.            )
    
11.            (setq v x)
    
12.          )
    
13.     )
    
14.     v
    
15. )
    
16. 
    

(defun xd::list:ispoint (x tf / v)<br />     (and (= (type x) 'list)<br />          (or (= (length x) 2) (= (length x) 3))<br />          (xd::vla:apply * x)<br />          (if tf<br />            (setq v (if (= (length x) 2)<br />                      (list (car x) (cadr x) 0.0)<br />                      x<br />                    )<br />            )<br />            (setq v x)<br />          )<br />     )<br />     v<br /> )<br /> <br />

fdh

学习学习！！！！！