cad编辑文字递增.docVIP

复制下面这段代码 (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输入以后或者字母输入以后回车会让你输入后缀 输入你要的 然后点击要编辑的文字 回车（点击完回车，在点击第二个） 这样就完成了递增和修改！！ 当然了，这个办法比较笨拙，但是实用！！！ 会使用天正电气来画的朋友可以略过！！！