All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---KnowledgeObject | +---KnowledgeActivateObject | +---Relation | +---ExpertRuleBaseRuntime
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.CreateRuleBase("RB1")
o Property ReportDescriptionLength( | ) As CatDescriptionLengthType |
o Property ReportOutPutFormat( | ) As CatOutPutFormatType |
o Property ReportPath( | ) As CATBSTR |
o Property ReportShowResult( | ) As CatShowResultType |
o Property RuleBaseEdition( | ) As CATIAExpertRuleBase (Read Only) |
Dim aRBEdition As CATIAExpertRuleBase Set aRBEdition = aRBRuntime.RuleBaseEdition If not(aRBEdition is Nothing) Then ' .. action on the editable rulebase End if
o Property RuleSet( | ) As CATIAExpertRuleSet (Read Only) |
o Property SolveType( | ) As CatSolveType |
o Property TextVisualization( | ) As CatVisualizationType |
o Func AccurateType( | ) As CATBSTR |
o Sub AddFact( | CATIABase | iFact) |
Dim pad3 as Shape Dim rulebase as ExpertRuleBase Set pad3 = part.MainBody.Shapes.Item("Pad3") Set rulebase = part.Relations.Item("RuleBase") rulebase.AddFact (pad3)
o Sub AddRootOfFacts( | CATIABase | iRootFacts) |
o Sub Deduce( | ) |
Dim rulebase as ExpertRuleBase Set rulebase = part.Relations.Item("RuleBase") rulebase.Deduce ()
o Func Fingerprint( | ) As boolean |
on error resume next part.Relations.Item("RuleBase").Fingerprint () on error goto 0
o Func GetNumberOfRootsOfFacts( | ) As long |
o Sub GetRootsOfFacts( | CATSafeArrayVariant | oRootsOfFacts) |
o Sub Import( | CATIAExpertRuleSet | iRuleSet, |
boolean | iForce) |
Dim CATDocs As Documents Set CATDocs = CATIA.Documents Dim partdoc As Document Set partdoc = CATDocs.Open("e:\TargetDocument.CATPart") Dim part As Part Set part = partdoc.Part Dim productdoc As Document Set productdoc = CATDocs.Open("e:\ImportedDocument.CATProduct") Dim product As Product Set product = productdoc.Product Dim ruleset As ExpertRuleSet Set ruleset = product.Relations.Item("RuleBase").RuleSet.ExpertRuleBaseComponentRuntimes.ShallowItem(1) part.Relations.Item("RuleBase").Import (ruleset,0)
o Sub ImportFromFile( | CATBSTR | iPath, |
boolean | iForce) |
part.Relations.Item("RuleBase").ImportFromFile ("e:\importeddocument.CATProduct",0)
o Sub ImportWithLink( | CATIABase | iRoot, |
boolean | iForce) |
part.Relations.Item("RuleBase").ImportWithLink (root,0)
o Sub RemoveRootOfFacts( | CATIABase | iRootFacts) |
o Sub Report( | boolean | reallyStartBrowser) |
part.Relations.Item("RuleBase").Report (0)
o Func SynchronizeStatus( | ) As boolean |
on error resume next part.Relations.Item("RuleBase").SynchronizeStatus () on error goto 0
Copyright © 2003, Dassault Systèmes. All rights reserved.