;=>判断物体是否距形

ymcui · 发表于 2017-9-26 16:11

本帖最后由 ymcui 于 2017-9-27 09:20 编辑

;=>判断物体是否距形
;=>返回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))))
  )
)

xinxirong · 发表于 2017-9-26 17:54

不一定是矩形，有可能是平行四边形

pzweng · 发表于 2017-9-26 20:15

本帖最后由 pzweng 于 2017-9-26 20:19 编辑

应该判断3个角为90度的4边形,或者对角为90度.翻下书看看矩形的判定

fan_zh · 发表于 2017-9-27 09:08

判断矩形：平面四点表中，任意两点间距离等于另外两点距离，即为矩形

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

[源码] ;=>判断物体是否距形

评分