Using Programming Languages other than VBA

Sub Example_Clear()
	' This example creates a selection set and several objects.
	' It then adds the objects to the selection set. It then
	' clears the objects from the selection set.

	' Create the new selection set
	Dim ssetObj As AcadSelectionSet
	Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SELECTIONSET")

	' Create a Ray object in model space
	Dim rayObj As AcadRay
	Dim basePoint(0 To 2) As Double
	Dim SecondPoint(0 To 2) As Double
	basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0#
	SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#
	Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, SecondPoint)

	' Create a polyline object in model space
	Dim plineObj As AcadLWPolyline
	Dim points(0 To 5) As Double
	points(0) = 3: points(1) = 7
	points(2) = 9: points(3) = 2
	points(4) = 3: points(5) = 5
	Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
	plineObj.Closed = True

	' Create a line object in model space
	Dim lineObj As AcadLine
	Dim startPoint(0 To 2) As Double
	Dim endPoint(0 To 2) As Double
	startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
	endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0
	Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

	' Create a circle object in model space
	Dim circObj As AcadCircle
	Dim centerPt(0 To 2) As Double
	Dim radius As Double
	centerPt(0) = 20: centerPt(1) = 30: centerPt(2) = 0
	radius = 3
	Set circObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius)

	' Create an ellipse object in model space
	Dim ellObj As AcadEllipse
	Dim majAxis(0 To 2) As Double
	Dim center(0 To 2) As Double
	Dim radRatio As Double
	center(0) = 5#: center(1) = 5#: center(2) = 0#
	majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
	radRatio = 0.3
	Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)

	ZoomAll

	' Iterate through the model space collection.
	' Collect the objects found into an array of objects
	' to be added to the selection set.
	ReDim ssobjs(0 To ThisDrawing.ModelSpace.count - 1) As AcadEntity
	Dim I As Integer
	For I = 0 To ThisDrawing.ModelSpace.count - 1
		Set ssobjs(I) = ThisDrawing.ModelSpace.Item(I)
	Next

	' Add the array of objects to the selection set
	ssetObj.AddItems ssobjs
	GoSub LISTOBJS

	' Clear the selection set
	ssetObj.Clear

	ThisDrawing.Regen acActiveViewport
	GoSub LISTOBJS

Exit Sub

LISTOBJS:

		' List all the objects in the selection set
		If ssetObj.count = 0 Then
			MsgBox "The selection set is empty"
		Else
			For I = 0 To ssetObj.count - 1
				MsgBox "The selection set contains: " & ssetObj.Item(I).ObjectName
			Next
		End If
		Return

End Sub

 





Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at 
 webmaster@entercad.forsenergy.ru to inform them of the time this error occurred,
 and the actions you performed just before this error.
More information about this error may be available
in the server error log.
Additionally, a 500 Internal Server Error
error was encountered while trying to use an ErrorDocument to handle the request.