Read Only: Returns the number of hits currently shown in the readouts window

Public Property HitCount As Long

Private Sub CommandHitCount()
' This subroutine returns the number of hits
Dim App As PCDLRN.Application
  Set App = CreateObject("PCDLRN.Application")
  Dim Part As PCDLRN.PartProgram
  Set Part = App.ActivePartProgram
  Dim DRO As PCDLRN.ReadoutWindow
  Set DRO = Part.GetReadoutWindow(1)
  MsgBox "Numhits = " & DRO.HitCount
End Sub

ReadoutWindow Object  | ReadoutWindow Members