---

Hallo liebe Community,

seht Ihr eine Möglichkeit alle defekten Constraints in einem Product markieren zu lassen, wenn möglich per Script

Viele Grüße,

CocoB

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Mit CATScript...

Option Explicit

Sub CATMain()

    Dim prdRoot As Product
    Set prdRoot = CATIA.ActiveDocument.Product
   
    Dim oConstraints As Constraints
    Set oConstraints = prdRoot.Connections("CATIAConstraints")
   
    Dim iConstraint
    Dim iNbConstraints
   
    iConstraint = 1
    iNbConstraints = oConstraints.Count
    Do While (iConstraint <= iNbConstraints)
       
        If (oConstraints.Item(iConstraint).Status = catCstStatusOK) Then
                         
            iConstraint = iConstraint + 1
                  Else
              oConstraints.Remove iConstraint
           
            iNbConstraints = oConstraints.Count

        End If
    Loop

End Sub

------------------
Best regards
Fernando

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hier noch ein Beispiel in VBA

Code:

---

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
   
    If oSel.Count > 0 Then
        RetCode = MsgBox("Defekte Bedingungen gefunden. Sollen diese gelöscht werden?", vbYesNo)
        If RetCode = vbYes Then
            oSel.Delete
        End If
    End If
   
End Sub

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank,

aus beiden Codes habe ich mir eins geschmiedet.

Das ist genau das was ich wollte.

Viele Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

wie würde denn das Makro aussehen, so das es über eine komplette Produktstrucktur laufen würde?
Im moment werden ja nur die Constraints in dem obersten Produkt gelöscht.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Entweder Makro rekursive aufbauen, oder über die Suche alle Contrains selektieren. Dann mit einer Schleife von hinten nach vorne den Status der Constrains kontrollieren, und ggf aus der Selektion entfernen.

Gruß
Bernd.

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Uwe,

versuch mal folgede code:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.clear

selection1.Search "CATProductSearch.MfConstraint,all"

for i = selection1.count to 1 step -1

If selection1.item(i).value.Status = catCstStatusOK Then
selection1.remove (i)
end if

next

End Sub

---

[Diese Nachricht wurde von imation1999 am 29. Jul. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Uwe,

hier mal der rekursive Aufbau...

Code:

---

Sub CATMain()

    Dim oMainPRD As ProductDocument
    Dim oPRD As Product
    Dim oSel As Selection
   
    Set oMainPRD = CATIA.ActiveDocument
    Set oPRD = oMainPRD.Product
    Set oSel = oMainPRD.Selection
    oSel.Clear
    Call Mark_DefConst(oPRD, oSel)
   
    If oSel.Count > 0 Then
        RetCode = MsgBox(oSel.Count & " defekte Bedingungen gefunden. Sollen diese gelöscht werden?", vbYesNo)
        If RetCode = vbYes Then
            oSel.Delete
        End If
    End If
   
End Sub

Sub Mark_DefConst(ByVal oPRD As Product, ByRef oSel As Selection)

    Dim oConsts As Constraints
    Dim oConst As Constraint
    Dim oSubPRD As Product
    Dim strName As String
       
    Set oConsts = oPRD.Connections("CATIAConstraints")
   
    If oConsts.Count > 0 Then
        For Each oConst In oConsts
            If oConst.Status <> catCstStatusOK Then
                oSel.Add oConst
            End If
        Next
    End If
   
    For Each oSubPRD In oPRD.Products
        If oSubPRD.Products.Count <> 0 Then
            Call Mark_DefConst(oSubPRD.ReferenceProduct.Parent.Product, oSel)
        End If
    Next
   
End Sub

---

Fixtogether verursachen allerdings Probleme beim Abruf von "oPRD.Connections("CATIAConstraints")". Das liefert dann nichts zurück, obwohl constraints vorhanden sind.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rick,

perfekt. Unities sind unterwegs.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP