LISP标注路线桩号_如何用AutoLisp编写自动标注里程桩程序？

好吧，直接贴代码

(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