cad自动编号

下面是流水编号的程序，你可以稍微改一下，前缀改成你想要的.然后另存为lsp文件，用CAD加载一下就行了

(DEFUN C:XUHAO()
(setq n (getint "输入起始号:"))
(setq enttxt '((0 . "TEXT") (8 . "ZJ") (6 . "Continuous") (10 0.0 0.0 0.0) (40 . 0.7) (1 . "1") (50 . 0.0) (41 . 0.8) (51 . 0.0)(71 . 0) (72 . 4) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0)))
(setq pt (getpoint "输入标位置"))

(while (/= pt nil)
(setq enttxt2 (subst (cons 1 (rtos n 2 0)) '(1 . "1") (subst (append '(11) pt) '(11 0.0 0.0 0.0) enttxt)))
(entmake enttxt2)
(setq pt (getpoint "\n输入标位置"))
(setq n (+ n 1))
)

)

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

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

Excel中自动编号? access不能自动编号 文件名可不可以自动编号 excel 自动编号 asp 自动编号问题 关于自动编号 WORD 去掉自动编号 关于ASP 自动编号 SQL 自动编号问题 excel自动编号问题