编辑中的每个布局选项卡
嘿我无法使用autolisp。我需要一个autolisp程序来放大特定图形上每个选项卡的范围。我已经想出了以下代码，但我无法让它工作
（Defun C：布局更改（）
（foreach布局（布局列表）
（setq“ctab”布局）
（命令“zoom”“e”）
)
)
我有一段时间没有做autolisp编程了，所以我也想验证一下我加载/运行lisp的过程是否正确。见下文
步骤1：我将上面的代码复制到ms notepad中，并将其保存为LayoutChange。lsp
步骤2：我验证lsp文件是否位于“选项”对话框中的支持目录中。
第3步：使用appload选择要运行的lsp文件。
第4步：我在命令行中键入LayoutChange。
谢谢 （setvar“ctab”布局）？
(setvar "ctab" layout)
是的，这就是问题所在。谢谢顺便说一句，在脚本文件中是否可能出现类似的情况？ 脚本中的问题是布局名称和数量。ctab布局3将起作用。
我的版本
; goes trhough all layout tabs and zooms all
; By Alan H june 2011
(vl-load-com)
(command "_.pspace")
(setq curtab (getvar "Ctab"))
(setq this_dwg (vlax-get-acad-object))
(foreach d (layoutlist)
(setvar "CTAB" d)
(COMMAND "pSPACE")
(command "zoom" "C" "400,277" 600) ; in case junk around title block
)
(setvar "ctab" curtab)
(princ)
页:
[1]