Indexes Previous Next
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 long (Read Only) |
o Property TraceName( | ) As CATBSTR |
o Property Visibility( | ) As boolean |
o Func Export( | CATBSTR | iName) As long |
Example : iFileName = C:\TEMP\MyFile.xls -> Excel file iFileName = /usr/tmp/MyFile.txt -> Text file
o Func GetAttachedOwner( | ) As AnyObject |
o Sub GetColor( | DNBTCPTraceReps | iRep, |
long | oR, | |
long | oG, | |
long | oB, | |
long | oA) |
o Func GetLegendsVisibility( | DNBTCPTraceLegends | iType) As boolean |
o Func GetThickness( | DNBTCPTraceReps | iRep) As long |
o Func GetType( | DNBTCPTraceReps | iRep) As long |
o Func GetVisibility( | DNBTCPTraceReps | iRep) As boolean |
o Sub RefreshDisplay( | ) |
o Sub ResetAttachedOwner( | ) |
o Sub ResetGraphics( | boolean | bSetting) |
o Sub SetAttachedOwner( | AnyObject | iOwner) |
o Sub SetColor( | DNBTCPTraceReps | iRep, |
long | iR, | |
long | iG, | |
long | iB, | |
long | iA) |
o Sub SetLegendsVisibility( | DNBTCPTraceLegends | iType, |
boolean | ibVisible) |
o Sub SetThickness( | DNBTCPTraceReps | iRep, |
long | iThickness) |
o Sub SetType( | DNBTCPTraceReps | iRep, |
long | iType) |
o Sub SetVisibility( | DNBTCPTraceReps | iRep, |
boolean | ibVisible) |
Copyright © 2006, Dassault Systèmes. All rights reserved.