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

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

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

2nj3aylfyaw.bmp

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

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

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

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

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

[WEB]http://www.mjtd.com/object/acad2004/idh_setbulge.htm[/WEB]
凸度是多段线顶点列表中选定顶点和下一顶点之间的圆弧所包含角度的1/4的正切值。负的凸度值表示圆弧从选定顶点到下一顶点为顺时针方向。凸度为0 表示直线段，凸度为1表示半圆。

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

我来举个例子：

copy


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

谢谢各位大虾

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

发表回复

精选推荐

浏览过的版块