XDGE几何库应用(25)--矩形判断

st788796 · 发表于 2014-10-8 10:33:36

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

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

×

(defun isRectang (e / ge gCurveList nCurveList tf)
(and
(setq ge (xdge::constructor e)
gCurveList (xdge::entity:3d->2d
(xdge::getpropertyvalue ge "getCurveList")
);_2d 线的方法更多
)
(=
(length
(setq nCurveList
(vl-remove
nil
(mapcar
'(lambda (x y)
(if (xdge::getpropertyvalue
x
"isColinearTo"
y
)
nil
x
)
)
gCurveList
(cdr (reverse (cons (car gCurveList)
(reverse gCurveList)
)
)
)
)
);_去除在同一条线上段
)
)
4
)
(setq tf
(apply
'and
(mapcar
'(lambda (x y)
(xdge::getpropertyvalue x "isPerpendicularTo" y)
);_判断前后是垂直关系
nCurveList
(cdr
(reverse (cons (car nCurveList) (reverse nCurveList))
)
)
)
)
)
(xdge::free)
)
tf
)

(defun isRectang (e / ge gCurveList nCurveList tf) 
  (and 
    (setq ge             (xdge::constructor e) 
          gCurveList (xdge::entity:3d->2d 
                       (xdge::getpropertyvalue ge "getCurveList") 
                     );_2d 线的方法更多 
    ) 
    (= 
      (length 
        (setq nCurveList 
               (vl-remove 
                 nil 
                 (mapcar 
                   '(lambda (x y) 
                      (if (xdge::getpropertyvalue 
                            x 
                            "isColinearTo" 
                            y 
                          ) 
                        nil 
                        x 
                      ) 
                    ) 
                   gCurveList 
                   (cdr        (reverse (cons (car gCurveList) 
                                       (reverse gCurveList) 
                                 ) 
                        ) 
                   ) 
                 ) 
               );_去除在同一条线上段 
        ) 
      ) 
      4 
    ) 
    (setq tf 
           (apply 
             'and 
             (mapcar 
               '(lambda        (x y) 
                  (xdge::getpropertyvalue x "isPerpendicularTo" y) 
                );_判断前后是垂直关系 
               nCurveList 
               (cdr 
                 (reverse (cons (car nCurveList) (reverse nCurveList)) 
                 ) 
               ) 
             ) 
           ) 
    ) 
    (xdge::free) 
  ) 
  tf 
)

duotu007 · 发表于 2014-10-8 13:07:15

四点闭合对点距离相等 OK

XDSoft · 发表于 2014-10-8 13:45:38

duotu007 发表于 2014-10-8 13:07
四点闭合对点距离相等 OK

有可能不是4个点的，也是矩形。

liuyun242 · 发表于 2014-10-8 16:50:52

等腰梯形，四点闭合对点距离相等，不是矩形

csharp · 发表于 2014-10-8 17:25:08

N 个点都可能围合一个矩形区域

duotu007 · 发表于 2014-10-9 11:19:04

liuyun242 发表于 2014-10-8 16:50
等腰梯形，四点闭合对点距离相等，不是矩形

{:soso_e179:}

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

[教学] XDGE几何库应用(25)--矩形判断

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

本帖被以下淘专辑推荐:

点评