GetInputDataPoint

사용자 입력 데이터 포인터를 구해 파일로 저장하는 매크로 입니다.

Sub main
    Dim point1 as MbePoint
    Dim stat   as Integer
    Dim view   as Integer
    Dim ass    as String
 
    MbeState.messages = 0
 
    Call MbeWritePrompt ("Select input data point")
    ' wait for data or reset
    Call MbeGetInput (MBE_DataPointInput, MBE_ResetInput)
    if MBE_Success = MbeState.getInputDataPoint (point1, view) then
        ass = Format$(point1.x , "#0.0#") & "," & Format$(point1.y , "#0.0#") & "," & Format$(point1.z , "#0.0#")
        Open "c:\inputdatapoint.dat" For Output Access Write Lock Write As #1
            Write #1,ass
        Close
    end if 
    Call MbeWritePrompt ("finished")
End Sub