API应用 判断PLINE是否构成矩形

st788796

1. (defun Polyline:IsRectang (e / box p1 p2 p3 p4)
   
2.   (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")
   
3.        (not (xdrx_polyline_hasbulges e))
   
4.        (> (xdrx_polyline_numverts e) 3)
   
5.        (setq box (xdrx_geom_searchoutline e))
   
6.        (= (length box) 5)
   
7.        (mapcar 'set '(p1 p2 p3 p4) box)
   
8.        (equal (distance p1 p3) (distance p2 p4) 1e-6)
   
9.        (equal (xdrx_line_midp p1 p3) (xdrx_line_midp p2 p4) 1e-6)
   
10.   )
    
11. )
    

(defun Polyline:IsRectang (e / box p1 p2 p3 p4)<br />   (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")<br />        (not (xdrx_polyline_hasbulges e))<br />        (> (xdrx_polyline_numverts e) 3)<br />        (setq box (xdrx_geom_searchoutline e))<br />        (= (length box) 5)<br />        (mapcar 'set '(p1 p2 p3 p4) box)<br />        (equal (distance p1 p3) (distance p2 p4) 1e-6)<br />        (equal (xdrx_line_midp p1 p3) (xdrx_line_midp p2 p4) 1e-6)<br />   )<br /> )<br />

newer

(> (xdrx_polyline_numverts e) 3)



要是考虑重复点段的话，先用 xdrx_polyline_compress 处理下，然后判断封闭的4个点，不封闭的5个点，长乘宽等于面积就行了吧。

st788796

这样就简单了，函数太多搞晕了

1. (defun Polyline:IsRectang (e / nums)
   
2.   (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")
   
3.        (not (xdrx_polyline_hasbulges e))
   
4.        (xdrx_polyline_compress e t)
   
5.        (or (= (setq nums (xdrx_polyline_numverts e)) 4) (= nums 5))
   
6.        (equal (car (xdrx_getarea e))
   
7.               (* (apply 'distance (xdrx_polyline_getlinesegat e 0))
   
8.                  (apply 'distance (xdrx_polyline_getlinesegat e 3))
   
9.               )
   
10.               1e-6
    
11.        )
    
12.   )
    
13. )

(defun Polyline:IsRectang (e / nums)<br />   (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")<br />        (not (xdrx_polyline_hasbulges e))<br />        (xdrx_polyline_compress e t)<br />        (or (= (setq nums (xdrx_polyline_numverts e)) 4) (= nums 5))<br />        (equal (car (xdrx_getarea e))<br />               (* (apply 'distance (xdrx_polyline_getlinesegat e 0))<br />                  (apply 'distance (xdrx_polyline_getlinesegat e 3))<br />               )<br />               1e-6<br />        )<br />   )<br /> )

newer

st788796 发表于 2013-11-19 00:05
这样就简单了，函数太多搞晕了

好像还应该完善下，对于不封闭的，第五点是否和第一点重合，要不不重合，你这个函数也是返回T的。或者你再判断下 最后一段和第一段乘是否等于面积，两边都相等才是矩形。

st788796

newer 发表于 2013-11-19 01:13
好像还应该完善下，对于不封闭的，第五点是否和第一点重合，要不不重合，你这个函数也是返回T的。或者你 ...

直接判断 0 3 段即可，已修改

XDSoft

st788796 发表于 2013-11-19 07:02
直接判断 0 3 段即可，已修改

去提交个通用函数吧，谢谢。

st788796

XDSoft 发表于 2013-11-19 08:40
去提交个通用函数吧，谢谢。

再考虑增加正多边形判断
正多边判断有意义吗？

XDSoft

st788796 发表于 2013-11-19 09:45
再考虑增加正多边形判断
正多边判断有意义吗？

也有需要。

st788796

XDSoft 发表于 2013-11-19 09:49
也有需要。

可以再分出来点集矩形，正多边形判断

st788796

用searchoutline还可以判断组合线是否构成矩形，不限于单个polyline

gzgbzh

这个好，正需要这个功能