выбор объектов внутри круга

''~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~''
Function DivPoints(cent As Variant, rad As Double, num As Long) As Variant
Dim varpt As Variant
Dim ang As Double, delta As Double
Dim pi As Double, i As Long, j As Long
ReDim nodes(((num + 1) * 3) - 1) As Double
pi = Atn(1#) * 4
delta = 360# / num
ang = 0#
For i = 0 To num
ang = delta * i
ang = (ang * pi) / 180
varpt = ThisDrawing.Utility.PolarPoint(cent, ang, rad)
nodes(j) = CDbl(varpt(0))
nodes(j + 1) = CDbl(varpt(1))
nodes(j + 2) = CDbl(varpt(2))
j = j + 3
Next i
DivPoints = nodes()
End Function
''~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~''
Sub test()
Dim oent As AcadEntity
Dim cir As AcadCircle
Dim p
On Error GoTo Error_Control
ThisDrawing.Utility.GetEntity oent, p, vbCr & "Select circle"
If TypeOf oent Is AcadCircle Then
Set cir = oent
Dim cp, r As Double, num As Long
cp = cir.Center
r = cir.Radius
num = 256
Dim points() As Double
points = DivPoints(cp, r, num)
'ThisDrawing.ModelSpace.AddPolyline points '// for debug only
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("Dummy")
sset.SelectByPolygon acSelectionSetWindowPolygon, points
MsgBox "Selected: " & sset.Count & " objects"
Else
MsgBox "You missed or this isn't a circle"
End If
Exit_Here:
ThisDrawing.SelectionSets("Dummy").Delete
Exit Sub
Error_Control:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
Resume Exit_Here
End Sub
''~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~''