You did not indicate what it is or isn't doing. Is there any sort of error message?
Did you check the sFilePath variable to make sure it is in the proper location now? Since you changed PC-DMIS versions, I wonder if your search paths are correct?
You did not indicate what it is or isn't doing. Is there any sort of error message?
Did you check the sFilePath variable to make sure it is in the proper location now? Since you changed PC-DMIS versions, I wonder if your search paths are correct?
First of all, Thanks for your reply.
I have checked path it is correct. the same code is working fine with earlier version. so I believe there is no mistake in code. Is there any chages in tree structure or object. Do you have any idea?
First of all, Thanks for your reply. I have checked path it is correct. the same code is working fine with earlier version. so I believe there is no mistake in code. Is there any chages in tree structure or object. Do you have any idea?
-Pravin
I do not have any idea right now, not sure if the structure has changed, especially since that program is so simple. Can you tell me if there are any error messages to indicate where the fault is?
First let me clear sFilePath does not have any issue. Because it is defined in function .
Private Sub RunProgram(sFilePath As String) Even I have tried using hardcore path "D:\PrbCal.PRG" so Please understand there is no issue in that variable. Path is coming correct in that variable.
When I run above code, I am not getting any error. PCDMIS 2012 application Open. Even selected program open and after couple of seconds it finishes without doing any inspection/measurement on CMM. It seems like running offline or what.
Now I hope you both will understand my situation, I am hoping to get any valuable inputs from you to resolve this issue.
Given your description of what is happening, I still don't know how to correct it, but I can recommend some tests for debugging purposes. Change the code to something like this -
Dim App As Object
Dim Parts As Object
Dim Part As Object
Set App = CreateObject("PCDLRN.Application")
Set Parts = App.PartPrograms
Set Part = Parts.Open(sFilePath, "CMM1")
msgbox "Pause for 10 seconds here"
Part.Execute
Part.Close
App.Quit
Set App = Nothing
When this runs, the comment will display on the screen. Try waiting for 10 or 15 seconds before you hit ENTER to clear the comment. Maybe there is some sort of timing issue causing a problem. If this tells us anything, we'll try to handle it with a check to make sure the part program object is completely latched before it goes on.
