[求助]：CAD中如何实现任意三点画矩形？

shenxuhui403

在南方CASS中有三点画房屋的功能，本人想要正是通过任意三点出一个矩形房屋来，而不是先画好矩形后再旋转到合适的地方。可能需要编程实现，不知道有没有高手对此感兴趣或有现成的程序更好？

jiaodaboy

三点不能确定一个矩形啊？难道我学的几何有误？

shenxuhui403

一定条件下的三点可以固定一个矩形的，想像一下就知道了，要不南方CASS的开发人员都是白痴？或者这么想：已知一个矩形的三个点，把它画出来。

jiaodaboy

三个点可以确定3个矩形，肯定还要附加条件吧？

782150yhm

不只吧，没有其他限定条件还是很多的。

bluelover3

如果没有附加条件，则有无数个矩形

shenxuhui403

各位，其实我的问题很简单：就是比如我扫描了一张底图，上面有许多矩形的房屋，但是都是歪斜的。现在我要把它清绘一下，那么画那么矩形的房屋我得先画个差不多大的矩形再旋转到合适的地方，既麻烦又不太准。但是假如有像南方CASS那样的“三点画房屋”的功能，不就可以在那些矩形房屋中的三个角每个角点一下，就可以自动封闭成一个规则的矩形吗？

jiaodaboy

原来是三个角点啊，我说呢
可能需要自己做个小程序了，计算另一角点的坐标就好了

782150yhm

3个角点就是基本上限定了，这个需要额外的编程。

shenxuhui403

肯定是需要额外的编程，不知道可有高手们感兴趣？

zml84

两点画房的东西，我以前写过一个。现在手边没有了。
哪位将画房子的命令名告诉我，我再写一个？
下面这是两点画矩形。

2. 
   
3. ;;;功  能：
   
4. ;;;命令名：TT
   
5. ;;;
   
6. ;;;日  期：zml84 于 2007-06-29
   
7. (defun c:tt()
   
8.     (if (setq pt1 (getpoint "\n第一点:"))
   
9.         (if(setq pt2  (getcorner pt1 " >>> 第二点:"))
   
10.                  (command "_.pline" "non" pt1 ".x" pt1 pt2 "non" pt2   "c")
    
11.            )
    
12.         )
    
13.     (princ)
    
14.     );_ 结束defun
    

<br /> ;;;功  能：<br /> ;;;命令名：TT<br /> ;;;<br /> ;;;日  期：zml84 于 2007-06-29<br /> (defun c:tt()<br />     (if (setq pt1 (getpoint "\n第一点:"))<br />         (if(setq pt2  (getcorner pt1 " >>> 第二点:"))<br />                  (command "_.pline" "non" pt1 ".x" pt1 pt2 "non" pt2   "c")<br />            )<br />         )<br />     (princ)<br />     );_ 结束defun<br />

shenxuhui403

经试验，楼上的的代码只能画出三角形，而且是一边正交的直角三角形。能否再完善？

zml84

2. 
   
3. ;;;功  能：三点绘制四边形
   
4. ;;;命令名：TT
   
5. ;;;日  期：zml84 于 2007-07-20
   
6. (defun C:TT (/ PT1 PT2 PT3 PT4 D ANG)
   
7.     (if        (and (setq PT1 (getpoint "\n第一点:"))
   
8.              (setq PT2 (getpoint PT1 " >> 第二点:"))
   
9.              (setq PT3 (getpoint PT2 " >>> 第三点:"))
   
10.         )
    
11.         (progn
    
12.             (setq D   (distance PT2 PT1)
    
13.                   ANG (angle PT2 PT1)
    
14.                   PT4 (polar PT3 ANG D)
    
15.             )
    
16.             (command "_.pline" "non" PT1 "non" PT2 "non" PT3 "non" PT4
    
17.                      "c")
    
18.         )
    
19.     )
    
20.     (princ)
    
21. ) ;_ 结束defun
    

<br /> ;;;功  能：三点绘制四边形<br /> ;;;命令名：TT<br /> ;;;日  期：zml84 于 2007-07-20<br /> (defun C:TT (/ PT1 PT2 PT3 PT4 D ANG)<br />     (if        (and (setq PT1 (getpoint "\n第一点:"))<br />              (setq PT2 (getpoint PT1 " >> 第二点:"))<br />              (setq PT3 (getpoint PT2 " >>> 第三点:"))<br />         )<br />         (progn<br />             (setq D   (distance PT2 PT1)<br />                   ANG (angle PT2 PT1)<br />                   PT4 (polar PT3 ANG D)<br />             )<br />             (command "_.pline" "non" PT1 "non" PT2 "non" PT3 "non" PT4<br />                      "c")<br />         )<br />     )<br />     (princ)<br /> ) ;_ 结束defun<br />

本楼代码着色显示见：http://www.acad.net.cn/viewthread.php?tid=244&extra=page%3D1
如有更多需求，请提出。我们共同解决。

zml84

2. 
   
3. ;;;功  能：三点绘制四边形
   
4. ;;;命令名：TT
   
5. ;;;日  期：zml84 于 2007-07-20
   
6. (defun C:TT (/ PT1 PT2 PT3 PT4 D ANG)
   
7.     (if        (and (setq PT1 (getpoint "\n第一点:"))
   
8.              (setq PT2 (getpoint PT1 " >> 第二点:"))
   
9.              (setq PT3 (getpoint PT2 " >>> 第三点:"))
   
10.         )
    
11.         (progn
    
12.             (setq D   (distance PT2 PT1)
    
13.                   ANG (angle PT2 PT1)
    
14.                   PT4 (polar PT3 ANG D)
    
15.             )
    
16.             (command "_.pline" "non" PT1 "non" PT2 "non" PT3 "non" PT4
    
17.                      "c")
    
18.         )
    
19.     )
    
20.     (princ)
    
21. ) ;_ 结束defun
    

<br /> ;;;功  能：三点绘制四边形<br /> ;;;命令名：TT<br /> ;;;日  期：zml84 于 2007-07-20<br /> (defun C:TT (/ PT1 PT2 PT3 PT4 D ANG)<br />     (if        (and (setq PT1 (getpoint "\n第一点:"))<br />              (setq PT2 (getpoint PT1 " >> 第二点:"))<br />              (setq PT3 (getpoint PT2 " >>> 第三点:"))<br />         )<br />         (progn<br />             (setq D   (distance PT2 PT1)<br />                   ANG (angle PT2 PT1)<br />                   PT4 (polar PT3 ANG D)<br />             )<br />             (command "_.pline" "non" PT1 "non" PT2 "non" PT3 "non" PT4<br />                      "c")<br />         )<br />     )<br />     (princ)<br /> ) ;_ 结束defun<br />

本楼代码着色显示见：http://www.acad.net.cn/viewthread.php?tid=244&extra=page%3D1
如有更多需求，请提出。我们共同解决。

jbgs

楼主要的是矩形，你给的是平行四边形
也就是说，你的程序要求用户输入点的时候必须完全正确，

作为程序，不该有如此要求，
比如，第一个点作为矩形的角点必须正确，那第二个点实际只要反映矩形的斜度，反正有第三个来决定矩形的大小呢，
反过来，第二个决定底边的长度的话，那第三个点也许只是另一边上的任意点（只要保证第三个点到pt1-pt2底边的距离正确）

2点画水平矩形，3点画斜矩形，为何多一个点，无非就是多一个顷斜的条件嘛，而倾斜的条件不应该太苛刻。