[功能] 判断P是否为点

/db_自贡黄明儒_ · 发表于 2013-10-9 15:00:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;[功能] 判断P是否为点
;;示例(XD::Pnt_P1 (getpoint))
(DEFUN XD::Pnt_P1 (p)
  (if (and p
         (Listp p)
         (or (= (Length p) 3) (= (Length p) 2))
         (VL-EVERY 'numberp p)
   )
p
  )
)
;;示例(XD::Pnt_P2 (getpoint))
(DEFUN XD::Pnt_P2 (p)
  (if (and p
         (Listp p)
         (or (= (Length p) 3) (= (Length p) 2))
         (apply 'and (list mapcar 'numberp p))
   )
p
  )
)

XDSoft · 发表于 2013-10-9 16:27:20

函数完善后，请用函数发布发布吧，自贡。

snsj · 发表于 2013-10-10 00:41:35

直接用错误机制判断多好
(defun pd-pt(pt)
(null(vl-catch-all-error-p(vl-catch-all-apply 'distance (list '(0 0) pt))))
)

st788796 · 发表于 2013-10-10 08:13:21

做个记号
_$ (null (vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point '(0))))
nil
_$ (null (vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point '(0 1))))
T
_$ (null (vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point '(0 "1"))))
nil
_$

账号		自动登录	找回密码
密码			立即注册

[发布] [功能] 判断P是否为点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

评分