以编程方式重命名块
快速背景-我是如此接近完成我的日常工作，将大规模更新我们的标题栏图纸从老公司到新公司。然而，在我们的大众图库中，包含不同的标题栏名称。幸运的是，它们都触及了0,0的角落，所以我要做的是更新下面所示的这段代码，而不是要求用户选择块，而是通过编程选择0,0上的内容。在autocad中，我可以在命令行（entsel）输入0,0，然后它选择标题栏，但我无法在Autolisp中重新创建它。任何帮助都将不胜感激！
（setq名称（cdr（assoc 2（entget（car（entsel“\n选择名称交换块：”）））））
（命令“-rename”“block”name“borderd”）
这段代码将变量名设置为标题栏的任何名称，这样我就可以运行Rename并将标题栏从原来的名称更改为我可以控制的名称。把它改成我知道的东西，这样我就可以使用Blockreplace了。 欢迎来到CADTutor。
你可能想看看李·麦克的一个绝妙的Lisp程序，
听起来这可能对这项工作有所帮助。
http://www.lee-mac.com/bfind.html
谢谢李！ FWIW-
我只需选择所需内容，然后右键单击“重命名”：眨眼：
页:
[1]