Your Products have been synced, click here to refresh
Private Sub test() Dim App As PCDLRN.Application Set App = CreateObject("PCDLRN.Application") Dim Part As PCDLRN.PartProgram Set Part = App.ActivePartProgram Dim MA As Object Set MA = App.Machines("OFFLINE") 'MsgBox MA.Name MsgBox MA.ProbePosition.X & " - " & MA.ProbePosition.Y & " - " & MA.ProbePosition.Z End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |