1、首先打开CAD软件,点击上方菜单中的“管理”-“加载应用程序”;
2、在弹框中选择“编号速写”应用程序进行加载;
3、加载之后在命令框中输入代码“SB”;
4、然后移动鼠标光标,在需要编号的地方点击,就可以自动编号了。
工程桩自动编号并提取坐标系列程序中,专门有“批量修改桩编号顺序程序”,专门解决这问题。
网盘 http://ljttjl.ys168.com 单机注册版程序 20080510工程桩自动编号并提取坐标程序 目录内下载xzbh8-6.vlx 。此程序可大幅度提高桩基施工编号效率。
因为长时间没接触CAD编程,所以很多函数都给忘记了,花了点时间,下面是源代码,将下列源代码复制粘贴到TXT文档,保存文件名为 bianhao.lsp 然后在CAD中打开菜单——工具——加载运用程序,然后选择刚刚保存的文件,然后在命令栏输入FF回车,选择你所需要+1的编号,OK!(defun C:ff ()
(if (setq a (car (entsel "\n请选择需要+1的编号:"))) (progn
(setq ent (entget a)
c (cdr (assoc 0 ent)))
(if (wcmatch c "*TEXT") (progn
(setq txt (atoi(cdr(assoc 1 ent)))
txt (1+ txt)
ent (subst (cons 1 (itoa txt)) (assoc 1 ent) ent))
(entmod ent)
(setq txt (1+ txt))
(while (setq ss (ssget "X" (list (cons 0 c) (cons 1 (itoa txt)))))
(setq ss (ssdel a ss)
txt (1+ txt)
a (ssname ss 0)
ent (entget a)
ent (subst (cons 1 (itoa txt)) (assoc 1 ent) ent))
(entmod ent)
)
))
))
(princ)
)
将编号组成块加上属性字段,当你更改起始编号时,后面的编号相应自动按序变化;当你需要标注更多的编号时可以连续复制即可。这是个等距编号标注块: