框选范围内块重命名

qazxswk

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循环中---选择需要重命名的部分块,直接确定退出程序")去掉，注意还有后面的括号

目前我在桌子与中望上能正常使用，在浩辰上使用，命名后，块会消失。在查原因中。