可以传一个CAD的数字递增复制LSP给我吗？非常感谢

程序保存为tt.lsp，命令就是：tt ;;;(jun-dz 图元名 递增值 插入点) (defun jun-dz(dname x zuobiao / dxh dxname dxs ndx) (setq dxname (entget dname) ndx (cdr (assoc 1 dxname)) dxs (car (reverse (test ndx)))) (if dxs (progn (setq dxh (strcat (substr ndx 1 (- (strlen ndx) (strlen (itoa dxs)))) (itoa (+ dxs x))) dxname (subst (cons 72 0) (assoc 72 dxname) dxname) dxname (subst (cons 10 zuobiao) (assoc 10 dxname) dxname) dxname (subst (cons 11 zuobiao) (assoc 11 dxname) dxname) dxname (subst (cons 1 dxh) (assoc 1 dxname) dxname) ) (entmake dxname) ) ) ) (defun c:tt( / en pointx) (setq en (car (entsel "\n请选择文本："))) (setq pointx (getpoint "\n输入插入点：")) (while pointx (jun-dz en 1 pointx) (setq en (entlast)) (setq pointx (getpoint pointx "\n输入插入点：")) ) ) ;下面引用caoyin的一段源码（在此表示感谢） ;字符串处理（如果字符串中不含小数点）： (defun TEST (STR) (read (strcat "("(vl-list->string (mapcar '(lambda (X) (if (<= 48 X 57) X 32)) (vl-string->list STR) ))")")) )

cad编号就用“工程桩自动编号及提取坐标程序”，此程序可对任何对象、按任意顺序、任意位置进行编号并提取坐标。且界面清晰友好、操作简便，可大幅度提高桩基施工编号和放样效率。