4.1 在指令行輸入程式

你也可以在指令行鍵入 AutoLISP 程式，在輸入完每一對括號後按下鍵，這行程式就會馬上被執行。例如你可以輸入下列程式(需注意空格)：

(alert "Hello World") (+ 2 3) (+ 1 2 3 4 5) (- 6 8) (- 5 4 3) ( 5 3) ( 1 2 3 4 5) (/ 9 4) (/ 36 4 3) (setq a 2) (setq b 3) (setq c (+ a 2)) (setq a 4 b 5 c 6) (setq d (+ a b c)) (alert d) (alert (strcat (rtos a) "+" (rtos b) "+" (rtos c) "=" (rtos d)))

(getint "\n輸入整數:") (getreal "\n輸入浮點數:")

(setq s (getstring "\n輸入文字:")) (alert s)

(setq p1 (getpoint "\n指定一點:")) (setq p2 (getpoint "\n另一點:")) (command "line" p1 p2 "")

(setq p1 (getpoint "\n指定一點:")) (setq p2 (getpoint p1 "\n另一點:")) (command "line" p1 p2 "")

(setq p1 (getpoint "\n指定第一個角點:")) (setq p2 (getcorner p1 "\n另一角點:")) (setq x (abs (- (nth 0 p1) (nth p0 p2)))) (setq y (abs (- (nth 1 p1) (nth p1 p2)))) (setq p3 (polar p1 0 x)) (setq p4 (polar p1 (* pi 0.5) y)) (command "line" p1 p3 p2 p4 "c")