swModel.Extension.SelectByID2 "Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0
    swSketchMgr.InsertSketch True
    swSketchMgr.CreateCircleByRadius -0.04, 0, 0, 0.004
    swModel.Extension.SelectByID2 "", "EXTSKETCHPOINT", 0, 0, 0, False, 6, Nothing, 0
    swSketchMgr.FullyDefineSketch True, True, 1023, True, 1, Nothing, 1, Nothing, 0, 0



    swModel.Extension.SelectByID2 "Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0
    swModel.Extension.SelectByID2 "Right Plane", "PLANE", 0, 0, 0, True, 0, Nothing, 0




    Dim swPart As SldWorks.PartDoc
    Dim vBodies As Variant
    Dim swBody As SldWorks.Body2
    Dim vFaces As Variant
    Dim swFace As SldWorks.Face2
    Dim swFinalFace As SldWorks.Face2
    Dim swSurf As SldWorks.Surface
    Dim swEnt As SldWorks.Entity
    Dim i As Integer
    Dim dblArea As Double
    
    dblArea = 0
    Set swPart = swModel
    vBodies = swPart.GetBodies2(swSolidBody, False)
    Set swBody = vBodies(0) 'assumes only one solid body in part
    vFaces = swBody.GetFaces
    For i = 0 To UBound(vFaces)
        Set swFace = vFaces(i)
        Set swSurf = swFace.GetSurface
        If swSurf.IsCylinder Then
            If swFace.GetArea > dblArea Then
                dblArea = swFace.GetArea
                Set swFinalFace = swFace
            End If
        End If
    Next i
    Set swEnt = swFinalFace
    swEnt.Select4 False, Nothing
    swFeatureMgr.FeatureFillet 2, 0.001, 0, 0, Empty, Empty, Empty




    Dim swBody As SldWorks.Body2
    Dim vBodies As Variant
    vBodies = swPart.GetBodies2(swSolidBody, False)
    Set swBody = vBodies(0) 'assume only one solid body
    swFilletFeatData.Edges = swBody.GetEdges