Programming for LSM
LSM 510
DuoScan
Carl Zeiss
Differences in access to LSM Hardware with …
LSM 510 META
DuoScan
5-12
B 45-0021 e
03/06
- 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
