LWT切换
我在这个网站上找到了几个其他的LISP切换，但不确定如何编辑它们来创建LWT切换的LISP例程。任何帮助都将不胜感激。
(defun c:lwt ()
(if
(= (getvar "lwdisplay") 1)
(setvar "lwdisplay" 0)
(setvar "lwdisplay" 1)
)
)
或者你可以点击状态栏上的LWT按钮 或将LWDISPLAY设置为1。 谢谢lpseifert，我需要这个rountine作为另一个lisp例程的一部分运行。
点击LWT按钮是实现这一点的简单方法，但不适合我的应用程序。
干杯 并节省一点点存储空间
(defun c:lwt ()
(setvar "lwdisplay" (- 1 (getvar "lwdisplay"))
) 酷把戏卡尔，我想应该有一个腹肌在那里…你每天都学习新的东西。 很明显，卡尔的代码需要一个额外的右括号，但除此之外，为什么它不需要（abs）？
如果键入：
(setvar "lwdisplay" -1)
在命令行中，ACAD拒绝变量设置。
那么，没有（abs）这个代码怎么工作呢？ 没有负面结果，试试看：
它是：
1-1=0
或
1-0=1
是的，我错过了一个派对 经进一步审查。。。
我把-1误读为“减1”，尽管我知道得更好。我得开始用“Lisp程序”来思考了。
很好的一个carlb，你需要把你的名字放在那里，我们叫它carlbtoggler。。。。
页:
[1]
2