routine to extract object that meet certain criteria

i am in need of a routine that will search my selection for circle radius = 21.3 and will put the coordinates of those circles in a text file or an excel file...any ideas?

 

Well, here's how to get the object data you want:
Sub circ_rad()
Dim ss As AcadSelectionSet
Dim dxfCode(1) As Integer
Dim dxfVal(1) As Variant
Dim ent As AcadEntity
Dim circ As AcadCircle
Dim cen

Set ss = ThisDrawing.PickfirstSelectionSet
dxfCode(0) = 0: dxfVal(0) = "CIRCLE"
dxfCode(1) = 40: dxfVal(1) = 21.3

ss.Select acSelectionSetAll, , , dxfCode, dxfVal
For Each ent In ss
Set circ = ent
cen = circ.Center
Debug.Print "Center X = " & cen(0); ", Center y = " & cen(1); ", Center
Z = " & cen(2)
Next
End Sub

 

i copied the routine, opened up the VB editor, pasted the copied text and ran...where does the output go to?

 

view|immediate (ctl + g)
debug.print means print to immediate window

ran...where does the output go to?

 

so when i run the routine, i should see the info in the ACAD text box? I am new to all of this, so your patience is greatly appreciated

 

No, in the VBAIDE press CTRL G to bring up the immediate window and it will
be shown there. This was merely an example to show you how to get the data.
To display it in acad, you could add this line below the Debug.Print.....
line:
circ.Highlight True
MsgBox "Center X = " & cen(0) & ", Center y = " & cen(1) & ", Center Z =
" & cen(2)
circ.Highlight False

You will need additional code, most of which can be found in the help files
and example code, to export to a text or excel file.