hexagon logo

Run a Program from VB Application with PC-DMIS Open

Hello there,

I am trying to run a program from vb .exe application, but don't know how to leave PC-DMIS open, so that I can see which line it is running when the CMM stops.

Private Sub RunPartProgram(ByVal prg As String)

GetHeaderInfo()
app = CreateObject("PCDLRN.Application")
parts = app.PartPrograms
parts.Open(prg, "Test")
part = app.ActivePartProgram
part.Execute()
part.Close()
app.quit()

releaseObject(app)
releaseObject(parts)
releaseObject(part)

End Sub

Thanks,
Kai
Parents Reply Children
No Data