快速更改图块名

荒野孤行

在做某些项目衍生版时，因只有部分变更，所以直接复制原来的图进行了修改，但两份图档里面块的名称一样。将这两份图进行对比时，若直接复制到一份图档里，那么块会被同名块替换掉，故此写了此功能：直接给块名加前后缀。这样图块名就不会重名了，直接复制到另外的图里面对比就不会有块被替换的情况。好吧！又可以偷懒了。

此功能只针对不匿名的图块，若是要对匿名的图块有效，则需要重新修改，需用到vla-put-name

(defun c:t1 (/ ent)
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0)
  (setvar "delobj" 1)
  (princ "\n请选取图块：")
  (setq ss (ssget '((0 . "INSERT"))))
  (if (not ss)
    (progn (princ "\n提示：未选取图块，程序退出") (exit))
  )
  (setq i 0)
  (setvar "qaflags" 1)
(command "undo" "be")
  (setq        num        (sslength ss)
        namlist        nil
        i        0
  )
  (princ (strcat "\n已选择了" (itoa num) "个块。"))
  (setq        frontnam
         (getstring "\n请输入要加入的前缀名[回车表示不修改]：")
  )
  (setq        backnam
         (getstring "\n请输入要加入的后缀名[回车表示不修改]：")
  )
  (repeat num
    (setq entdat  (entget (ssname ss i))
          entnam  (cdr (assoc 2 entdat))
          namlist (if (member entnam namlist)
                    namlist
                    (cons entnam namlist)
                  )
          i          (+ i 1)
    )
  )
  (if (and frontnam backnam)
    (progn
      (foreach mz namlist
        (progn
          (setq entna (strcat frontnam mz backnam))
          (command "rename" "b" mz entna)
        )
      )
      (alert "\n提示：图块名已更改完成。")
    )
    (alert "\n提示：未输入前缀名及后缀名，故不更改图块名。")
  )
  (command "undo" "e")
  (setvar "qaflags" 0)
  (princ)

)

softbird

本身图中有同名块怎么改成不同的块名加上1、2、3。。。。以示区别？

狼魔

楼主，能否增加一个选项，可以自动选择图中所有的块？

阳阳阳

工作常会用到的、、、、、

zhangrunze

不错呢~
感谢分享~

ZYX2129

谢谢你的分享

白色微風1991

來學習學習

qinlianggao

块内的块有没好办法

lxw320

针对不匿名的图块

ko217

批量更改，块内的块有没好办法呢