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

egua

就像绘图时一样

黄玉宏

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

黄玉宏

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

多谢了！