判断物体是否距形

ymcui2005 · 发表于 2017-9-26 16:17:32

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

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

×

本帖最后由 ymcui2005 于 2017-9-27 09:18 编辑

;=>判断物体是否距形
;=>返回T或nil
(defun XD:From-shape (lst)
  (
(lambda (a b c d)
   (and
      (equal a 4)
      (equal b c 0.001)
      (or(equal d 90 0.01)(equal d 270 0.01))
   )
)
(vl-list-length lst)(distance (car lst)(cadr lst))(distance (caddr lst)(last lst))
(abs (- (atof (angtos (angle (car lst)(cadr lst)) 0 4))(atof (angtos (angle (cadr lst)(caddr lst)) 0 4))))
  )
)

75215195 · 发表于 2017-9-26 17:07:58

本帖最后由 75215195 于 2017-9-26 17:43 编辑

很棒的程序，学习了。我有一个疑问，
我在画一个菱形的时候，边数 a=4 T 长度(equal b c) nill
理论上菱形的对边也应该是相等的，为什么函数中长度 (equal b c) nill ;（equal b c 0.0001) T
或者是我画的菱形对边不等?
(setq lst '((9.48569 20.7034) (14.2799 28.4796) (29.2799 28.4796) (24.4857 20.7034))); 菱形点表

ymcui2005 · 发表于 2017-9-27 09:11:13

75215195 发表于 2017-9-26 17:07

增加角度判断就可以

ful2ham · 发表于 2017-11-16 15:16:01

很棒谢谢分享

fy1005 · 发表于 2019-12-25 15:59:49

不错的函数，学习一下算法

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

[表] 判断物体是否距形

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