基礎準備動作 第6章 - 6test1 ( LISP )

==================================================================

(defun c:6test1()
  ;基礎準備動作 第6章
  (setvar "menuecho" 0)
  (command "-layer" "n" "STR,TXT" "c" "1" "STR" "c" "4" "txt" "s" "str" "")
  (setq L1 (getpoint "請輸入直線起點座標(15,10)："))
  (setq L2 (getpoint "請輸入值線終點座標(50,40)："))
  (command "line" L1 L2 "");畫直線
  (setq cpt1 (getpoint "請輸入圓心座標(60,15)："))
  (setq rad (getreal "請輸入圓半徑(12.5)："))
  (command "circle" cpt1 rad "");畫圓
  (command "_zoom" "e" "")
  (command "-layer" "s" "txt" "" "dtext")
  (prin1)
)
(prompt "<<ok>> 6test1 基礎準備動作 - 2018 10 02")
(prin1)