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

vista228

感谢分享，很好用

G〆h

月下闲人 发表于 2023-9-15 11:30
楼主2020.3.17日最新上传的代码经CAD2020/2024测试无效，麻烦看下

我目前在用的是2016版本，不知道你的2020/2024 测试有什么提示没有？有截图最好些。

muai2010

对匿名块使用批量修改时，会提示块名无效。单个修改无问题，能测试下么 cad2020

hubeiwdlue

谢谢大佬，超级实用。

andyzha

很好用，一直在用，又新改进了，再次下载体验一下。

G〆h

muai2010 发表于 2023-10-24 23:54
对匿名块使用批量修改时，会提示块名无效。单个修改无问题，能测试下么 cad2020

正使用着cad2021，没有发现相关问题。如果有问题的话，能否截屏看下有什么提示？

muai2010

G〆h 发表于 2023-12-22 13:36
正使用着cad2021，没有发现相关问题。如果有问题的话，能否截屏看下有什么提示？

弄了个动图，你看下是不是这样

G〆h

muai2010 发表于 2023-12-22 13:51
弄了个动图，你看下是不是这样

;匿名块重命名
(defun nm_block_ren(bk_old_name bk_new_name / bk_data 2_list )
        (if(setq bk_data (entget (tblobjname "block" bk_old_name)))
                (progn
                        (setq 2_list (assoc 2  bk_data))
                        (entmod (subst (cons 2 bk_new_name) 2_list bk_data ))
                )
        )
)

(nm_block_ren "*U83" "new01") ;测试匿名块改名
(测试无效，不知道是不是不支持entmod？还是cad对匿名块的范围限制，先暂时用着单独改名。
建议 创建普通块，尽量不创建匿名块)

jkop

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

52pj

支持动态块修改好评，避免了重命名块后，动态块属性丢失