ReadoutWindow Object
Description
This object lets you work with PC-DMIS's Probe Readout window.
Object Model
Example
Private Sub CommandAngles()
' This subroutine returns the AB Angles
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 "A = " & DRO.GetAAngle(1) & ", B = " & DRO.GetBAngle(1)
End Sub
See Also