2.5 讓使用者可以輸入數值

請將下列程式碼複製並貼到編輯視窗內，貼妥後請將行號刪除(行號是為了在說明程式碼時讓您方便對照)。 或者您也可以逐一鍵入，鍵入時請不必鍵入行號，另外還要注意哪裏留有空格。

01 ;;輸入2個數值，做加法運算，然後顯示。

02

03 (defun c:lisp01()

04 (setq a (getreal "\n輸入第1個值:"))

05 (setq b (getreal " 另一個值:"))

06 (setq c (+ a b))

07 (prin1 c)

08 )

程式碼說明

04 getreal 是內建函式，可以讓使用者輸入一個浮點數。 語法：(getreal 提示) 提示必須被包含在一對雙引號「"」內。例如 "指定基準點:" \n 是功能字元，表換行。它必須被包含在一對雙引號內。通常是放在提示的最前端。

05 此行雙引號內的提示將不會換行，並且緊跟在前一提示後面。