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