Count the number of lines, circles, and arcs in a part?

Thanks kelvin, the sketch census is working, but i still can't get the code to get the number of lines, circles, and arcs in a sketch.

i tried to decompile the mad mango macro's .dll file with ".net reflector" but it didn't work (error: 'C:\Program Files\Esox Republic Tools\Sketch Census\SketchCurveCount.dll' is not a .NET module.)

because what i'm trying to do is to get the sketch attributes into some variables then make the equation for my main program.

is there any way to get the sketch attributes or to view this mad mango's code?

thanks in advance.

thanks, i haven't tried it yet, and i'll let you know if it works as soon as possible.

okay, so here's my macro:

    Function GetSketchCount() As Integer

        Dim swApp As SldWorks

        Dim swModel As ModelDoc2

        Dim swSelMgr As SelectionMgr

        Dim swFeat As Feature

        Dim sketch As ISketch

        Dim CrossHatchOption As Short

        Dim pointcount As Integer

        Dim linec As Integer

        Dim arcc As Integer

        Dim ellc As Integer

        Dim parac As Integer

        Dim polyc As Integer

        Dim splc As Integer

        linec = 0

        arcc = 0

        ellc = 0

        parac = 0

        polyc = 0

        splc = 0

        On Error GoTo ehandling

        swModel = swApp.ActiveDoc

        swSelMgr = swModel.SelectionManager

        swFeat = swSelMgr.GetSelectedObject4(1)

        swSketch = swFeat.GetSpecificFeature

        linec = Sketch.GetLineCount2(1)

        arcc = Sketch.GetArcCount

        ellc = Sketch.GetEllipseCount

        parac = Sketch.GetParabolaCount

        polyc = Sketch.GetPolyLineCount(1)

        splc = Sketch.GetSplineCount(1)

        MsgBox("Total of line: " & linec & " Total of arc: " & arcc & " Total of ellipse: " & ellc & " Total of parabola: " & parac, vbInformation, "Sketch Statistic")

        GoTo THEEND

ehandling:

        MsgBox("Please select a sketch", vbCritical, "Error")

THEEND:

    End Function

after i select a sketch and click the button, it shows the error messagebox instead the skecth statistic. I don't know what's wrong with my macro. can somebody help me?