Lisp 连续标注
作者：dlcms 浏览量：2146 次 发布时间：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)
