我用这个:
- (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/dim Style/LAyer/LType/Material/Style/table Style/Ucs/VIew/VPort]:Block
输入旧块名:A＄c 7 EDB 4d de
输入新块名:
新块名
命令:nil | 
