二维点转成三维点

自贡黄明儒

;;判断为点
(defun IsPoint (p)
  (not(VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'distance (list '(0 0) P))))
)
;;是二维点
(defun Is2Point        (p)
  (and (IsPoint P) (= (length p) 2))
)
;;是三维点
(defun Is3Point        (p)
  (and (IsPoint P) (= (length p) 3))
)
;;二维点转成三维点
(defun 2P=>3P (P)
  (if (Is2Point P)
    (append p '(0))
  )
)
;;三维点转成二点
(defun 3P=>2P (P)
  (if (Is3Point P)
    (mapcar '+ p '(0 0))
  )
)

mjz521yy

咋么用啊》

soly2006

不错，黄老师不断的做累活，当代雷锋啊，

自贡黄明儒

soly2006 发表于 2014-2-14 16:04
不错，黄老师不断的做累活，当代雷锋啊，

大家不断探讨，才能提高。在晓东上，st788796就回了，判断是否是一个点，还有别的好办法，我双学到一招
(defun isPoint2 (p)
  (not
    (vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point (list p)))
  )
)

xyp1964

;; 来个简陋而繁琐的

2. (defun ispoint (pt)
   
3.   (if (and (= (type pt) 'LIST)
   
4.            (member (length pt) '(2 3))
   
5.            (setq n1 (length pt)
   
6.                  pt (vl-remove-if '(lambda (x) (not (numberp x))) pt)
   
7.                  n2 (length pt)
   
8.            )
   
9.            (= n1 n2)
   
10.       )
    
11.     t
    
12.     nil
    
13.   )
    
14. )

(defun ispoint (pt)<br />   (if (and (= (type pt) 'LIST)<br />            (member (length pt) '(2 3))<br />            (setq n1 (length pt)<br />                  pt (vl-remove-if '(lambda (x) (not (numberp x))) pt)<br />                  n2 (length pt)<br />            )<br />            (= n1 n2)<br />       )<br />     t<br />     nil<br />   )<br /> )

434939575

都是高手啊！

自贡黄明儒

xyp1964 发表于 2014-2-14 22:15
;; 来个简陋而繁琐的

X版，我觉得这样更简化

1. (defun ispoint (pt)
   
2.   (and (= (type pt) 'LIST)
   
3.        (member (length pt) '(2 3))
   
4.        (vl-every 'numberp pt)
   
5.   )
   
6. )

(defun ispoint (pt)<br />   (and (= (type pt) 'LIST)<br />        (member (length pt) '(2 3))<br />        (vl-every 'numberp pt)<br />   )<br /> )

lucas_3333

谢谢长老！

燕尾蝶LISP

学习到了，谢谢老师们

magicheno

感谢大佬学习了