Hey Scott,
Hope this helps

----------------------------------
' Obj2Circle.tcr
' Replace selected objects with circles of set diameter'
' To be loaded into TurboCAD's MacroRecorder and run from there
option explicit
Dim TCDwg, TCGrs
Dim Dia
Sub CreateCircle(Target)
Dim NewCircle
Set NewCircle = TCGrs.AddArcCenterAndPoint(0, 0, 0, Dia/2, 0, 0, 0, 0)
NewCircle.MoveAbsolute Target.ReferencePoint.X, Target.ReferencePoint.Y, Target.ReferencePoint.Z
NewCircle.Properties("PenColor") = RGB(255, 128, 64)
End Sub
Sub Main
Dim TCSel, Target, NewCircle, BBox
Set TCDwg = ActiveDrawing
Set TCGrs = TCDwg.Graphics
Set TCSel = ActiveDrawing.Selection
If TCSel.Count < 1 then
MsgBox "Select some items first!"
Exit Sub
End If
For Each Target in TCSel
Set BBox= Target.CalcBoundingBox
Dia = BBox.Max.X - BBox.Min.X
CreateCircle(Target)
Target.Delete
TCDwg.ActiveView.Refresh
Next
ActiveDrawing.Selection.Unselect
TCDwg.ActiveView.Refresh
End Sub
Main
------------------------------
Copy all between the two ----------------- lines and save to a .tcr file
Piet