All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---GenericActionFactory
Dim oSelectAct As Activity
set oSelectAct = CATIA.ActiveDocument.Selection.FindObject("CATIAActivity")
Dim objGenActFact As GenericActionFactory
set objGenActFact = oSelectAct.GetTechnologicalObject("GenericActionFactory")
| o Func CreateGenericAction( | CATBSTR | iActionType, |
| boolean | iBefore, | |
| CATIAActivity | iReferenceActivity) As DELMIAGenericAction |
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.