Text dotazu:
Potřebuji, aby reakce fungovala v kontextu partu i sestavy. Dá se jí nějak zadat kontext "self"? Aby vždy běžela v kontextu partu, ve kterém leží? Případně jak jinak to ošetřit? Předem moc děkuji za pomoc.

Zatím při definování kontextu spolehám na to, že uživatel má vybraný parametr, při jehož změně se reakce spustí, a z něj zjistím part. V kontexu samotného partu to funguje dobře. Reakce není závislá na jménu partu.

Problém nastane, když part je otevřený v sestavě, parametr změním ve skeletonu, je nalinkovaný do partu, a pak updatuji celou sestavu. Pak se samozřejmě reakce spustí ve špatném kontextu a nenajde elementy, se kterými má pracovat.

Přikládám ukázku kódu (schovávám jedno nebo druhé body v závislosti na hodnotě parametru) a příklad partu a sestavy.

Dim partDocument1 As Document

Set partDocument1 = CATIA.Documents.Item(CATIA.ActiveDocument.Selection.Item(1).Value.Parent.Parent.Parent.name)

Dim part1 As Part

Set part1 = partDocument1.Part



Set parameters1 = part1.Parameters.RootParameterSet.AllParameters

Set switch = parameters1.Item("switch")



Dim selection1 As Selection

Set selection1 = partDocument1.Selection



Dim visPropertySet1 As VisPropertySet

Set visPropertySet1 = selection1.VisProperties.Parent



Dim bodies1 As Bodies

Set bodies1 = part1.Bodies



Dim body1 As Body



selection1.Clear 

Set body1 = bodies1.Item("Body Circle")

selection1.Add body1



If switch.Value = "Circle" Then

	visPropertySet1.SetShow 0

Else

	visPropertySet1.SetShow 1

End if



selection1.Clear 

Set body1 = bodies1.Item("Body Rectangle")

selection1.Add body1



If switch.Value = "Rectangle" Then

	visPropertySet1.SetShow 0

Else

	visPropertySet1.SetShow 1

End if



selection1.Clear 



End Sub

Přiložené soubory:
KWA - hiding bodies.zip