---

Hallo zusammen,

Wer kann mir helfen.

Habe ein Produkt mit mehreren Parts. In den Parts gibt es eine Formel z.B. ( Formel.37:`001_part1/Teilenummer`=`Stücklisten Information\Hilfsparameter\Dateibenennung` )

Wie schaffe ich per Makro (Automatisch)die Formel.37 zu löschen?
Problem ist nur das in Part 1 es die Formel.37 ist und in Part 2 ist es die Formel.40 usw... es ist immer nur der Formelwert an sich gleich (`Stücklisten Information\Hilfsparameter\Dateibenennung` )

wer kann mir da helfen.

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

---

Hallo,

wie weit bist du denn schon?

Evtl. kannst du den Outputparameter abfragen, wenn das die Teilenummer kannst du sie löschen.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Da ich kaum Kenntnisse im der VBA Programmierung habe bin ich auch noch nicht Richtig weiter gekommen.
Habe versuch mit der Catia Suchfunktion die Formel zu finden das funktioniert aber leider nicht.

Was meinst du mit Outputparameter ? wie kann man den abfragen ?

Gruß

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

---

Hallo Esterbauer,

hab mal was zusammengebastel.

Evtl. mußt du den Parameternamen "Part Number" auf die Deutsche Umgebung anpassen.

DelFormula.CatSript

Code:

---

Sub CATMain()

Dim oActiveDoc 'As Document
Set oActiveDoc = CATIA.ActiveDocument

If (InStr(oActiveDoc.Name, ".CATProduct")) Then
        Call MsgBox("Part im separaten Fenster öffnen!", vbExclamation)
       
        Exit Sub
    End If
' Check whether the document is a CATPart
If (InStr(oActiveDoc.Name, ".CATPart")) <> 0 Then

        Dim oRelations          'As Relations
        Set oRelations = oActiveDoc.Part.relations
        Dim oFormula1          As Formula
        Dim oParameters        'As Parameters
        Set oParameters = oActiveDoc.Product.Parameters
        Dim strParam1          'As Parameters
        Dim paraPartnum        As String
        Dim FormulaWertFuell    As String
        paraPartnum = "Part Number"
       
            FormulaWertFuell = ""
            Set strParam1 = oParameters.Item(paraPartnum)
            Set oFormula1 = strParam1.OptionalRelation 'Verknüpfte  Relation zu Parameter suchen
                oRelations.Remove (oFormula1.Name) 'Verknüpfte  Relation zu Parameter löschen
                strParam1.Value = " "
   
   
CATIA.ActiveDocument.Part.Update
End If
End Sub

---

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

Auch Catia ist nur ein Mensch!    

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