Your Products have been synced, click here to refresh
Sub main() Dim PcdApp, PcdPart As Object Dim newcnt As Integer Dim basicInterface As Object Set PcdApp = CreateObject("Pcdlrn.Application") If PcdApp Is Nothing Then MsgBox("Application is not loaded, exiting.") GoTo endme End If Set pcdPart = PcdApp.ActivePartProgram If PcdPart Is Nothing Then MsgBox("Unable to find an active part program. Please have a part program loaded when this script is used.") Set PcdApp = Nothing GoTo endme End If Set basicInterface = pcdPart.OldBasic If basicInterface Is Nothing Then MsgBox("Unable to get basic interface.") Set PcdApp = Nothing GoTo endme End If newcnt = basicInterface.GetDimOutTol MsgBox "The Number of Out of Tolerance dimensions are: " & newcnt Set basicInterface = Nothing Set PcdApp = Nothing endme: End Sub
Sub main() Dim PcdApp, PcdPart As Object Dim newcnt As Integer Dim basicInterface As Object Set PcdApp = CreateObject("Pcdlrn.Application") If PcdApp Is Nothing Then MsgBox("Application is not loaded, exiting.") GoTo endme End If Set pcdPart = PcdApp.ActivePartProgram If PcdPart Is Nothing Then MsgBox("Unable to find an active part program. Please have a part program loaded when this script is used.") Set PcdApp = Nothing GoTo endme End If Set basicInterface = pcdPart.OldBasic If basicInterface Is Nothing Then MsgBox("Unable to get basic interface.") Set PcdApp = Nothing GoTo endme End If newcnt = basicInterface.GetDimOutTol MsgBox "The Number of Out of Tolerance dimensions are: " & newcnt Set basicInterface = Nothing Set PcdApp = Nothing endme: End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |