Hallo!
Eigentlich sollte oben genannter Versuch nicht sonderlich schwierig sein, trotzdem verzweifel ich daran im Moment. Ich möchte überprüfen ob ein Parameter vorhanden ist, und diesen gegebenenfalls löschen.
Dies sollte doch ohne weiterse über folgenden Code möglich sein:
Dim Param As Parameter
Dim Params As Parameters
Set Params = CATIA.ActiveDocument.Part.Parameters
If (Params.Count) > 0 Then
For I = 1 To Params.Count
Set Param = Params.Item(I)
If (Param.Name = "XYZ") Then Param.Remove
Next
End If
Allerdings wird Parameter XYZ nicht erkannt. Dieser muss mit dem Pfad angegeben werdern, also z.B.: "Part1\XYZ", dann funktioniert es. Ich möchte das Makro aber allgemeingültig machen, dass es auch bei einem anderen Bauteilnamen funktioniert.
Weiß jemand Rat?
Lieben Gruß!
Kathi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP