Can u try this for me sir? It will maybe usefull for u :)
Sub MeasureRadius()
Dim selection As Selection
Set selection = CATIA.ActiveDocument.Selection
' Yarıçapı ölçmek için bir daire seçin
selection.Clear
selection.Search "Type=Circle,sel"
If selection.Count...