Visual LISP 第2章 數據類型、表達式和函數(6)習題

AutoCAD 菜單實用程序已加載。
命令: COMMANDLINE
命令: (setq X 5 Y X)
5
命令: !Y
5
命令: (+ (* 2.5 2) (/ 10 3))
8.0
命令: (setq a b b 1)
1
命令: !a
nil
命令: (setq L1(list 'M' 'N'))
; 錯誤: 輸入中含有多餘的閉括號
命令: (setq L1(list 'M ' N))
(M N)
命令: (cdr L1)
(N)
命令: (setq L2(cons 'X 'Y))
(X . Y)
命令: (cdr L2)
Y

 1 命令: (setq x 5)
 2 5
 3 命令: (setq y 8 r 10)
 4 10
 5 命令: (command "circle" (list x y) r " ")
 6 circle 指定圓的圓心或 [三點(3P)/兩點(2P)/切點、切點、半徑(T)]:
 7 指定圓的半徑或 [直徑(D)]: 10
 8 命令:   未知命令「 」。按 F1 查看幫助。
 9 命令: nil
10 命令: (command "circle" (list x y) r)
11 circle 指定圓的圓心或 [三點(3P)/兩點(2P)/切點、切點、半徑(T)]:
12 指定圓的半徑或 [直徑(D)] <10.0000>: 10
13 命令: nil
14 命令: '_.zoom _e
15 命令: (command "circle" '(x y) r)
16 circle 指定圓的圓心或 [三點(3P)/兩點(2P)/切點、切點、半徑(T)]:
17 命令: 10
18 命令: nil
19 命令:
20 命令: _.erase 找到 1 個
21 命令:
22 命令: _.erase 找到 1 個
23 命令: (command "circle" (list x y) "r")
24 circle 指定圓的圓心或 [三點(3P)/兩點(2P)/切點、切點、半徑(T)]:
25 指定圓的半徑或 [直徑(D)] <10.0000>: r
26 須要數值半徑、圓周上的點或直徑(D)。
27 ; 錯誤: 函數被取消
28 指定圓的半徑或 [直徑(D)] <10.0000>: *取消*

命令: (defun mianji(d h/s) (setq s(* (/ d 2) h)))
MIANJI
命令: (mianji 4 5)
; 錯誤: 參數類型錯誤: numberp: nil
命令: (mianji 4.0 5.0 )
; 錯誤: 參數類型錯誤: numberp: nil
命令:
自動保存到 C:\Users\Administrator\appdata\local\temp\Drawing1_1_1_8467.sv$ ...
命令:
命令: (defun mianji111(d h) (*(/d 2) h))
MIANJI111
命令: (mianji111 4 5)
; 錯誤: no function definition: /D
命令: (mianji111 4 5)
; 錯誤: no function definition: /D
命令: (mianji (4 5))
; 錯誤: 函數錯誤: 4
命令: (mianji '(4 5))
; 錯誤: 參數太少
命令: (mianji111 '(4 5))
; 錯誤: 參數太少

　　上述的錯誤緣由是*和/後面須要加空格.