图块重命名（支持天正图块、动态块）

G〆h

牛顿曾说：我看得远，是因为我站在巨人的肩膀上！借用并改进了别人的源码，让它更方便点。

功能说明：
1.通过点选所在图层上的某个对象来修改图层名   EN

2.对图块批量改名 BN

3.改进了单独块改名会失去动态块的功能 BN

4.改进了单独块改名会失去属性块的功能 BN

逍遥天下

可以增加选项，改单块或全部同名块吗

jkop

单独撷取块，局部修改，支援动态块，光是这样我就觉得很好用了，感谢分享！

G〆h

;;==============改名复制=================
(defun c:BC (/ E EL OBJ NAME BLOCKS DOC BLKDEFSRC OBJS BLKDEF orign)  (if (and (setq e (car (entsel "\n选择图块:")))
           (setq el (entget e))
           (= "INSERT" (cdr (assoc 0 el)))
           (setq obj (vlax-ename->vla-object e))
           (setq name (getstring "\n新块名称:"))
           (/= "" name)
      )
    (progn (setq blocks           (vla-get-blocks
                             (setq
                               doc (vla-get-ActiveDocument (vlax-get-acad-object))
                             )
                           )
                 blkdefSrc (vla-item blocks (cdr (assoc 2 el)))
                 orign (vla-get-Origin blkdefSrc)
           )
           (vlax-for o blkdefSrc (setq objs (cons o objs)))
           (if (VL-CATCH-ALL-ERROR-P
                 (setq
                   blkdef (VL-CATCH-ALL-APPLY 'vla-item (list blocks name))
                 )
               )
             (setq blkdef (vla-add blocks orign name))
             (vlax-for o blkdef (vla-delete o))
           )
           (vla-CopyObjects
             doc
             (vlax-safearray-fill
               (vlax-make-safearray
                 vlax-vbObject
                 (cons 0 (1- (length objs)))
               )
               objs
             )
             blkdef
           )
           (vla-InsertBlock
             (vla-get-ModelSpace doc)
             (vla-get-InsertionPoint obj)
             name
             (vla-get-XScaleFactor obj)
             (vla-get-YScaleFactor obj)
             (vla-get-ZScaleFactor obj)
             (vla-get-Rotation obj)
           )
           (vla-delete obj)
    )
  )
  (princ)
)

;先放上块的改名复制，等有时间再改成对话框的方式

G〆h

file:///C:/Users/Administrator/Desktop/%E5%9D%97%E9%87%8D%E5%91%BD%E5%90%8D.gif 第一次发贴，顶一下[img][/img]

依然小小鸟

谢谢分享

mokson

对于无名块，也可以重命名的吧？

2013127ll

感觉用途不太大

shuaier

挺不错，挺实用的，认为用处不大的，那是因为你没需求
我之前需要这个程序

wend0008

谢谢支持下！研究下

G〆h

逍遥天下 发表于 2019-1-2 19:17
可以增加选项，改单块或全部同名块吗

只要是同一块，改的话一起变啊！你的意思是让当前块变成独立块，其它块名不变吗？

烟盒迷唇

试用一下效果看看