cad如何自动编号
我用CAD做图，例如画了很多柱子，有1000多个，每个柱子都要编第一个为1号，第二个为2号……以此类推知道第一千个标为1000号，我不想一个一个的去编，太麻烦了，大家谁是这方面的高手啊，帮帮我。
工程桩在施工时，一般进行编号，但当桩较多时，桩编号就显得特别麻烦，且容易出现重号。
针对这些问题做了一个自动编号的程序（见下面 gczbh.fas 文件)。本程序实现工程桩从上到下、从左到右进行顺序编号，且可消除重叠对象重复编号的现象。加载后，在命令行输入 gczbh 回车按提示操作即可。
本程序针对圆桩（直径在600左右），且圆对象需在gongzhuang图层名，及图形为1：1绘制，即可正确进行编号。
http://www.xdcad.net/forum/showthread.php?postid=3336508
针对这些问题做了一个自动编号的程序（见下面 gczbh.fas 文件)。本程序实现工程桩从上到下、从左到右进行顺序编号，且可消除重叠对象重复编号的现象。加载后，在命令行输入 gczbh 回车按提示操作即可。
本程序针对圆桩（直径在600左右），且圆对象需在gongzhuang图层名，及图形为1：1绘制，即可正确进行编号。
http://www.xdcad.net/forum/showthread.php?postid=3336508
参考资料：http://www.xdcad.net/forum/showthread.php?postid=3336508
温馨提示：内容为网友见解，仅供参考
第1个回答 2015-06-28
百度搜索“工程桩自动编号及提取坐标程序”，此程序更新至xzbh9-4.vlx，它可对cad任何对象、按任意顺序、任意位置进行编号并提取桩位坐标，提取的坐标可为相对坐标或绝对坐标（新增）；同时，程序内部隐含：消除重叠对象、消除相同编号、消除重选编号（新增）等功能；且界面清晰友好、操作简便，可大幅度提高桩基施工编号和放样效率，是桩基施工人员首选。
另外，还有与此程序的配套程序：将测量坐标转换为方位角和距离程序（新增）、桩编号统计程序、根据坐标文件自动绘制圆桩程序、批量提取桩编号文字插入点坐标程序等。
第2个回答 2019-02-13
因为长时间没接触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)
)
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)
)
第3个回答 2008-05-18
不用这样麻烦，把相同的标为一种！然后使用连续复制
第4个回答 2018-06-09
用”工程桩自动编号并提取坐标程序“，这程序专门解决cad对象编号问题，适用各种cad对象，柱子一样可以快速编号。百度搜索这程序即可
相似回答
