Lisp 連續(xù)標注
作者：dlcms 瀏覽量：2156 次 發(fā)布時間：2017-12-25 03:34:55
-
(defun c:zzz()
-
(setvar "cmdecho" 0)
-
(setq bzz (getreal "n標注開始值<1>:"))
-
(setq bzbl (getreal "n標注比例值<1>"))
-
(if (= bzz nil)
-
(setq bzz 1)
-
)
-
(if (= bzbl nil)
-
(progn
-
(setq bzbl 1)
-
(setq zzz_bj (* bzbl 5))
-
(setq zzz_zg (* bzbl 3.5))
-
)
-
(progn
-
(setq zzz_bj (* bzbl 5))
-
(setq zzz_zg (* bzbl 3.5))
-
)
-
)
-
(while
-
(setq dian (getpoint "n選擇要標注的點："))
-
(setq dian1 (list (- (car dian) 1) (+ (cadr dian) 1)))
-
(setq dian2 (list (+ (car dian) 1) (- (cadr dian) 1)))
-
(command "circle" dian zzz_bj "")
-
(command "change" (entlast) "" "p" "c" "150" "")
-
(command "mtext" dian1 "j" "mc" "h" zzz_zg dian2 (rtos bzz 2 2) "" "")
-
(command "change" (entlast) "" "p" "c" "150" "")
-
(setq bzz (+ bzz 1))
-
)
-
(princ)
-
)
上一篇：CAD一些圖層設置原則
下一篇：文字延直線方向的lisp程序
相關閱讀：
- 菜鳥都應該知道的傾斜攝影測量知識 (2017-12-02)
- 三維激光掃描技術知多少，超全面 (2019-12-09)
