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.