CAD新军 发表于 2021-1-19 11:05
这个有现成的。但论坛现在上传不了附件，应该是论坛里的，原来脱编码部分有点bug，我改好了你试试
;;主程 ...
源码不错，我感觉，修改两个地方，不用二次选择，是不是更好用一些？
第一：开头选择对象(setq ss(ssget ":E:S" '((0 . "INSERT")(2 . "~`*"))))
改为 (setq ss(ssget '((0 . "INSERT")(2 . "~`*"))))
第二：(setq ss(ssget (list '(0 . "INSERT")(cons 2 OldNamEscape))))
改为 (setq ss(ssget "P" (list '(0 . "INSERT")(cons 2 OldNamEscape))))
如果不要循环，把(while (and (princ "\n循环中---选择需要重命名的部分块,直接确定退出程序")去掉，注意还有后面的括号
目前我在桌子与中望上能正常使用，在浩辰上使用，命名后，块会消失。在查原因中。
页:
1
[2]