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.