xufen 发表于 2004-1-18 22:33:00

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

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

myfreemind 发表于 2004-1-18 22:41:00

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

xufen 发表于 2004-1-29 19:39:00

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

mccad 发表于 2004-1-29 19:57:00

http://www.mjtd.com/object/acad2004/idh_setbulge.htm


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

ahlzl 发表于 2004-1-29 21:55:00

我来举个例子：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 发表于 2004-2-1 16:22:00

谢谢各位大虾

页: [1]
查看完整版本: [每日一问]关于pline线的问题！