I have the following Function (Written for Inventor). Can a similar Function be created for Solidworks?

Public Function GetExrusionData(Doc As PartDocument, sketch As PlanarSketch)
    Dim sketchEnt As SketchEntity

    For Each sketchEnt In sketch.SketchEntities
        If sketchEnt.Construction = False Then
           Select Case sketchEnt.Type
               Case kSketchLineObject
                    X1 = sketchEnt.StartSketchPoint.Geometry.x * 10
                    Y1 = sketchEnt.StartSketchPoint.Geometry.y * 10

                    X2 = sketchEnt.EndSketchPoint.Geometry.x * 10
                    Y2 = sketchEnt.EndSketchPoint.Geometry.y * 10

                    Call WriteDxfLine
               Case kSketchArcObject, kSketchCircleObject
                    CentreX = sketchEnt.CenterSketchPoint.Geometry.x * 10
                    CentreY = sketchEnt.CenterSketchPoint.Geometry.y * 10

                    Radius = sketchEnt.Radius * 10
                  
                    If sketchEnt.Type = kSketchArcObject Then
                       aStart = sketchEnt.StartAngle * Rad

                       InclusiveAngle = sketchEnt.SweepAngle * Rad

                       aEnd = aStart + InclusiveAngle
                    
                       Call WriteDxfArc
                    Else
                       Diameter = 2 * Radius

                       Call WriteDxfCircle
                    End If
           End Select
        End If
    Next
End Function

Many thanks in advance!!!