LWT切换

geo · 发表于 2022-7-6 17:06:58

我在这个网站上找到了几个其他的LISP切换，但不确定如何编辑它们来创建LWT切换的LISP例程。

任何帮助都将不胜感激。

lpseifert · 发表于 2022-7-6 17:15:19


(defun c:lwt ()
 (if
   (= (getvar "lwdisplay") 1)
   (setvar "lwdisplay" 0)
   (setvar "lwdisplay" 1)
      )
 )

或者你可以点击状态栏上的LWT按钮

BOB'27T · 发表于 2022-7-6 17:18:29

或将LWDISPLAY设置为1。

geo · 发表于 2022-7-6 17:27:17

谢谢lpseifert，我需要这个rountine作为另一个lisp例程的一部分运行。

点击LWT按钮是实现这一点的简单方法，但不适合我的应用程序。

干杯

CarlB · 发表于 2022-7-6 17:33:12

并节省一点点存储空间

(defun c:lwt ()
  (setvar "lwdisplay" (- 1 (getvar "lwdisplay"))
)

lpseifert · 发表于 2022-7-6 17:38:47

酷把戏卡尔，我想应该有一个腹肌在那里…你每天都学习新的东西。

Lee Mac · 发表于 2022-7-6 17:41:46

很明显，卡尔的代码需要一个额外的右括号，但除此之外，为什么它不需要（abs）？

如果键入：

(setvar "lwdisplay" -1)

在命令行中，ACAD拒绝变量设置。

那么，没有（abs）这个代码怎么工作呢？

CarlB · 发表于 2022-7-6 17:46:13

没有负面结果，试试看：
它是：
1-1=0
或
1-0=1

是的，我错过了一个派对

lpseifert · 发表于 2022-7-6 17:54:00

经进一步审查。。。
我把-1误读为“减1”，尽管我知道得更好。我得开始用“Lisp程序”来思考了。

wizman · 发表于 2022-7-6 17:59:01

很好的一个carlb，你需要把你的名字放在那里，我们叫它carlbtoggler。。。。

[编程交流] LWT切换