All Frameworks Object Hierarchy This Framework Indexes
Dim objMountManager As MountManager
Dim objRobot as Product
Set objMountManager = objRobot.GetTechnologicalObject("MountManager" )
| o Sub GetMountedDevices( | oDeviceList) |
Dim objMountManager As MountManager Dim DeviceList(3) As Product .. objMountManager.GetMountedDevices DeviceList
| o Sub IsDeviceMounted( | iDevice, | |
| iIsMounted) |
Dim objMountManager As MountManager Dim Device As Product Dim IsMounted As Boolean .. objMountManager.IsDeviceMounted Device,IsMounted
| o Sub MountDevice( | iDevice, | |
| iToolProfileName, | ||
| iMountOffset, | ||
| iToolMobility, | ||
| iToolTag, | ||
| 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( | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.ReMountDevice Device
| o Sub UnMountDevice( | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.UnMountDevice Device
| o Sub UnSetDevice( | iDevice) |
Dim objMountManager As MountManager Dim Device As Product .. objMountManager.UnSetDevice Device
Copyright © 2003, Dassault Systèmes. All rights reserved.