判断是不是 点 ，点对,转换成2d 3d 4d ,以前写的，以后可能会用到

/db_自贡黄明儒_

1. ;;判断为点
   
2. (defun IsPoint (p)
   
3.   (not(VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'distance (list '(0 0) P))))
   
4. )
   
5. ;;是二维点
   
6. (defun Is2Point        (p)
   
7.   (and (IsPoint P) (= (length p) 2))
   
8. )
   
9. ;;是三维点
   
10. (defun Is3Point        (p)
    
11.   (and (IsPoint P) (= (length p) 3))
    
12. )
    
13. ;;二维点转成三维点
    
14. (defun 2P=>3P (P)
    
15.   (if (Is2Point P)
    
16.     (append p '(0))
    
17.   )
    
18. )
    
19. ;;三维点转成二点
    
20. (defun 3P=>2P (P)
    
21.   (if (Is3Point P)
    
22.     (mapcar '+ p '(0 0))
    
23.   )
    
24. )

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

st788796

vl-catch-all-apply 'vlax-3d-point
这个判断论坛曾经有人用过

/db_自贡黄明儒_

st788796 发表于 2014-2-14 13:17
vl-catch-all-apply 'vlax-3d-point
这个判断论坛曾经有人用过

;;是不是这样的，因为我没有看到过
;;确保是3维点
(defun 3pTrue (p / A)
  (setq a (VL-CATCH-ALL-APPLY 'vlax-3d-point (list p)))
  (if (VL-CATCH-ALL-ERROR-P a)
    nil
    (vlax-safearray->list (vlax-variant-value a))
  )
)

st788796

_$ (vlax-3d-point '(0 1))
#<variant 8197 ...>
_$ (safearray-value (variant-value (vlax-3d-point '(0 1))))
(0.0 1.0 0.0)
_$ (safearray-value (variant-value (vlax-3d-point '(0 1 0))))
(0.0 1.0 0.0)
_$ (vl-catch-all-apply 'vlax-3d-point '(1))
#<%catch-all-apply-error%>
_$ (vl-catch-all-apply 'vlax-3d-point '(1 0))
#<variant 8197 ...>
_$ (vl-catch-all-apply 'vlax-3d-point '(1 0 1))
#<variant 8197 ...>
_$

1. (defun isPoint (lst)
   
2.   (if (and (listp lst)
   
3.            (not        (vl-catch-all-error-p
   
4.                   (vl-catch-all-apply 'vlax-3d-point lst)
   
5.                 )
   
6.            )
   
7.       )
   
8.     t
   
9.     nil
   
10.   )
    
11. )

(defun isPoint (lst)<br />   (if (and (listp lst)<br />            (not        (vl-catch-all-error-p<br />                   (vl-catch-all-apply 'vlax-3d-point lst)<br />                 )<br />            )<br />       )<br />     t<br />     nil<br />   )<br /> )

/db_自贡黄明儒_

st788796 发表于 2014-2-14 14:01
_$ (vlax-3d-point '(0 1))
#
_$ (safearray-value (variant-value (vlax-3d-point '(0 1))))

那就这样写，更简化
(defun isPoint2 (p)
  (not
    (vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point (list p)))
  )
)

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-2-14 14:51
那就这样写，更简化
(defun isPoint2 (p)
  (not

呵呵，又保守了{:soso_e100:}

/db_自贡黄明儒_

Free-Lancer 发表于 2014-2-14 15:25
呵呵，又保守了

好久没有看到你了，今天是情人节，就看到你同你夫人出来了{:soso_e113:}。
呵呵，你说的保守是什么意思，我觉得st788796写的函数中，去掉(listp lst)是完全可以的,什么也不影响

yhly555

能把点转换成为圆不？

scnjlwb

多谢分享！

yoyoho

谢谢！分享程序！！！！