求cad连续标注数字插件 谢谢

Question

如题所述

Answer 1

autolisp插件，加载后，使用方法如图：



autolisp代码如下，复制到记事本，以【.lsp】为后缀命名，打开cad，输入【appload】加载，命令【TES】（可以自己修改命令）。


(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) '(41 . 0.5) '(72 . 4) (cons 11 &p1)))
  (entmake (list '(0 . "circle") (cons 10 &p1) (cons 40 (* #n5 0.85))))
  (setq tr1 (1+ tr1))
  (setq #n1 tr1)
 )
 (princ)
)

来自：求助得到的回答

Answer 2

我有cad连续标注数字的插件，很不错的

Answer 3

百度搜索 工程桩自动编号并提取坐标程序，专门解决cad连续编号问题。

Answer 4

工程桩自动编号并提取坐标程序，专门解决cad对象连续编号问题。