[讨论]：如何画一定弧长的圆弧

ltjxl

我虽然不经常画圆弧，但是有时侯会碰到画一些机械零件加工图，却没有专门画机械图的软件，而CAD2002只有附件所示的几种画圆弧的方法，所以我不会已知半径（或直径）和弧长画圆弧，请大家将自己用CAD2002绘制一定弧长的圆弧的画法在此讨论讨论，有没有非常简单的方法！

sz-gg

我一般是先画出任意弧长的圆弧，再用拉长命令得到所需弧长。

ahlzl

画这段图弧，半径100，弧长200。

ahlzl

Flash演示。

sz-gg

在上贴中表达式内的3.1415926可用“pi”。
这个表达式可以是这样：
200*180/(100*pi)

ahlzl

最初由 sz-gg 发布
[B]在上贴中表达式内的3.1415926可用“pi”。
这个表达式可以是这样：
200*180/(100*pi) [/B]

记住了，谢谢！

秋枫

我赞同使用二楼的方法。画一个圆弧，然后用lengthen命令指定长度。这个方法不需要计算。

ltjxl

非常感谢各位在此介绍自己画弧的方法，我较赞同“第2贴”的方法较为简单，但是有一点小小的问题还想请教各位，这种方法虽然简单可画出来的圆弧无法控制其位置和角度（我说的位置和角度是指其玄长与坐标轴间的），见附件。如果用旋转来完成其位置和角度又较麻烦，有没有简单的方法？

ahlzl

最初由 ltjxl 发布
[B]非常感谢各位在此介绍自己画弧的方法，我较赞同“第2贴”的方法较为简单，但是有一点小小的问题还想请教各位，这种方法虽然简单可画出来的圆弧无法控制其位置和角度（我说的位置和角度是指其玄长与坐标轴间的），见?.. [/B]

你的这个要求我看难忘以办到，不知其他网友有何高招。

00001

有时候需要针对具体情况来确定作图方法，也不一定要一步到位。

像这种圆弧的作图，还真的不太好用“一步到位”，如果自编程序实现会怎么样……

ahlzl

看看这个小程序……用来画第八贴的图。

这是我AutoCAD VBA的处女作！现学现卖，我觉得使用还不太方便，当输入错误时，程序会出错……附上程序文件和源代码，请高手指正。

2. 
   
3. Sub MyARC()
   
4. Dim d, r, a As Double
   
5. Dim p As Variant
   
6. pi = 3.1415926535
   
7. 
   
8. p = ThisDrawing.Utility.GetPoint(, "请输入圆弧起点：")
   
9. r = ThisDrawing.Utility.GetDistance(p, "请输入半径：")
   
10. d = ThisDrawing.Utility.GetReal("请输入弧长：")
    
11. a = ThisDrawing.Utility.GetReal("请输入角度：")
    
12. 
    
13. Dim arcObj As AcadArc
    
14. Dim sa, ea As Double
    
15. sa = (pi - d / r) / 2 + a * pi / 180
    
16. ea = (pi + d / r) / 2 + a * pi / 180
    
17. Set arcObj = ThisDrawing.ModelSpace.AddArc(p, r, sa, ea)
    
18. End Sub

<br /> Sub MyARC()<br /> Dim d, r, a As Double<br /> Dim p As Variant<br /> pi = 3.1415926535<br /> <br /> p = ThisDrawing.Utility.GetPoint(, "请输入圆弧起点：")<br /> r = ThisDrawing.Utility.GetDistance(p, "请输入半径：")<br /> d = ThisDrawing.Utility.GetReal("请输入弧长：")<br /> a = ThisDrawing.Utility.GetReal("请输入角度：")<br /> <br /> Dim arcObj As AcadArc<br /> Dim sa, ea As Double<br /> sa = (pi - d / r) / 2 + a * pi / 180<br /> ea = (pi + d / r) / 2 + a * pi / 180<br /> Set arcObj = ThisDrawing.ModelSpace.AddArc(p, r, sa, ea)<br /> End Sub

ahlzl

先下载上一贴的附件，并解压。

ltjxl

你的方法我试了试还不错！非常感谢！希望大家把更好的方法毫不吝惜的拿出来同大家分享！

efan2000

最初由 ahlzl 发布
[B]看看这个小程序……用来画第八贴的图。

这是我AutoCAD VBA的处女作！现学现卖，我觉得使用还不太方便，当输入错误时，程序会出错……附上程序文件和源代码，请高手指正。

要不要再附一个Flash演示？

Public... [/B]

解决输入错误，可以单独对输入函数建立一个安全的函数，其中包含了错误处理。如对于获取点可以让出错时返回值为空（Empty）。

ahlzl

to efan2000：多谢指导。但我一时还改不好。
to ltjxl：如果这个操作常用的话，可从工具——加载应用程序……单击“启动组”中的内容……
再单击“添加”选择“我的圆弧.dvb”，以后每次启动AutoCAD便可自动加载，直接运行即可。