[编程申请]：统一修改块名

giswater

怎样对以图中的块进行重命名？
比如，图中有块名为：ee和ww,执行程序后能自动更名为aa和cc。
谢谢。同时我还不知道该图中是否存在]块ee和ww,即：先搜索某一块，如有更名为某一名，直到搜索完所有需要更名的块！

eachy

rename 命令不可以吗?

giswater

我有很多图（每副图中的块有很多相同的，而且我知道所有的块的块名），而且块很多，如果每副图都这样做，将会话很多时间，有谁能帮忙？先谢谢了！

eachy

2. 
   
3. (mapcar        '(lambda (b1 b2)
   
4.            (if (tblsearch "block" b1)
   
5.              (command ".rename" "b" b1 b2)
   
6.            )
   
7.          )
   
8.         (list . . . .);_ old block name list
   
9.         (list . . . .);_ new block name list
   
10. )

<br /> (mapcar        '(lambda (b1 b2)<br />            (if (tblsearch "block" b1)<br />              (command ".rename" "b" b1 b2)<br />            )<br />          )<br />         (list . . . .);_ old block name list<br />         (list . . . .);_ new block name list<br /> )

li809

楼上的是如何调用的呢，是lisp文件吗，命令是什么