Here's what I'm trying to do - Display a message, prior to printing results, that says "There are N dimensions out-of-tolerance, do you still want to print the report?" Of course, I could accomplish this by doing a whole lot of computations with expressions, but I'd thought I'd first inquire if PC-DMIS can set a flag, based upon the Dimension command, that I can convert into a counter.
Sub Main()'************PC-DMIS declarations************
Dim pcdApp As Object
Set pcdApp = CreateObject("PCDLRN.Application")
Dim pcdPart As Object
Set pcdPart = pcdApp.ActivePartProgram
Dim pcdReportWindow As Object
Set pcdReportWindow = pcdPart.ReportWindow
'MsgBox "Refreshing Report"
'***********Repaint the report window*********
pcdReportWindow.RefreshReport
'********************Cleanup**********************
Set pcdReportWindow = Nothing
Set pcdPart = Nothing
Set pcdApp = Nothing
End Sub
Sub Main()'************PC-DMIS declarations************
Dim pcdApp As Object
Set pcdApp = CreateObject("PCDLRN.Application")
Dim pcdPart As Object
Set pcdPart = pcdApp.ActivePartProgram
Dim pcdReportWindow As Object
Set pcdReportWindow = pcdPart.ReportWindow
'MsgBox "Refreshing Report"
'***********Repaint the report window*********
pcdReportWindow.RefreshReport
'********************Cleanup**********************
Set pcdReportWindow = Nothing
Set pcdPart = Nothing
Set pcdApp = Nothing
End Sub
