All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---ExpertRuleBaseComponentRuntime | +---ExpertRuleSetRuntime | +---ExpertRuleSet
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim partdoc As Document 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 ExpertRuleSet Set RuleSet = RuleBase.RuleSet
o Func CreateCheck( | CATBSTR | iName, |
CATBSTR | iCheckVariables, | |
CATBSTR | iCheckBody, | |
CATBSTR | iRuleSet) As CATIAExpertCheck |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim partdoc As Document Dim part as Part Dim CheckSolid as ExpertCheck Dim ruleset as ExpertRuleSet Dim CheckHole as ExpertCheck Set partdoc = CATDocs.Add("CATPart") Set part = partdoc.Part Set CheckSolid = part.Relations.Item("RuleBase").RuleSet.CreateCheck ("SolidActivity", "Sol : Solid", "Sol.Activity == True", "RuleSet.1") Set ruleset = part.Relations.Item("RuleBase").RuleSet.CreateRuleSet ("RuleSet.2", "") Set CheckHole = ruleset.CreateCheck ("HoleActivity", "H : Hole", "H.Activity == True", "")
o Func CreateRule( | CATBSTR | iName, |
CATBSTR | iRuleVariables, | |
CATBSTR | iRuleBody, | |
CATBSTR | iRuleSet) As CATIAExpertRule |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim partdoc As Document Set partdoc = CATDocs.Add("CATPart") Dim part as Part Set part = partdoc.Part Dim rulesolid as ExpertRule Set rulesolid = part.Relations.Item("RuleBase").RuleSet.CreateRule ("DesactivateIfActivatedOnSolid", "Sol : Solid", "Sol.Activity == True then Sol.Activity = False", "RuleSet.1") Dim ruleset as ExpertRuleSet Set ruleset = part.Relations.Item("RuleBase").RuleSet.CreateRuleSet ("RuleSet.2", "") Dim rulehole as ExpertRule Set rulehole = ruleset.CreateRule ("DesactivateIfActivatedOnHole", "H : Hole", "H.Activity == True then H.Activity = False", "")
o Func CreateRuleSet( | CATBSTR | iName, |
CATBSTR | iRuleSet) As CATIAExpertRuleSet |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim partdoc As Document Set partdoc = CATDocs.Add("CATPart") Dim part as Part Set part = partdoc.Part Dim RS1 as ExpertRuleSet RS1 = part.Relations.Item("RuleBase").RuleSet.CreateRuleSet ("RuleSet.1", "") Dim RS2 as ExpertRuleSet RS2 = part.Relations.Item("RuleBase").RuleSet.CreateRuleSet ("RuleSet.2", "RuleSet.1")
Copyright © 2003, Dassault Systèmes. All rights reserved.