编辑中的每个布局选项卡

jdavid22 · 发表于 2022-7-5 17:45:46

嘿
我无法使用autolisp。我需要一个autolisp程序来放大特定图形上每个选项卡的范围。我已经想出了以下代码，但我无法让它工作

（Defun C：布局更改（）
（foreach布局（布局列表）
（setq“ctab”布局）
（命令“zoom”“e”）
)
)

我有一段时间没有做autolisp编程了，所以我也想验证一下我加载/运行lisp的过程是否正确。见下文
步骤1：我将上面的代码复制到ms notepad中，并将其保存为LayoutChange。lsp
步骤2：我验证lsp文件是否位于“选项”对话框中的支持目录中。
第3步：使用appload选择要运行的lsp文件。
第4步：我在命令行中键入LayoutChange。

谢谢

pBe · 发表于 2022-7-5 18:10:59

（setvar“ctab”布局）？

Tharwat · 发表于 2022-7-5 18:15:55

copy


(setvar "ctab" layout)

jdavid22 · 发表于 2022-7-5 18:41:39

是的，这就是问题所在。谢谢顺便说一句，在脚本文件中是否可能出现类似的情况？

BIGAL · 发表于 2022-7-5 18:51:51

脚本中的问题是布局名称和数量。ctab布局3将起作用。
我的版本

copy


; 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)

[编程交流] 编辑中的每个布局选项卡

发表回复

精选推荐