egua 发表于 2007-11-12 11:33:00

如何让Acadlwpolyline起点、终点有不同的线宽～

就像绘图时一样

黄玉宏 发表于 2007-11-12 18:54:00

Sub Example_AddLightWeightPolyline()
Dim plineObj As AcadLWPolyline
Dim points(0 To 7) As Double
points(0) = 1: points(1) = 1: points(2) = 1: points(3) = 2
points(4) = 2: points(5) = 2: points(6) = 3: points(7) = 2
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
Call plineObj.SetWidth(2, 0.02, 0.02)　　 '从第3点到第4点之间设置相当于0.6mm的线宽
End Sub

黄玉宏 发表于 2007-11-12 18:55:00

Sub Example_AddLightWeightPolyline()
Dim plineObj As AcadLWPolyline
Dim points(0 To 7) As Double
points(0) = 1: points(1) = 1: points(2) = 1: points(3) = 2
points(4) = 2: points(5) = 2: points(6) = 3: points(7) = 2
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
Call plineObj.SetWidth(2, 0.02, 0.02)　　 '从第3点到第4点之间设置相当于0.6mm的线宽
End Sub

egua 发表于 2007-11-15 09:40:00

多谢了！
页: [1]
查看完整版本: 如何让Acadlwpolyline起点、终点有不同的线宽～