重命名布局

MR MAN · 发表于 2022-7-6 15:22:57

有没有办法在文件夹中的多个图形中重命名布局而不打开它们，因为我有100个图形，我想重命名所有100个图形中的布局，我需要快速的方法来做到这一点

有什么帮助吗？

CmdrDuh · 发表于 2022-7-6 15:27:19

简而言之，答案是肯定的，但更现实的答案是否定的。除非有人已经有了代码结构来打开dwg文件而不打开它们，否则您必须自己编写代码。脚本文件呢？此外，您的所有布局是否都被重命名为一致的，这样您就可以自动化它了？

Lee Mac · 发表于 2022-7-6 15:32:36

如果所有布局名称相同，一旦找到打开图形的方法，这将有助于：


(defun c:lay (/ laylist)
   (setvar "cmdecho" 0)
   (setq laylist (layoutlist))
   (foreach x laylist
   (command "-layout" "R" x "NEW-LAYOUT-NAME")
   ) ;_  end foreach
   (setvar "cmdecho" 1)
   (princ)
) ;_  end defun

rkmcswain · 发表于 2022-7-6 15:35:36

这行不通，因为不能有多个同名布局。当然可以很容易地修改，只要有一系列替换名称。

Lee Mac · 发表于 2022-7-6 15:38:42

很好，我只是自动假设每个图形都有一个布局

Lee Mac · 发表于 2022-7-6 15:40:42

快速修复：

对那些家伙感到抱歉

MR MAN · 发表于 2022-7-6 15:42:41

亲爱的lee mac非常感谢您的帮助，但如果我将100张图纸放在excel表格中，并将您代码中的（command“-layout”“R”x“NEW-layout-NAME”）替换为（command“-layout”“R”x，我会详细解释我需要的100张图纸还有我的？？？？？？意思是我要lisp取单元格A1，然后A2，依此类推
然后我将使脚本打开多个图形并运行这个lisp
对不起，我现在记得一点，有时打开文件的脚本在文件包含空间的情况下不起作用，例如，你知道为什么吗？

再次感谢