（国外搬运）把图中的所有块全部重命名
图纸里块如果被到处拷来拷去的话，里面的块的命名会变得很复杂，因为大家都拼命给块名加前缀，块名就变得又长又奇怪。一个图里有几百个千奇百怪的块名，这种情况非常头痛！在国外的论坛找到一个代码，可以一次性的把图纸中所有的块都重新命名，美中不足的是，它只能对付没有镶套的块，镶在里面的块就无法处理了。
把这个代码抛出，希望能抛砖引玉，大家如果有真正的所有块重命名的程序，请不吝赠教，把资源分享一下。
美中不足的就是自己命令好的块也会重置吧。。 要找出图中的全部的块名，这个简单：
(while (setq blkname (cdr (assoc 2 (tblnext"block")))) ... )
也劝你不要将全部块重命名，会误事的。
要不就这样:
先插进图，找出所插入图有哪些块，只将这几个块重命名，然后将所插入的删除，然后再重新插入，这样就不会出现重名块了，我几年前就是这样处理的，现在几乎不用这种方式了
页:
[1]