cad如何自动编号

2024年10月29日 22:02

有5个网友回答

网友（1）：

工程桩在施工时，一般进行编号，但当桩较多时，桩编号就显得特别麻烦，且容易出现重号。

针对这些问题做了一个自动编号的程序（见下面 gczbh.fas 文件)。本程序实现工程桩从上到下、从左到右进行顺序编号，且可消除重叠对象重复编号的现象。加载后，在命令行输入 gczbh 回车按提示操作即可。

本程序针对圆桩（直径在600左右），且圆对象需在gongzhuang图层名，及图形为1：1绘制，即可正确进行编号。

http://www.xdcad.net/forum/showthread.php?postid=3336508

网友（2）：

百度搜索“工程桩自动编号及提取坐标程序”，此程序更新至xzbh9-4.vlx，它可对cad任何对象、按任意顺序、任意位置进行编号并提取桩位坐标，提取的坐标可为相对坐标或绝对坐标（新增）；同时，程序内部隐含：消除重叠对象、消除相同编号、消除重选编号（新增）等功能；且界面清晰友好、操作简便，可大幅度提高桩基施工编号和放样效率，是桩基施工人员首选。

另外，还有与此程序的配套程序：将测量坐标转换为方位角和距离程序（新增）、桩编号统计程序、根据坐标文件自动绘制圆桩程序、批量提取桩编号文字插入点坐标程序等。

网友（3）：

因为长时间没接触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)
)

网友（4）：

不用这样麻烦，把相同的标为一种！然后使用连续复制

网友（5）：

用”工程桩自动编号并提取坐标程序“，这程序专门解决cad对象编号问题，适用各种cad对象，柱子一样可以快速编号。百度搜索这程序即可