Your Products have been synced, click here to refresh
Private Sub File_Explorer_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim varSourceopen As String = "Opened" If Process.GetProcessesByName("PCDLRN").Length = 0 Then Process.Start("C:\Program Files\Hexagon\PC-DMIS 2017 R2 64-bit\PCDLRN.exe", "/o") End If Do If Process.GetProcessesByName("PCDLRN").Length > 0 Then PCDApp = CreateObject("PCDLRN.Application") AppEvent = PCDApp.ApplicationEvents PCDApp.OperatorMode = True Exit Do Else Threading.Thread.Sleep(1000) End If Loop PCD_Create(varSourceopen) End Sub
Private Sub AppEvents_OnStartExecution(ByVal PartProg As PartProgram) Handles AppEvent.OnStartExecution ' Event subroutine. This activates when you START EXECUTION of the part program. Button1.Enabled = False Button2.Enabled = False Me.Close() End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |