Sub GetSetWidth_Example()
' This example adds a polyline and determines its width.
Dim myLWP As AcadLWPolyline
'LWpolyline expects an array of 2D OCS coordinates (only x and y)
Dim myPoints(0 To 5) As Double
myPoints(0) = 0: myPoints(1) = 0
myPoints(2) = 3: myPoints(3) = 0
myPoints(4) = 3: myPoints(5) = 4
Set myLWP = ThisDrawing.ModelSpace.AddLightWeightPolyline(myPoints)
myLWP.Closed = True
myLWP.Update
ThisDrawing.Application.ZoomExtents
' Find the width of the 2nd segment
Dim sw As Double
Dim ew As Double
myLWP.GetWidth 2, sw, ew
MsgBox "The starting width for the second segment is " & sw, , "Get/SetWidth Example"
' Change the starting width of the 2nd segment
myLWP.SetWidth 2, 1.2, ew
myLWP.GetWidth 2, sw, ew
myLWP.Update
MsgBox "The starting width for the second segment is now " & sw, , "Get/SetWidth Example "
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |