[求助]：这个直角三角形如何作？

r0r

巳知一个直角三角形斜边的长度（如50）和另一直角边往里偏移一定距理（如5）后的长度（如20），请教怎样能作出这个直角三角形？

cdhua001

没有看懂，请传一个图上来看看。

ahlzl

是不是这样的?我画好了.

r0r

最初由 ahlzl 发布
[B]是不是这样的?我画好了. [/B]

ahlzl

不太好画！要用三角、几何的方法求出边长。可参考：http://www.xdcad.net/forum/showthread.php?threadid=82459  然后再用CAD来画。要光用CAD的话，我没法用基本的绘图命令来画，只能用编程的方法来画（我用VBA写了一个）。
还有，我觉得这个问题是没什么实际意义的。不知说错了没有！

lt_zzy

最初由 r0r 发布
[B]巳知一个直角三角形斜边的长度（如50）和另一直角边往里偏移一定距理（如5）后的长度（如20），请教怎样能作出这个直角三角形？ [/B]

这是做什么用的，有价值吗？

无名

初中的画法几何！

r0r

最初由 ahlzl 发布
[B]不太好画！要用三角、几何的方法求出边长。可参考：http://www.xdcad.net/forum/showthread.php?threadid=82459  然后再用CAD来画。要光用CAD的话，我没法用基本的绘图命令来画，只能用编程的方法来画（?.. [/B]

dabingrain

需要这么认真的吗？有那个必要吗？

ahlzl

这是程序代码:

2. 
   
3. Sub ddARC()
   
4. Dim m, n, l, a0, a1, fx, flx As Double
   
5. Dim pp(0 To 5) As Double
   
6. Dim p As Variant
   
7. Dim pl As AcadLWPolyline
   
8. p = ThisDrawing.Utility.GetPoint(, "请输入三角形的直角顶点：")
   
9. m = ThisDrawing.Utility.GetDistance(p, "请输入三角形的斜边长度：")
   
10. l = ThisDrawing.Utility.GetDistance(p, "请输入偏移距离：")
    
11. n = ThisDrawing.Utility.GetReal("请输入偏移线的长度：")
    
12. 
    
13. a0 = 0
    
14. a1 = a0
    
15. Do
    
16. a0 = a1
    
17. fx = l * Sin(a0) + n * Cos(a0) - m * Sin(2 * a0) / 2
    
18. flx = l * Cos(a0) - n * Sin(a0) - m * Cos(2 * a0)
    
19. a1 = a0 - fx / flx
    
20. Loop While Abs(a1 - a0) > 0.000000001
    
21. 
    
22. pp(0) = p(0): pp(1) = p(1)
    
23. pp(2) = pp(0) + m * Cos(a0): pp(3) = pp(1)
    
24. pp(4) = pp(0): pp(5) = pp(1) + m * Sin(a0)
    
25. 
    
26. Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(pp)
    
27. pl.Closed = True
    
28. 
    
29. End Sub

<br /> Sub ddARC()<br /> Dim m, n, l, a0, a1, fx, flx As Double<br /> Dim pp(0 To 5) As Double<br /> Dim p As Variant<br /> Dim pl As AcadLWPolyline<br /> p = ThisDrawing.Utility.GetPoint(, "请输入三角形的直角顶点：")<br /> m = ThisDrawing.Utility.GetDistance(p, "请输入三角形的斜边长度：")<br /> l = ThisDrawing.Utility.GetDistance(p, "请输入偏移距离：")<br /> n = ThisDrawing.Utility.GetReal("请输入偏移线的长度：")<br /> <br /> a0 = 0<br /> a1 = a0<br /> Do<br /> a0 = a1<br /> fx = l * Sin(a0) + n * Cos(a0) - m * Sin(2 * a0) / 2<br /> flx = l * Cos(a0) - n * Sin(a0) - m * Cos(2 * a0)<br /> a1 = a0 - fx / flx<br /> Loop While Abs(a1 - a0) > 0.000000001<br /> <br /> pp(0) = p(0): pp(1) = p(1)<br /> pp(2) = pp(0) + m * Cos(a0): pp(3) = pp(1)<br /> pp(4) = pp(0): pp(5) = pp(1) + m * Sin(a0)<br /> <br /> Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(pp)<br /> pl.Closed = True<br /> <br /> End Sub

请下载附件.
当输入数据无法生成三角形时,程序将出错.(我写的不完善)

ahlzl

解压,这样:

jxhaha

不算也能画:)
忘了标注5

r0r

最初由 jxhaha 发布
[B]不算也能画:)
忘了标注5 [/B]

zhengnan

详细的作业，赞

cadliux

几何画法，见图。