Why is that get only one measurement data after the script execution?

why is that get only one measurement data after the script execution ??

code:

Sub Main()
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Part.AsyncExecute
End Sub

Parents

233229920 over 11 years ago

There are two report modes, one icon in the reporting toolbar displays the "current run", which would display one execution of the program.
The other icon displays the total, complete report - if you had several executions, they should display when you are clicking this icon.

try this......
Sub Main
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Dim Seb
For i=1 To cmds.count
Set cmd=cmds.item(i)
If cmd.gettext(MODE_TYPE,0)="DCC" Then Exit For
Next
For j=1 To 3
Seb=Part.SetExecutionBlock(cmds.item(i),cmds.item(cmds.count))
Part.AsyncExecute
Next
End Sub
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Reply

233229920 over 11 years ago

There are two report modes, one icon in the reporting toolbar displays the "current run", which would display one execution of the program.
The other icon displays the total, complete report - if you had several executions, they should display when you are clicking this icon.

try this......
Sub Main
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Dim Seb
For i=1 To cmds.count
Set cmd=cmds.item(i)
If cmd.gettext(MODE_TYPE,0)="DCC" Then Exit For
Next
For j=1 To 3
Seb=Part.SetExecutionBlock(cmds.item(i),cmds.item(cmds.count))
Part.AsyncExecute
Next
End Sub
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Children

No Data