Hallo,
hab mal wieder ein kleines Skript Problem.
Ich möchte abhängig von einem bestimmten Parameter-Wert einige Reaktions in meinem CATPart deaktivieren.
Hierfür möchte ich ein Skript mit Argumenten nutzen, welches über eine andere Reaktion angestossen wird, wenn sich der obengenannte Parameter ändert.
Anbei mein Skript welches leider beim deaktivieren der Reaktion auf einen Fehler läuft.
Set mypart = PN
Set mydoc = CATIA.ActiveDocument
Set mysel = mydoc.selection
Set paras = mypart.Parameters
Set relations = mypart.Relations
'************************************************************************
Dim text
text = "ML_"
'************************************************************************
'Objekt für Baureihe-Parameter setzen
For each para in paras
if para.name = mypart.name & "\Baureihe" then
Set b = para
Exit For
End if
Next
'************************************************************************
mysel.clear
mysel.Search"(Name=*ML* & CATKnowledgeSearch.AdvisorReaction),all"
If b.value = "Heavy" then
For index = 1 to mysel.count
mysel.item(index).deactivate
'mysel.item(index).hidden = true
mypart.Update
Next
else
For index = 1 to mysel.count
mysel.item(index).activate
'mysel.item(index).hidden = true
mypart.Update
Next
end if
mysel.clear
mypart.Update
End Sub
Wäre super wenn hierzu jemand einen Tip hat.
Vielen Dank und Gruss aus München
Crio
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP