Indexes Previous Next
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( | Product | iDevice, |
boolean | iIsMounted) |
Dim objMountManager As MountManager Dim Device As Product Dim IsMounted As Boolean .. objMountManager.IsDeviceMounted Device,IsMounted
o Sub MountDevice( | Product | iDevice, |
CATBSTR | iToolProfileName, | |
CATSafeArrayVariant | iMountOffset, | |
boolean | iToolMobility, | |
Tag | iToolTag, | |
Tag | 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( | Product | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.ReMountDevice Device
o Sub UnMountDevice( | Product | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.UnMountDevice Device
o Sub UnSetDevice( | Product | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.UnSetDevice Device
Copyright © 2006, Dassault Systèmes. All rights reserved.