Your Products have been synced, click here to refresh
Private Sub RunPartProgram(ByVal prg As String)
GetHeaderInfo()
dim app as application
dim parts as partprograms
dim part as partprogram
Set app = CreateObject("PCDLRN.Application")
Set parts = app.PartPrograms
Set part = parts.Open(prg, "CMM1")
'part = app.ActivePartProgram (delete this line)
app.visible = true
app.maximize 'I<-- I think this method exists. Working from memory here.
part.Execute()
part.Close()
app.quit()
releaseObject(app)
releaseObject(parts)
releaseObject(part)
End Sub
Thanks,
Kai
Private Sub RunPartProgram(ByVal prg As String)
GetHeaderInfo()
dim app as application
dim parts as partprograms
dim part as partprogram
Set app = CreateObject("PCDLRN.Application")
Set parts = app.PartPrograms
Set part = parts.Open(prg, "CMM1")
'part = app.ActivePartProgram (delete this line)
app.visible = true
app.maximize 'I<-- I think this method exists. Working from memory here.
part.Execute()
part.Close()
app.quit()
releaseObject(app)
releaseObject(parts)
releaseObject(part)
End Sub
Thanks,
Kai
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |