当前位置：首页 - 正文

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

发布网友发布时间：2022-04-24 02:49

共4个回答

热心网友时间：2022-07-08 18:33

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)
)

来自：求助得到的回答

热心网友时间：2022-07-08 18:33

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

热心网友时间：2022-07-08 18:34

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

热心网友时间：2022-07-08 18:35

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com