[功能] 判断P是否为点

自贡黄明儒 发表于 2013-10-9 10:31:54

本帖最后由自贡黄明儒于 2013-10-12 08:18 编辑

;;[功能] 判断P是否为点
(DEFUN MJ:Pnt_P (p)
(if (and p (Listp p) (or (= (Length p) 3) (= (Length p) 2)) (VL-EVERY 'numberp p))
p
)
)

(DEFUN XD:Pnt_P2 (p)
(if (and p
(Listp p)
(or (= (Length p) 3) (= (Length p) 2))
(apply 'and (list mapcar 'numberp p))
)
p
)
)

清风明月名字 发表于 2013-10-9 10:43:36