All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---AnyObject
|
+---TCPTrace
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 CATIABase |
| 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( | CATIABase | 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 © 2003, Dassault Systèmes. All rights reserved.