사용자 입력 데이터 포인터를 구해 파일로 저장하는 매크로 입니다. 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