Your Products have been synced, click here to refresh
Dim App As Object Set App = CreateObject ("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim Commands As Object Set Commands = Part.Commands CommandCount = Commands.Count Dim Command As Object Set Command = Commands.Item(CommandCount) Set ID As String ID = "PKT2" For Each Command In Commands If Command.ID = ID Then XMEAS = Command.GetText(MEAS_X, 0) End If Next Command End Sub
Dim App As Object Set App = CreateObject ("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim Commands As Object Set Commands = Part.Commands CommandCount = Commands.Count Dim Command As Object Set Command = Commands.Item(CommandCount) Set ID As String ID = "PKT2" For Each Command In Commands If Command.ID = ID Then XMEAS = Command.GetText(MEAS_X, 0) End If Next Command End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |