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
