对于每个布局，做些什么

Glen Smith · 发表于 2022-7-6 07:25:00

我试图修改我在这里找到的一些代码：http://www.cadtutor.net/forum/showthread.php?62876-能否同时更改多个图纸打印设置&高亮显示=打印+多个+布局

这是为了将当前图形中的所有布局打印到我的命名打印机。没有setvar行，我得到了正确数量的副本，但它们都是相同的布局（无论从哪一个执行lisp）。将setvar行错误添加到lisp中。

（实际的plot命令被注释掉了，所以我在调试此代码时不会一直浪费纸张。）

谁能帮我解释一下吗？
谢谢
格伦

Bill Tillman · 发表于 2022-7-6 07:52:52

我刚开始做一个类似的任务，打印成PDF文件。您是否设置了一个监视窗口，以查看“x”在循环中迭代时实际设置的值。

MSasu · 发表于 2022-7-6 08:03:48

LAYOUTLIST函数返回一个包含可用布局名称的列表：

copy

(setq layoutOld (getvar "CTAB"))
(foreach layoutCrt (layoutlist)
(setvar "CTAB" layoutCrt)
;your action here
)
(setvar "CTAB" layoutOld)

MSasu · 发表于 2022-7-6 08:11:45

要修复原始代码，需要从VLA对象中检索布局的名称；请检查VLA-GET-NAME。不要错过一个事实，即VLA-GET-LAYOUTS函数也会返回一个包含模型选项卡的列表；你可能想把它过滤掉。

copy

Glen Smith · 发表于 2022-7-6 08:25:33

和这满足了我的需要！非常感谢米尔恰。

我确实在x上有一块手表，我可以看到它不是一个清晰的布局名称文本，但我不知道如何从#获得
要做的事情太多了，实际上学习LISP对于完成这个项目来说似乎总是处于次要地位。

格伦

[编程交流] 对于每个布局，做些什么

发表回复

精选推荐