好吧,直接贴代码
(defun c:lcbz ();;;CAD命令自定义
(setvar "osmode" 0)
(setvar "CMDECHO" 0)
;;; 输入初值
(setq zhixian (car (entsel "\n选取要标注的对象:")))
(setq juli0 (getreal "\n输入相邻里程桩距离(m)<100>:"))
(if (= juli0 nil) (setq juli0 100))
(setq wzgd (getreal "\n输入标注文字的高度<2.5>:"))
(if (= wzgd nil) (setq wzgd 2.5))
(setq bzcd (getreal "\n输入标注短线长度<10>:"))
(if (= bzcd nil) (setq bzcd 10))
(setq bzbt (getstring "\n输入表头:"))
(if (= bzbt "") (setq bzbt "K"))
(setq weis (getreal "\n保留小数位数<2>:"))
(if (= weis 1) (setq ws 1 xiaos "0"))
(if (= weis 2) (setq ws 2 xiaos "00"))
(if (= weis 3) (setq ws 3 xiaos "000"))
;;;拐角桩标注
(setq ssdat