(defun c:BlockRename ()
(vl-load-com)
(setq bname (vla-get-EffectiveName (vlax-ename->vla-object (car(entsel "\nSelect block: ")))))
(command "rename" "block" bname pause)
);DEFUN
命令:blockrename
选择块:
重命名
输入要重命名的对象类型
:Block
输入旧块名:A＄c 7 EDB 4d de
输入新块名:
新块名
命令:nil
页:
1
[2]