---

Hallo Forum,

ich möchte gerne aus einer TemplateDatei eine Messung herauslöschen.
Diese hat immer den Namen  "Ueberlaufvolumen"

mein Code:

Sub CATMain()
Dim oPart As PartDocument
Set oPart = CATIA.ActiveDocument
       
        For i = 1 To oPart.Part.Parameters.Count
        Dim oPara As Parameter
        Dim selection1 As Selection
        Set oPara = oPart.Part.Parameters.Item(i)
       
        If oPara.Name Like "*Ueberlaufvolumen*" Then
        'oPara.Delete
    selection1.Add (oPara)  ' Objekt unterstützt diese Methode nicht
        End If
       
        Next
        selection1.Delete
        selection1.Clear
       

End Sub

Den oPara.Name findet er.
Leider addet das Macro weder den Parameter zur selection(keine Unterstützung),
noch kann ich direkt löschen (  'oPara.Delete)

Vielleicht weiss jemand einen Ansatz wie Messungen aus einem Part gelöscht werden können.

Gruß

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Hallo cmb,

entferne die Klammern in der Zeile
selection1.Add (oPara)
dann sollte es klappen.

Alternativ ohne Selection geht es mit:
oPart.Part.Parameters.Remove(i)

Gruß
CAMiCADse

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

---

Hallo CAMiCADse,

wenn ich die Klammern weglasse, erhalte ich die Meldung:
Objektvariable oder With-Blockvariable nicht festgelegt (Fehler 91)

Der alternativ Vorschlag mit remove: hier arbeitet das Macro die Zeile ab ( d.h. er findet alles wo der String "Ueberlaufvolumen" enthalten ist)aber leider nimmt er mir die Messung nicht aus meinem Part heraus.

Kann es sein das ich mein Objekt anders deklarieren müsste?

Gruß

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Hallo cmb,

es fehlt davor:
Set selection1 = CATIA.ActiveDocument.Selection

Gruß
CAMiCADse

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