Role: This interface is used to interact with devices that are available
in the Device Building workbench. This includes devices created in both V5 and D5.
The following code snippet can be used to obtain a device in a CATProduct
document.
Dim objDevice As BasicDevice
set objDevice = CATIA.ActiveDocument.Product.GetTechnologicalObject("BasicDevice")
This contains a list of the current DOF values.
Please note that distances are measured in meters and
angles in radians.
Example:
Dim objDevice As BasicDevice
set objDevice = CATIA.ActiveDocument.Product.GetTechnologicalObject("BasicDevice")
Dim ListOfDOFValues ()
objDevice.GetDOFValues ListOfDOFValues
For i = 0 to ubound (ListOfDOFValues)
...
Next