Tracefields and Scripts

Anyone out there know how to retrieve a Tracefield Value from a part program in a script? Can't quite find the right command...

Parents

Rookie over 10 years ago

Sub Main

'Declares the File System Object And Instantiates it
Dim  objFSO
Set  objFSO = CreateObject("Scripting.FileSystemObject")
Dim Count As Integer


'Declares PC-DMIS As the Active Program/Application
Dim PCDApp, Part, Cmds, Cmd, TCmd As Object
Set PCDApp = CreateObject("PCDLRN.Application")
Set Part = PCDApp.ActivePartProgram
Set Cmds = Part.Commands

For Each Cmd In Cmds
       If Cmd.IsTraceFieldCommand Then
           Set TCmd = Cmd.TraceFieldCommand
           
           Count=Count+1
       End If 
     Next Cmd

Am I on the right track with this? I keep getting a type mismatch error with the If line ("If Cmd.IsTraceFieldCommand Then")

Reply

Rookie over 10 years ago

Sub Main

'Declares the File System Object And Instantiates it
Dim  objFSO
Set  objFSO = CreateObject("Scripting.FileSystemObject")
Dim Count As Integer


'Declares PC-DMIS As the Active Program/Application
Dim PCDApp, Part, Cmds, Cmd, TCmd As Object
Set PCDApp = CreateObject("PCDLRN.Application")
Set Part = PCDApp.ActivePartProgram
Set Cmds = Part.Commands

For Each Cmd In Cmds
       If Cmd.IsTraceFieldCommand Then
           Set TCmd = Cmd.TraceFieldCommand
           
           Count=Count+1
       End If 
     Next Cmd

Am I on the right track with this? I keep getting a type mismatch error with the If line ("If Cmd.IsTraceFieldCommand Then")

Children

No Data