Set PCD_App = GetObject("", "PCDLRN.Application")
Set PCD_pps = PCD_App.PartPrograms
Set PCD_pp = PCD_pps.Open("path/name.prg", machine) where machine is "OFFLINE" or "CMM1" - not completely sure
I think to create a new one:
Set PCD_pp = PCD_pps.Add("path/name.prg", units, machine, probfile)
Set PCD_App = GetObject("", "PCDLRN.Application")
Set PCD_pps = PCD_App.PartPrograms
Set PCD_pp = PCD_pps.Open("path/name.prg", machine) where machine is "OFFLINE" or "CMM1" - not completely sure
I think to create a new one:
Set PCD_pp = PCD_pps.Add("path/name.prg", units, machine, probfile)