lisp的原始碼如下：
(defun c:ot() ;;;設定呼叫指令
(setvar "cmdecho" 0) (setq intext1 1)
;;;(setq luu (getvar "clayer")) ;;;記憶當層圖層
;;;(command "layer" "s" "text" "") ;;;設定寫文字的圖層, 如果沒有這個圖層，請自行設定
;;; (setq ith (GETVAR "TEXTSIZE")) ;;;;這行有點機車，如果字高為0會出錯
(setq ith (getint "\nEnter letter height:")) ;;;;只好自已手動輸入字高，也好控制成果
(setq cir (* 1.3 ith)) ;;;設定畫圈圈為文字的倍數
(setq sti (getstring "\n輸入前置文字，如果有的話: "))
(setq its (getint "\n輸入初始數字:"))
(setq ite (getint ...
↧