F8有没有其它快捷键，或者通过LISP实现？

ZZXXQQ

错！是在CAD命令行中。CAD的透明命令都是这样用的。

wen1235

其实在Acad.mnu文件中的最后有一段如下面的语句，只要把其中的变量名改成你想要的，

功能键你爱用哪一个就哪一个

[CONTROL+"H"]+
'_setvar;ORTHOMODE;$M=$(if,$(eq,$(getvar,ORTHOMODE),0),1,$(if,$(eq,$(getvar,ORTHOMODE),1),0,+
$(if,$(eq,$(getvar,ORTHOMODE),2),3,2)))

dinosaurhxe

呵呵，谢谢楼上的提示，即使找不到acad.mnu，也可以按如下方法实现了。

2. (defun c:ss (/ zj)
3.   (setq zj (getvar "orthomode"))
4.   (cond    ((= zj 0)
5.      (setq zj  1
6. &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; msg "<正交 开>"
7. &#160;&#160;&#160; &#160;) ;_ 结束setq
8. &#160;&#160;&#160; )
9. &#160;&#160;&#160; ((= zj 1)
10. &#160;&#160;&#160; &#160;(setq zj&#160; 0
11. &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; msg "<正交 关>"
12. &#160;&#160;&#160; &#160;) ;_ 结束setq
13. &#160;&#160;&#160; )
14. &#160; ) ;_ 结束cond
15. &#160; (setvar "orthomode" zj)
16. &#160; (princ msg)
17. &#160; (princ)
18. )

(defun c:ss (/ zj) &#160; (setq zj (getvar "orthomode")) &#160; (cond&#160;&#160;&#160; ((= zj 0) &#160;&#160;&#160; &#160;(setq zj&#160; 1 &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; msg "<正交 开>" &#160;&#160;&#160; &#160;) ;_ 结束setq &#160;&#160;&#160; ) &#160;&#160;&#160; ((= zj 1) &#160;&#160;&#160; &#160;(setq zj&#160; 0 &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160;&#160; msg "<正交 关>" &#160;&#160;&#160; &#160;) ;_ 结束setq &#160;&#160;&#160; ) &#160; ) ;_ 结束cond &#160; (setvar "orthomode" zj) &#160; (princ msg) &#160; (princ) )

CAD83

好用我就要顶