All Frameworks Object Hierarchy This Framework Indexes
| o Sub UpdateAllInstancesFromReference( | iCompLocalRef) |
' --- get SchUpdateInstances interface
Dim objCurrentDoc As Document
Dim objPrdRoot As Product
Dim objSchRoot As SchematicRoot
Dim objUpdateInstances As SchUpdateInstances
Set objCurrentDoc = CATIA.ActiveDocument
Set objPrdRoot = objCurrentDoc.Product
Set objSchRoot = objPrdRoot.GetTechnologicalObject ("SchematicRoot")
Set objUpdateInstances = objSchRoot.GetInteface ("CATIASchUpdateInstances",objCurrentDoc)
' --- get the local reference
Dim objPrdInst As Product
Dim objPrdRef As Product
Dim objCompRef As SchComponent
' --- get an instance, objPrdInst from the selected set of objects
Set objPrdInst = objCurrentDoc.Selection.FindObject("CATIAProduct")
Set objPrdRef = objPrdInst.ReferenceProduct
Set objCompRef = objSchRoot.GetInterface ("CATIASchComponent",objPrdRef)
' --- update all the instances
objUpdateInstances.UpdateAllInstancesFromReference objCompRef
Copyright © 2003, Dassault Systèmes. All rights reserved.