All Frameworks Object Hierarchy This Framework Indexes
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 |
| o Property ReportOutPutFormat( | ) As |
| o Property ReportPath( | ) As |
| o Property ReportShowResult( | ) As |
| o Property RuleBaseEdition( | ) As (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 (Read Only) |
| o Property SolveType( | ) As |
| o Property TextVisualization( | ) As |
| o Func AccurateType( | ) As |
| o Sub AddFact( | 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( | iRootFacts) |
| o Sub Deduce( | ) |
Dim rulebase as ExpertRuleBase
Set rulebase = part.Relations.Item("RuleBase")
rulebase.Deduce ()
| o Func Fingerprint( | ) As |
on error resume next
part.Relations.Item("RuleBase").Fingerprint ()
on error goto 0
| o Func GetNumberOfRootsOfFacts( | ) As |
| o Sub GetRootsOfFacts( | oRootsOfFacts) |
| o Sub ImportFromFile( | iPath, | |
| iForce) |
part.Relations.Item("RuleBase").ImportFromFile ("e:\importeddocument.CATProduct",0)
| o Sub ImportWithLink( | iRoot, | |
| iForce) |
part.Relations.Item("RuleBase").ImportWithLink (root,0)
| o Sub Import( | iRuleSet, | |
| 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 RemoveRootOfFacts( | iRootFacts) |
| o Sub Report( | reallyStartBrowser) |
part.Relations.Item("RuleBase").Report (0)
| o Func SynchronizeStatus( | ) As |
on error resume next
part.Relations.Item("RuleBase").SynchronizeStatus ()
on error goto 0
Copyright © 2003, Dassault Systèmes. All rights reserved.