好函数不敢独享，73哥的判断矩形

cshimao

别藏了，想看你的真面目。。。。。。。。。。。

LIULISHENG

支持支持支持

LIULISHENG

支持支持支持

p-3-ianlcc

好神秘…
很好奇是什麽东西，回复看一下
谢谢分享！

hzyhzjjzh

谢谢分享，

wudechao

谢谢分享，看看什么宝贝

22千里之外

学习下，谢谢分享。

77077

杀猪杀屁股，另外一种搞定方法，请举证推翻。

2. (and
   
3.         (setq curve(car(entsel "\n选择对象:")))
   
4.         (= (vlax-curve-getEndParam curve) 4)
   
5.         (vlax-curve-isClosed curve)
   
6.         (setq d1 (vlax-curve-getDistAtParam curve 1))
   
7.         (setq d2 (- (vlax-curve-getDistAtParam curve 2) d1))
   
8.         (equal (vlax-curve-getArea curve) (* d1 d2) 1e-6);判断矩形面积公式是否成立
   
9. )

(and<br />         (setq curve(car(entsel "\n选择对象:")))<br />         (= (vlax-curve-getEndParam curve) 4)<br />         (vlax-curve-isClosed curve)<br />         (setq d1 (vlax-curve-getDistAtParam curve 1))<br />         (setq d2 (- (vlax-curve-getDistAtParam curve 2) d1))<br />         (equal (vlax-curve-getArea curve) (* d1 d2) 1e-6);判断矩形面积公式是否成立<br /> )

mojianxing

谢谢大佬分享！看看什么好东西！