Hello everyone I currently have written a code to give the count of the total fixed relations in the entire part and give a count back to the user. Created for my teacher at School for students not fully defining lines. Is there a way I can modify the current code to give back the number of undefined (blue) lines in the entire part in all sketches? Here is what I ahve written

Dim swApp As SldWorks.SldWorks

Dim AllFeatures As Variant

Dim allRelations As Variant

'Modified by Russell Saari on 12/07/11

Dim allChild As Variant

Dim i As Long

Dim j As Long

Dim mySketch As Sketch

Dim RelMgr As SketchRelationManager

Dim ResultString As String

Dim ChildNames As String

Dim FixedCount As Long

Sub main()

    Set swApp = Application.SldWorks

    ResultString = ""

    AllFeatures = Empty

    AllFeatures = swApp.ActiveDoc.FeatureManager.GetFeatures(False)

    For i = 0 To UBound(AllFeatures)

        If AllFeatures(i).GetTypeName = "ProfileFeature" Then

        Set mySketch = AllFeatures(i).GetSpecificFeature

        If Not (mySketch Is Nothing) Then

                Set RelMgr = mySketch.RelationManager

                allRelations = Empty

                allChild = Empty

                allRelations = RelMgr.GetRelations(swAll)

                allChild = mySketch.GetChildren

                FixedCount = 0

        For j = 0 To UBound(allRelations)

            If allRelations(j).GetRelationType = swConstraintType_FIXED Then

                FixedCount = FixedCount + 1

            End If

    Next j

        ChildNames = " ("

        For j = 0 To UBound(allChild)

        ChildNames = ChildNames & allChild(j).Name & ", "

    Next j

    ChildNames = Left(ChildNames, Len(ChildNames) - 2) & ")"

        If FixedCount > 0 Then

            ResultString = ResultString & vbCrLf & FixedCount & " -" & mySketch.Name & ChildNames

            End If

        End If

    End If

  Next i

  MsgBox "Quantity of ""Fixed"" relations" & vbCrLf & "per sketch in this model: " & FixedCount & vbCrLf & ResultStringEnd

End Sub