Sub CATMain()

    Dim oMainPRD As ProductDocument
   
    Set oMainPRD = CATIA.ActiveDocument
    Call Mark_DefConst(oMainPRD)
   
End Sub

Sub Mark_DefConst(ByVal oPRDDoc As ProductDocument)

    Dim oPRD As Product
    Dim oConsts As Constraints
    Dim oConst As Constraint
    Dim oSel As Selection
    Dim RetCode As Integer
       
    Set oSel = oPRDDoc.Selection
    oSel.Clear
    Set oPRD = oPRDDoc.Product
    Set oConsts = oPRD.Connections("CATIAConstraints")
   
    For Each oConst In oConsts
   
        If oConst.Status <> catCstStatusOK Then
            oSel.Add oConst
        End If
           
    Next
End Sub