[求助]：如何用lisp来实现动态的监视系统变量的值？

andyhua5240

(defun c:oh()
(if (= (getvar "osnaphatch") 0)
        (setvar "osnaphatch" 1)
        (princ "\n* 打开图案填充捕捉 *")
)
   (if (=(getvar "osnaphatch") 1)
         (setvar "osnaphatch" 0)
         (princ "\n* 关闭图案填充捕捉 *")
   )
  (princ)
)

上面的代码明显就是错的？但是我又不知道怎么办？深怪自己学艺不精？


如何用lisp来实现理正中的组选开关的功能？
比如输入GS后，picksytle值为1，提示组选开关打开。再次输入GS后，pickstyle的值为0，提示组选开关关闭？
因为在CAD2006中捕捉填充图案是因系统变量osnaphatch控制的，就想用理正这个gs的形式来写个控制填充图案捕捉的lisp？


谢谢！

snsj

小HUA这样写

2. 
   
3. (defun c:oh()
   
4. (cond
   
5.   ((=(getvar "osnaphatch")0)(setvar "osnaphatch" 1)(princ "\n* 关闭图案填充捕捉*"))
   
6.   ((=(getvar "osnaphatch")1)(setvar "osnaphatch" 0)(princ "\n* 打开图案填充捕捉*"))
   
7.   )(princ)
   
8.   )
   

<br /> (defun c:oh()<br /> (cond<br />   ((=(getvar "osnaphatch")0)(setvar "osnaphatch" 1)(princ "\n* 关闭图案填充捕捉*"))<br />   ((=(getvar "osnaphatch")1)(setvar "osnaphatch" 0)(princ "\n* 打开图案填充捕捉*"))<br />   )(princ)<br />   )<br />

或者

2. 
   
3. (defun c:oh()
   
4. (if(progn
   
5.      (=(getvar "osnaphatch")0)(setvar "osnaphatch" 1)(princ "\n* 关闭图案填充捕捉*"))
   
6.   (progn
   
7.     (=(getvar "osnaphatch")1)(setvar "osnaphatch" 0)(princ "\n* 打开图案填充捕捉*"))
   
8.   );;;|if结束
   
9.   (princ)
   
10.   )
    

<br /> (defun c:oh()<br /> (if(progn<br />      (=(getvar "osnaphatch")0)(setvar "osnaphatch" 1)(princ "\n* 关闭图案填充捕捉*"))<br />   (progn<br />     (=(getvar "osnaphatch")1)(setvar "osnaphatch" 0)(princ "\n* 打开图案填充捕捉*"))<br />   );;;|if结束<br />   (princ)<br />   )<br />

雨箭风刀

你怎么又变回去了?
(if  ...
  1
  0
)

雪山飞狐(lzh)

(setvar "osnaphatch" (- 1 (getvar "osnaphatch")))

andyhua5240

谢谢楼上的大哥们！
真是感动！
顺便问问武汉的斑竹，我们老乡哈！
-1，这个如何理解？
谢谢！

qjcpj

最初由 andyhua5240 发布
[B]谢谢楼上的大哥们！
真是感动！
顺便问问武汉的斑竹，我们老乡哈！
-1，这个如何理解？
谢谢！ [/B]

"-1"中的"-"，这里等同于“减号”。

雨箭风刀

这样就做成一个开关函数了。
[php]
(defun c:oh ()
  (setvar "osnaphatch" (abs(1- (getvar "osnaphatch"))))
)
[/php]

橄榄滋味

请问你是什么版本CAD，怎么没有这个变量？

andyhua5240

最初由 橄榄滋味 发布
[B]请问你是什么版本CAD，怎么没有这个变量？ [/B]

我用的是CAD2006，所以当中有这个变量！
其实CAD2005也有这个变量的，只是CAD的帮助中没有说明，算是一个隐藏的变量吧，但是到了CAD2006后，这个变量就出现在帮助中了！

ywqq

请问有无办法监示CAD的所有变量?
或列表CAD现有的变量

fsxm

可以用set命令查看CAD的所有变量~
(defun c:oh ()
  (setvar "osnaphatch" (abs(1- (getvar "osnaphatch"))))
)
用if也可以这样写:
(defun c:oh ()
(setvar "osnaphatch" ( if (= (getvar "osnaphatch") 0) 1 0))
)

KLDC

没想过开关的写法还有这么多。。。汗。。。