All Frameworks Object Hierarchy This Framework Indexes
Dim MyRobot As Product
'retrieval of the product
...
'retrieval of the trace manager
Dim objDevice As TCPTraceManager
set objDevice = MyRobot.GetTechnologicalObject("TCPTraceManager")
'activate the trace
objDevice.TCPTraceMode=True
'Get the last path
Dim NbPath As Long
NbPath = objDevice.GetNbPath
If NbPath>0 Then
' retrieval of the last trace
Dim RobotTCPTrace As TCPTrace
Set RobotTCPTrace = objDevice.GetPath(NbPath)
'Export the trace points
RobotTCPTrace.Export("C:\TEMP\DEBUG.xls")
End If
| o Property TotalPoints( | ) As (Read Only) |
| o Property TraceName( | ) As |
| o Property Visibility( | ) As |
| o Func Export( | iName) As |
Example : iFileName = C:\TEMP\MyFile.xls -> Excel file iFileName = /usr/tmp/MyFile.txt -> Text file
| o Func GetAttachedOwner( | ) As |
| o Sub GetColor( | iRep, | |
| oR, | ||
| oG, | ||
| oB, | ||
| oA) |
| o Func GetLegendsVisibility( | iType) As |
| o Func GetThickness( | iRep) As |
| o Func GetType( | iRep) As |
| o Func GetVisibility( | iRep) As |
| o Sub RefreshDisplay( | ) |
| o Sub ResetAttachedOwner( | ) |
| o Sub ResetGraphics( | bSetting) |
| o Sub SetAttachedOwner( | iOwner) |
| o Sub SetColor( | iRep, | |
| iR, | ||
| iG, | ||
| iB, | ||
| iA) |
| o Sub SetLegendsVisibility( | iType, | |
| ibVisible) |
| o Sub SetThickness( | iRep, | |
| iThickness) |
| o Sub SetType( | iRep, | |
| iType) |
| o Sub SetVisibility( | iRep, | |
| ibVisible) |
Copyright © 2003, Dassault Systèmes. All rights reserved.