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.
Is there a way to get a message box with the OOT dims to pop up at programs end? Also, can you get it to say "There are ___ dimensions out of tolerance" the ___ being the quantity?
First part
yes. Using flow control and logic statements and assignments.
second part
maybe. If the version of PCDMIS is V2013 or later.
Is there is a list of all the logic statements, assignments and codes somewhere? I am new to using variables and logic and am having a hard time getting the comment box to pull the OOT dimension.
So dph51, I tried the assignment I mentionned upon under PC-DMIS 2014, and it works well !!!
Here are the commands I use at the end of my program :
But I have another question : Is it possible to visualize the report when we get OOT dims ? Because the report window shows nothing when its finished, we have to click "redraw the report". Is there an automatic command that able to doing this ?
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
I tried these two code : I inserted at the end of the program. I think its right ?
The code of ERIKIR : Its ok, It seem the visual report updated! I will test more to be sure.
The code of VPT.se : It can't execute, I have an error message. Maybe somethings missing ? Or somethings wrong ?
I inser this way (at the end of the program) :
