Closed Example

Using Programming Languages other than VBA

Sub Example_Closed()
	' This example creates a polyline and then toggles the
	' setting to Closed.
	Dim plineObj As AcadPolyline
	Dim closedState As String

	' Create the polyline
	Dim points(8) As Double
	points(0) = 3: points(1) = 7: points(2) = 0
	points(3) = 9: points(4) = 2: points(5) = 0
	points(6) = 3: points(7) = 5: points(8) = 0
	Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)

	' Set the closed property to True
	plineObj.Closed = True	' Close Polyline
	ThisDrawing.Regen (True)
	GoSub DISPLAY

	' Open the PolyLine by setting the closed property to False
	plineObj.Closed = False	' Open Polyline
	ThisDrawing.Regen (True)
	GoSub DISPLAY

	Exit Sub

DISPLAY:
	' Retrieve and display the Closed property
	closedState = IIf(plineObj.Closed, "Closed", "Open")
	MsgBox "The new Polyline is: " & closedState, vbInformation, "Closed Example"
	Return
End Sub





   Comments?