CAD 编辑文字递增(9 页)Good is good, but better carries it.精益求精，善益求善。复制下面这段代码(defun C:yy(/ xa1 list1 xnum1 chr1 chr2 newnum) (setq chr1 (getstring "\n 请输入编号的前缀："))(setq xa1 (getint "\n 请输入编号的后缀："))(princ "\n 选择要修改单个的文本") (setq list1 (ssget))(while (/= list1 nil) (setq chr2 (rtos xa1 2 1)) (setq newnum (strcat chr1 chr2))(entmod (subst (cons 1 newnum) (assoc '1 (entget (ssname list1 0))) (entget (ssname list1 0))))(setq list1 nil) (princ "\n 选择要修改单个的文本") (setq list1 (ssget)) (setq xa1 (1+ xa1))) (princ))打开记事本（在电脑开始按钮-搜索程序和文件地方输入记事本-打开它）把刚才复制的那段代码黏贴到记事本内，然后另存为文件名称.lsp 必须叫 LSP 格式保持类型选所有文件然后保存到桌面好了以后打开 CAD必须先在要的位置输入这些数字 命令 T 多行文字输入完成后，导入刚我们做好的插件在工具-加载应用程序 然后在桌面找到你刚才那个 YY，点击加载然后点击关闭回到 CAD 界面在 CAD 里输入命令 yy会让你输入编号的前缀我们假如要 0 开头就输入 0 假如不要开头就直接再次回车0 输入以后或者字母输入以后回车会让你输入后缀输入你要的然后点击要编辑的文字回车（点击完回车，在点击第二个）这样就完成了递增和修改！！当然了，这个办法比较笨拙，但是有用！！！会使用天正电气来画的朋友可以略过！！！?*~|"（'[~；|…~~—~-(&—…^.…;--[>}
