[討論]分享半自動畫圓+編號

由 **hueigo** 2015-08-19, 17:54

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 "\n輸入結束數字:"))

(command "'redraw")
(setq itn (+ (- ite its) 1))
(repeat itn
(setq itss (itoa its))
(setq itt (strcat sti itss))

(setq pt (getpoint "\n文字插入點: "))
(command "circle" pt cir )
(command "text" "m" pt ith 0 itt)
(setq its (+ its 1))
)
;;;(command "layer" "s" luu "") ;;;回到初始圖層
)
註：沒有輸入前置文字直接按空白鍵跳過就是純數字前面有;;;是註解說明，沒動作的指令

如果把畫圓指令前方加;;; 可以變成純文字編號

下載lsp的位置，省去手key 還key錯

https://www.dropbox.com/s/xe3ogg4bybrhq9q/ot%E7%95%AB%E5%9C%93%E5%8A%A0%E7%B7%A8%E8%99%9F.lsp?dl=0

備用下載：
https://app.box.com/s/7u7a1r7xlzaqwdsqragtqtawp87ates0