Get center of circles

Option Explicit


Sub main()
    Dim swApp                                     As SldWorks.SldWorks
    Dim swModel                                   As SldWorks.ModelDoc2
    Dim swSelMgr                                  As SldWorks.SelectionMgr
    Dim swSkArc                                   As SldWorks.SketchArc
    Dim i                                         As Integer
    Dim skPoints()                                As SketchPoint
    Dim x                                         As Integer


    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager


    x = swSelMgr.GetSelectedObjectCount2(-1)
    If x = 0 Then Exit Sub


    ReDim skPoints(x)
    For i = 1 To x
        Select Case swSelMgr.GetSelectedObjectType3(i, -1)
        Case swSelEXTSKETCHSEGS, swSelSKETCHSEGS
            Set swSkArc = swSelMgr.GetSelectedObject6(i, -1)
            Set skPoints(i) = swSkArc.GetCenterPoint2
        Case Else
            Debug.Print "SelType: "; swSelMgr.GetSelectedObjectType3(i, -1)
        End Select
    Next i
    swModel.ClearSelection2 True
    For i = 1 To x
        If Not skPoints(i) Is Nothing Then
            skPoints(i).Select4 True, Nothing
        End If
    Next i
End Sub