LSM 710 and LSM 780
MACROS AND VISUAL BASIC
Systems
VBA PROGRAMMING FOR LSM
Carl Zeiss
02/2010 M60-1-0025
e
43
- Access with Lsm5Hardware Object
Status will be updated at Scan Start to current recording parameters
Private Sub FillPinholeList()
Dim count As Long
Dim i As Long
Dim ObjPinholes As CpPinholes
Dim Servos As Object
Dim ServoX As Object
Dim ServoY As Object
Dim success As Boolean
CmbPinhole.Clear
Set Servos = Lsm5.ExternalCpObject.pHardwareObjects.pServos
Set ObjPinholes = Lsm5.Hardware.CpPinholes
count = ObjPinholes.count
For i = 0 To count - 1
success = ObjPinholes.Select(i)
If (success) Then
Set ServoX = Servos.pItem(ObjPinholes.Name + "X")
Set ServoY = Servos.pItem(ObjPinholes.Name + "Y")
If ((Not ServoX Is Nothing) And (Not ServoY Is Nothing)) Then
CmbPinhole.AddItem ObjPinholes.Name
End If
End If
Next i
If (count) Then CmbPinhole.ListIndex = 0 ' select first pinhole
Set ObjPinholes = Nothing
Set Servos = Nothing
Set ServoX = Nothing
Set ServoY = Nothing
End Sub
- Access with external Lsm5Hardware Object
