All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---DOFState
Dim objDevice As DOFState
set objDevice = CATIA.ActiveDocument.Product.GetTechnologicalObject("DOFState")
| o Sub GetDeviceDOFValues( | CATSafeArrayVariant | oValues) |
Dim objDevice As DOFState
set objDevice = CATIA.ActiveDocument.Product.GetTechnologicalObject("DOFState")
Dim ListOfDOFValues ()
objDevice.GetDeviceDOFValues ListOfDOFValues
For i = 0 to ubound (ListOfDOFValues)
...
Next
Copyright © 2003, Dassault Systèmes. All rights reserved.