找个能连续标注数字的cad插件，

autolisp程序，代码如下：

(defun c:tes ( / #n5 &p1 tr1)

 (if (null #n1) (setq #n1 1) )

 (if (setq tr1 (getint (strcat "\请输入整数值:<" (rtos #n1 2 0) ">")))

  (setq #n1 tr1)

  (setq tr1 #n1)

 )

 (if (null #n2) (setq #n2 100) )

 (initget 6)

 (if (setq #n5 (getdist (strcat "\n请输入文字高度:<" (rtos #n2) ">")))

  (setq #n2 #n5)

  (setq #n5 #n2)

 )

 (while (setq &p1 (getpoint "\n请选择插入点"))

  (entmake (list '(0 . "text") (cons 10 &p1) (cons 1 (rtos tr1 2 0)) (cons 40 #n5) '(72 . 4) (cons 11 &p1)))

  (setq tr1 (1+ tr1))

  (setq #n1 tr1)

 )

 (princ)

)

我有连续标注序号数字的cad插件，很好用，我一直在使用