Your Products have been synced, click here to refresh
Sub Main Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDPrbOffset Dim rad As Double Set PCDApp = CreateObject("PCDLRN.Application") Set PCDPartPrograms = PCDApp.PartPrograms Set PCDPartProgram = PCDApp.ActivePartProgram Set PCDPrbOffset = CreateObject("PCDLRN.PointData") Set PCDOB = PCDPartProgram.OldBasic PCDOB.GetProbeOffsets(PCDPrbOffset) rad=PCDOB.GetProbeRadius MsgBox(rad) Set PCDCommands = Nothing Set PCDPartProgram = Nothing Set PCDPartPrograms = Nothing Set PCDApp = Nothing Set PCDPrbOffset = Nothing Set PCDOB = Nothing End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |