Your Products have been synced, click here to refresh
Dim PCDApp, PCDPartPrograms, PCDPartProgram Set PCDApp = CreateObject("PCDLRN.Application") Set PCDPartPrograms = PCDApp.PartPrograms PCDApp.Visible = True PCDPartPrograms.Open "Z:\test.PRG", "CMM1" Set PCDPartProgram = PCDApp.ActivePartProgram 'msgbox "This will start the execution of the partprogram!" PCDPartProgram.Execute ' PC-DMIS executes the partprogram PCDPartProgram.Close ' PC-DMIS closes and saves the partprogram ' Cleanup Set PCDPartProgram = nothing Set PCDPartPrograms = nothing Set PCDApp = nothing
Dim PCDApp, PCDPartPrograms, PCDPartProgram Set PCDApp = CreateObject("PCDLRN.Application") Set PCDPartPrograms = PCDApp.PartPrograms PCDApp.Visible = True PCDPartPrograms.Open "Z:\test.PRG", "CMM1" Set PCDPartProgram = PCDApp.ActivePartProgram 'msgbox "This will start the execution of the partprogram!" PCDPartProgram.Execute ' PC-DMIS executes the partprogram PCDPartProgram.Close ' PC-DMIS closes and saves the partprogram ' Cleanup Set PCDPartProgram = nothing Set PCDPartPrograms = nothing Set PCDApp = nothing
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |