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

;=>判断物体是否距形

本帖最后由 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:14

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

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

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

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

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

判断矩形：平面四点表中，任意两点间距离等于另外两点距离，即为矩形
页: [1]
查看完整版本: ;=>判断物体是否距形