是否有系统变量

marmo · 发表于 2022-7-7 00:09:28

填充模式=1

填充模式=0

BlackBox · 发表于 2022-7-7 00:11:19

太棒了-完全忘记了FILLMODE！哈哈

基于apt帖子：


(defun c:FAT ()
 (setvar 'fillmode 1)
 (command "._regen")
 (princ)
)
(defun c:THIN ()
 (setvar 'fillmode 0)
 (command "._regen")
 (princ)
)

vernonlee · 发表于 2022-7-7 00:13:48

凉的明天将进行测试

marmo · 发表于 2022-7-7 00:16:58

谢谢你的代码！！！
:)

marmo · 发表于 2022-7-7 00:19:46

. 我很高兴帮助你。

BlackBox · 发表于 2022-7-7 00:22:51

*贴士帽*。。。你做了最难的部分。

vernonlee · 发表于 2022-7-7 00:25:57

谢谢Marmo。它起作用了。我能够处理这个问题。

感谢Blackbox的口齿不清。我更喜欢使用宏脚本oo，这是我自己写的。

copy

^C^CFILLMODE;1;REGEN;
^C^CFILLMODE;0;REGEN;

steven-g · 发表于 2022-7-7 00:31:19

+1 Marmo-我喜欢跳出框框思考，
BlackBox-有时我希望我能使用LISP，可能性似乎无穷无尽，老实说，这是我能够真正理解的首批代码之一，对于从未研究过该语言语法的人来说，它看起来是合乎逻辑的。
vernonlee-我别无选择，只能使用脚本和宏，这里有一个轻微的修改，只需打开/关闭fillmode

copy

^C^C^C$M=$(if,$(=,$(getvar,fillmode),1),setvar;fillmode;0,setvar;fillmode;1);rea;

Dadgad · 发表于 2022-7-7 00:32:42

状态良好的steven-g；啤酒：

vernonlee · 发表于 2022-7-7 00:36:14

谢谢steven-g

[综合讨论] 是否有系统变量

发表回复

精选推荐