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 多行文字输入 完成后，导入刚我们做好的插件 在工具 -加