Lisp以绘制所有布局Malfu

mwade93 · 发表于 2022-7-5 22:56:41

额外的y工作了。非常感谢。

MSasu · 发表于 2022-7-5 22:58:58

很高兴听到这个消息；不客气！

tmelancon · 发表于 2022-7-5 23:03:27

我只是试了一下，虽然它正确地打印了所有内容，但还是回到了布局1。它没有切换回模型，保存并关闭。以下是我所拥有的：

(defun c:DPA ()
(foreach lay (layoutlist)
 (setvar 'CTab lay)
 (COMMAND  "-plot"
 "n"
 "Drawing1"
 ""
 "Brother HL-5370DW series"
 "n"
 "n"
 "y"     )
   )
)
(setvar "CTAB" "MODEL")
(if (= (getvar "DWGTITLED") 1)
(command "_QSAVE" "_CLOSE")
)

看起来很滑稽。

tmelancon · 发表于 2022-7-5 23:05:31

更新：我运行了代码，它只是一遍又一遍地打印布局1。然后继续布局1。我需要它来打印所有布局，然后切换回模型，关闭，并保存。一些图纸的布局为1，而其他图纸的布局为8。你能帮忙吗？

MSasu · 发表于 2022-7-5 23:09:39

请注意，您将我建议的代码放置在DPA命令定义之外，因此，它将不会被执行。尽管如此，我不确定是什么让它看起来“有趣”。

tmelancon · 发表于 2022-7-5 23:10:08

就是这样！我知道有些事情看起来很“滑稽”。这意味着它看起来不对劲。我现在已经将其转移到定义中，并对其进行了测试。尽管如此，它仍然没有打印所有布局。我需要Lisp程序寻找和绘图，无论多少可能在任何给定的图纸。一些有3个布局，其他有8个。

MSasu · 发表于 2022-7-5 23:16:11

似乎您正在强制绘制名为“Drawing1”的布局；请考虑使用“”（绘制当前变量）或lay变量：

copy

...
(setvar 'CTab lay)
(COMMAND "-plot"
        "n"
        [color=red][s]"Drawing1"[/s] ""[/color]
...

tmelancon · 发表于 2022-7-5 23:19:09

上次我会打扰你的。代码的工作原理与我所希望的一样，但只是绘制第一个布局。你能帮我查一下密码吗？

copy

(defun c:DPA ()
(foreach lay (layoutlist)
 (setvar 'CTab lay)
 (COMMAND  "-plot"
 "n"
 ""
 ""
 "Brother HL-5370DW series"
 "n"
 "n"
 "y"     )
(COMMAND "CTAB" "MODEL")
(command "_QSAVE" "_CLOSE")
   )
)