The following code will open pcdmis 2014.1, 32 bit, execute a program and close pcdmis.
1) How can I make pcdmis visible? Seems like "PCDApp.visible = True" doesn't do anything.
2) How can I make the application moveable when pcdmis is running? The application can be moved around the screen before and after pcdmis runs, but not during.
Dim PCDApp, PCDPartPrograms, PCDPartProgram PCDApp = CreateObject("PCDLRN.Application") PCDApp.visible = True PCDPartPrograms = PCDApp.PartPrograms PCDPartPrograms.Open("c:\test.PRG", "CMM1") PCDPartProgram = PCDApp.ActivePartProgram PCDPartProgram.Execute() PCDPartProgram.Close() PCDApp.Quit()