Your Products have been synced, click here to refresh
Dim PCDDmisApp As Object Dim PCDDmisPart As Object Dim PCDDmisCommands As Object Dim PCDDmisCommand As Object Sub Main Set PCDDmisApp = CreateObject("PCDLRN.Application") Set PCDDmisPart = PCDDmisApp.ActivePartProgram Set PCDDmisCommands = PCDmisPart.Commands [COLOR=#FF0000]CMM_Name = PCDDmisPart.ActiveMachine[/COLOR] Dim CMM_Name,Msg Msg = CMM_Name MsgBox Msg PCDDmisPart.RefreshPart End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |