按键切换程式

Comming

修改下面这个程式在运行时按X键就一直画水平线,当需要画竖线时按V键就可以一直画竖线,可以反复切换,应该怎么写

(defun c:tv ()
  (setvar "cmdecho" 0)
  (PROMPT "\n按键 X-水平  V-竖直:")
  (setq key (cadr (grread)))
  (setq  i key)
  (while key
    (cond ((or (= key 120) (= key 88))    (command "xline" "h" pause ""))
   ((or (= key 118) (= key 86))    (command "xline" "v" pause ""))
   (t (command "xline" "h" pause "")))
  )
)

xiaobao02

最近才编的

2. (defun c:hv (/ aa)
   
3. (princ "\n***构造线加强***")
   
4. (while (= aa nil)
   
5.     (princ "\n水平(左键)/垂直(右键)/角度(空格)")
   
6.     (setq aa (grread))
   
7.     (cond
   
8.       ((= (car aa) 3)  (c:hh)(setq aa nil))
   
9.       ((= (car aa) 25) (c:vv)(setq aa nil))
   
10.       ((= (cadr aa) 32) (c:xla)(setq aa nil))
    
11.       ((or (= (cadr aa) 88)(= (cadr aa) 120))(setq aa 1))
    
12. )
    
13. )
    
14. )
    
15. 
    
16. 
    
17. (defun c:hh ()
    
18.   (command "xline" "h")
    
19.   (while (not (zerop (getvar "CMDACTIVE")))
    
20.     (princ "\n指定通过点: ")
    
21.     (command pause)
    
22.   )  
    
23. (princ)
    
24. )
    
25. 
    
26. (defun c:vv ()
    
27.   (command "xline" "v")
    
28.   (while (not (zerop (getvar "CMDACTIVE")))
    
29.     (princ "\n指定通过点: ")
    
30.     (command pause)
    
31.   )
    
32. (princ)
    
33. )
    
34. 
    
35. 
    
36. (defun c:xla ()
    
37.   (command "xline" "a")
    
38.   (princ "\n输入构造线的角度:  ")
    
39.   (command pause)
    
40.   (while (not (zerop (getvar "CMDACTIVE")))
    
41.     (princ "\n指定通过点: ")
    
42.     (command pause)
    
43.   )
    
44. (princ)
    
45. )

(defun c:hv (/ aa)<br /> (princ "\n***构造线加强***")<br /> (while (= aa nil)<br />     (princ "\n水平(左键)/垂直(右键)/角度(空格)")<br />     (setq aa (grread))<br />     (cond<br />       ((= (car aa) 3)  (c:hh)(setq aa nil))<br />       ((= (car aa) 25) (c:vv)(setq aa nil))<br />       ((= (cadr aa) 32) (c:xla)(setq aa nil))<br />       ((or (= (cadr aa) 88)(= (cadr aa) 120))(setq aa 1))<br /> )<br /> )<br /> )<br /> <br /> <br /> (defun c:hh ()<br />   (command "xline" "h")<br />   (while (not (zerop (getvar "CMDACTIVE")))<br />     (princ "\n指定通过点: ")<br />     (command pause)<br />   )  <br /> (princ)<br /> )<br /> <br /> (defun c:vv ()<br />   (command "xline" "v")<br />   (while (not (zerop (getvar "CMDACTIVE")))<br />     (princ "\n指定通过点: ")<br />     (command pause)<br />   )<br /> (princ)<br /> )<br /> <br /> <br /> (defun c:xla ()<br />   (command "xline" "a")<br />   (princ "\n输入构造线的角度:  ")<br />   (command pause)<br />   (while (not (zerop (getvar "CMDACTIVE")))<br />     (princ "\n指定通过点: ")<br />     (command pause)<br />   )<br /> (princ)<br /> )

长风（尚品）

xiaobao02 发表于 2013-8-29 22:30
最近才编的

hv右键选项不能用，是怎么回事？

ucuc2003

xiaobao02 发表于 2013-9-2 17:30
最近才编的

高手！！！套用程序可以定制很多有趣的东西，哈哈，收藏了！

vvcd

非常经典哈，谢谢分享，不错

ymcui

谢谢分享               

vlisp2012

很好的程序啊。

andyhua

程序怎么退出呢？按ESC吗？

vlisp2012

嗯，esc退出！

长风（尚品）

长风（尚品） 发表于 2013-8-29 22:50
hv右键选项不能用，是怎么回事？

我的返回值是12 替换后还是不行