[功能] 判断P是否为点

自贡黄明儒

1. ;;[功能] 判断P是否为点
   
2. (DEFUN MJ:Pnt_P (p)
   
3.   (if (and p (Listp p) (or (= (Length p) 3) (= (Length p) 2)) (VL-EVERY 'numberp p))
   
4.     p
   
5.   )
   
6. )
   
7. 
   
8. (DEFUN XD:Pnt_P2 (p)
   
9.   (if (and p
   
10.     (Listp p)
    
11.     (or (= (Length p) 3) (= (Length p) 2))
    
12.     (apply 'and (list mapcar 'numberp p))
    
13.       )
    
14.     p
    
15.   )
    
16. )
    

复制代码

清风明月名字

谢谢楼主代码分享！

tianyi1230

井喷啊。楼主，来套餐源码送吗？