[每日一问]关于pline线的问题！

xufen

不好意思~又要麻烦大家了
我建造了一个pline线的图元但我想是PLINE线成为一个带圆角的弯钩在CAD里可以使用PLINE--定点--ARC就能完成但VBA里怎么实现？麻烦了>_<！

myfreemind

看看帮助，查找“凸度”方面的内容！

xufen

不好意思~~我还是不太懂~~我询问有我们几个程序员也没有结果~~不知道哪为大虾能否举个例子~~谢谢^_^

mccad

[WEB]http://www.mjtd.com/object/acad2004/idh_setbulge.htm[/WEB]


凸度是多段线顶点列表中选定顶点和下一顶点之间的圆弧所包含角度的1/4的正切值 。负的凸度值表示圆弧从选定顶点到下一顶点为顺时针方向。凸度为0 表示直线段，凸度为1表示半圆。

ahlzl

我来举个例子：

2. Sub fh()
3. Dim pl As AcadLWPolyline
4. Dim point(5) As Double
5. point(0) = 0
6. point(1) = 100
7. point(2) = 0
8. point(3) = 0
9. point(4) = 50
10. point(5) = 0
11. Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(point)
12. pl.SetBulge 1, 1
13. End Sub

Sub fh() Dim pl As AcadLWPolyline Dim point(5) As Double point(0) = 0 point(1) = 100 point(2) = 0 point(3) = 0 point(4) = 50 point(5) = 0 Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(point) pl.SetBulge 1, 1 End Sub

xufen

谢谢各位大虾