Dim POSX#(3),POSY#(3),PARM#(2)
For I&=0 To 3
GetUnitData I&+1,"X",POSX#(I&)
GetUnitData I&+1,"Y",POSY#(I&)
Next
Lsqumeth 4,POSX#(),POSY#(),PARM#()
Erase POSX#(),POSY#(),PARM#()
Carry out The measurement
Measure [<wait>]
Parameters
End timing mode (character type)
0:Come back immediately without waiting until the measurement end.
<wait>
1:Wait until the measurement end and come back.
2:Wait until a measurement and the end of the measurement result indication and come back.
Return Value
None.
Description
Carry out one time of measurement.
When an apple is omitted, assume it 0.
Example
Carry out The measurement.
Measure
Permit the measurement execution
MeasureStart
Parameters
None.
Return Value
None.
FZ4 User's Manual
Using Custom Command
4
239