All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---MountManager
Dim objMountManager As MountManager
Dim objRobot as Product
Set objMountManager = objRobot.GetTechnologicalObject("MountManager" )
| o Sub GetMountedDevices( | CATSafeArrayVariant | oDeviceList) |
Dim objMountManager As MountManager Dim DeviceList(3) As Product .. objMountManager.GetMountedDevices DeviceList
| o Sub IsDeviceMounted( | CATIAProduct | iDevice, |
| boolean | iIsMounted) |
Dim objMountManager As MountManager Dim Device As Product Dim IsMounted As Boolean .. objMountManager.IsDeviceMounted Device,IsMounted
| o Sub MountDevice( | CATIAProduct | iDevice, |
| CATBSTR | iToolProfileName, | |
| CATSafeArrayVariant | iMountOffset, | |
| boolean | iToolMobility, | |
| DELMIATag | iToolTag, | |
| DELMIATag | iBaseTag) |
Dim objMountManager As MountManager Dim Device As Product ... Dim ToolMobility As Boolean ToolMobility = TRUE Dim TCPMatrix(5) As List TCPMatrix(0)=0 TCPMatrix(1)=0 TCPMatrix(2)=0 TCPMatrix(3)=0 TCPMatrix(4)=0 TCPMatrix(5)=0 Dim ToolProfileName As String ToolProfileName = "Tool.1" Dim BaseTag as Tag Dim ToolTag as Tag ... objMountManager.MountDevice object,name2,TCPMatrix,ModifyRef,ToolTag,Nothing
| o Sub ReMountDevice( | CATIAProduct | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.ReMountDevice Device
| o Sub UnMountDevice( | CATIAProduct | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.UnMountDevice Device
| o Sub UnSetDevice( | CATIAProduct | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.UnSetDevice Device
Copyright © 2003, Dassault Systèmes. All rights reserved.