SetWidth Example

Using Programming Languages other than VBA

Sub Example_SetWidth()
	' The following code prompts you to select a lightweight
	' polyline, and then prompts you for the width to set each 
	' segment of the polyline. 
	' Pressing ENTER without specifying a width is equivalent to
	' entering 0. 
	
	Dim returnObj As AcadObject
	Dim basePnt As Variant
	Dim retCoord As Variant
	Dim StartWidth As Double
	Dim EndWidth As Double
	Dim i, j As Long
	Dim nbr_of_segments As Long
	Dim nbr_of_vertices As Long
	Dim segment As Long
	Dim promptStart As String
	Dim promptEnd As String
		
	On Error Resume Next
   
	ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select a polyline"
	 
	' Make sure the user selected a polyline.
	If Err <> 0 Then
		If returnObj.EntityName <> "AcDbPolyline" Then
			MsgBox "You did not select a polyline"
		End If
		Exit Sub
	End If

	' Obtain the coordinates of each vertex of the selected polyline.
	' The coordinates are returned in an array of points.
	retCoord = returnObj.Coordinates

	segment = 0
	i = LBound(retCoord)				 ' Start index of coordinates array
	j = UBound(retCoord)				 ' End index of coordinates array
	nbr_of_vertices = ((j - i) \ 2) + 1  ' Number of vertices in the polyline

	' Determine the number of segments in the polyline.
	' A closed polyline has as many segments as it has vertices.
	' An open polyline has one fewer segment than it has vertices.
	' Check the Closed property to determine if the polyline is closed.

	If returnObj.Closed Then
		nbr_of_segments = nbr_of_vertices
	Else
		nbr_of_segments = nbr_of_vertices - 1
	End If

	' Have user set the width for each segment of the polygon
	Do While nbr_of_segments > 0
	
		' Get width values from the user
		promptStart = vbCrLf & "Specify the width at the beginning of the segment at " & retCoord(i) & "," & retCoord(i + 1) & " ==> "
		promptEnd = vbCrLf & "Now specify the width at the end of that segment ==> "
	 
		StartWidth = ThisDrawing.Utility.GetReal(promptStart)
		EndWidth = ThisDrawing.Utility.GetReal(promptEnd)

		' Set the width of the current segment
		returnObj.SetWidth segment, StartWidth, EndWidth
	 
		' Prepare to obtain width of next segment, if any
		i = i + 2
		segment = segment + 1
		nbr_of_segments = nbr_of_segments - 1
	Loop

	MsgBox "Segment widths have been set", , "SetWidth Example"

End Sub

 

   Comments?