全局更改psltscale

Polly · 发表于 2022-7-6 15:04:32

我在一个图形中有5个选项卡，我想一次更改所有5个选项卡的psltscale，而不是一次更改一个。有什么建议吗？我看到这些代码，但我不知道如何使用它。请帮忙

（foreach lay（layoutlist）（命令“\u LAYOUT”\u Set“lay”PSLTSCALE“1））

或
（foreach lay（layoutlist）（命令“LAYOUT”\u Set“lay”PSLTSCALE“0））估计？我

chulse · 发表于 2022-7-6 15:11:27

只需将代码粘贴到命令行并按enter键即可

copy

 
(foreach lay (layoutlist)(command "_LAYOUT" "_Set" lay "PSLTSCALE" 1))

对我来说很好。。。
这是命令行为每个选项卡报告的内容：

copy

 
_LAYOUT
Enter layout option [Copy/Delete/New/Template/Rename/SAveas/Set/?] <set>: _Set
Enter layout to make current <TP4>: TP1 Restoring cached viewports - 
Regenerating layout.
Command: PSLTSCALE
Enter new value for PSLTSCALE <1>: 1
Command:

chulse · 发表于 2022-7-6 15:13:23

如果你需要反复使用它，你也可以把它做成一个工具栏按钮。。。

Polly · 发表于 2022-7-6 15:18:19

你能像lisp程序那样做吗？如果是这样，你能告诉我怎么做吗。谢谢

uddfl · 发表于 2022-7-6 15:19:28

PSLTSCALE影响整个图形，而不是单个布局。。。还是我错了？

lpseifert · 发表于 2022-7-6 15:23:40

错误的新布局将采用Psltscale的当前值，但要更改现有布局的Psltscale，需要单独更改。

试试这个，它对我有效，注意它也改变了Ltscale和Msltscale；如果愿意，可以删除这些行。

copy


;sets msltscale, ltscale & psltscale=1 for all layouts
(defun c:layoutltscale ( / lay ct)
(setq ct (getvar "ctab"))
(setvar "ltscale" 1)    
(setvar "msltscale" 1)
(foreach lay (layoutlist)(command "_layout" "_Set" lay "_mspace" "psltscale" 1))
(setvar "ctab" ct)
);defun