All Frameworks Object Hierarchy This Framework Indexes
Dim oSelectAct As Activity
set oSelectAct = CATIA.ActiveDocument.Selection.FindObject("CATIAActivity")
Dim objGenActFact As GenericActionFactory
set objGenActFact = oSelectAct.GetTechnologicalObject("GenericActionFactory")
| o Func CreateGenericAction( | iActionType, | |
| iBefore, | ||
| iReferenceActivity) As |
Dim objGenActFact As GenericActionFactory
......
Dim refAct As Activity
Dim objGenAct as GenericAction CATIASelection
......
Before = TRUE
set refAct = CATIA.ActiveDocument.Selection.FindObject("CATIAActivity")
set objGenAct = objGenActFact.CreateGenericAction("DNBIgpSpotWeld", False, refAct)
..
Copyright © 2003, Dassault Systèmes. All rights reserved.