Represents the edition part of a rule.
The following example shows how access the Rule Rule1
from an existing RuleSet RS1 of the RuleBase RB1
Dim CATDocs As Document
Set CATDocs = CATIA.Documents
Dim partdoc As PartDocument
Set partdoc = CATDocs.Add("CATPart")
Dim part As Part
Set part = partdoc.Part
Dim relations As Relations
Set relations = part.Relations
Dim Rulebase As ExpertRuleBaseRuntime
Set RuleBase = relations.Item("RB1")
Dim Ruleset As ExpertRuleSetRuntime
Set RuleSet = RuleBase.ExpertRuleBaseComponentRuntimes.Item("RS1")
Dim Rule1 As ExpertRuleRuntime
Set Rule1 = RuleSet.ExpertRuleBaseComponentRuntimes.Item("Rule1")