从指定导入所有布局

masterfal · 发表于 2022-7-5 17:14:38

大家好，

一直在寻找允许我通过lisp命令从特定模板导入所有布局的东西。我设法找到了下面的代码，它工作得很好，但它一次只导入一个布局。
下面的代码可以修改为包括该模板中的其他布局吗？（布局名称S1、S2、S3等，直到S9）我尝试输入一个额外的布局名称，看看这样做是否可行：
....../A4详细信息。dwt“S1，S2”）
但它只进口S1
或者，如果它不能被修改，还有谁知道其他的事情吗？
我发现李·麦克斯的“偷”Lisp程序也很棒，但它比我需要的要多一些。。
指定真正不需要的布局（除非需要指定它们才能正常工作），只要希望它在可能的情况下导入所有布局即可

copy

(defun c:S1 ()
(setvar "cmdecho" 0)
(command "-layout" "template" "Z:/Engineering/00 LIBRARY/Drafting Resources/_Launchers/A4 DETAILS.dwt" "S1")
(setvar "cmdecho" 1)
(princ)
)

Tharwat · 发表于 2022-7-5 17:41:54

你好

试着遍历一个列表，我认为应该可以。如：

copy


(setvar "cmdecho" 0)
(foreach layout '("S1" "S2" "S3")
(command "-layout" "template" "Z:/Engineering/00 LIBRARY/Drafting Resources/_Launchers/A4 DETAILS.dwt" layout)
)
(setvar "cmdecho" 1)

masterfal · 发表于 2022-7-5 17:57:28

塔瓦，你是个超级明星。。我又一次帮了我的忙。非常感谢！

Tharwat · 发表于 2022-7-5 18:19:37

非常欢迎你。

[编程交流] 从指定导入所有布局

发表回复

精选推荐