新手发个 动态按键旋转 1 15 45 90 180度

weiqi

已修改~新手发个 按键旋转   
《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》
《A键 90度》《E键 -90度》 《D键 180度》

大小写通过了~
空格 回车退出 （不报错 已修改）

1. ;;; ----------------------------------------------------------------------------
   
2. ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------
   
3. ;;; ----------------------------------------------------------------------------
   
4. ;;;                            ( 通过键盘旋转目标 )                             
   
5. ;;; ----------------------------------------------------------------------------
   
6. (DEFUN C:xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)
   
7. (SETQ cmd (GETVAR "CMDECHO"))
   
8. (SETVAR "CMDECHO" 0)
   
9. (SETQ loop 1)
   
10. (WHILE loop
    
11.   (PROMPT "\n 选择对象 : ")
    
12.   (SETQ SSet (SSGET))
    
13.   (COND
    
14.    ((NULL SSet)(ALERT "没有选中对象!"))
    
15.    (T (SETQ loop nil))
    
16.   )
    
17. )
    
18. (setq p1 (getpoint "指定基点: "))
    
19. (PRINC "\n Press key:")
    
20. (PRINC "\n\t 《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》   ")
    
21. (PRINC "\n\t 《A键 90度》《E键 -90度》 《D键 180度》")
    
22. (TERPRI)
    
23. (SETQ KeyList '(32  49 50 65 68 81 83 87 119 101 113 32 115 97 100))
    
24. (WHILE (/= (SETQ n (CADR (GRREAD))) 13)
    
25.   (if (MEMBER n KeyList)
    
26.    (COND
    
27. ((= n 49)(COMMAND "ROTATE" SSet "" p1 1)(PRINC "\r< +1度 >"))
    
28.   ((= n 50)(COMMAND "ROTATE" SSet "" p1 -1)(PRINC "\r< -1度 >"))
    
29. 
    
30.     ((= n 113)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< q 15度 >"))
    
31.     ((= n 81)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< Q 15度 >"))
    
32. 
    
33.     ((= n 119)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< w -15度 >"))
    
34.     ((= n 87)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< W -15度 >"))
    
35. 
    
36.     ((= n 101)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< e 45度 >"))
    
37.     ((= n 69)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< E  45度 >"))
    
38. 
    
39.     ((= n 115)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< s -90度 >"))
    
40.     ((= n 83)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< S -90度 >"))
    
41. 
    
42.     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< a  90度>"))
    
43.     ((= n 65) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< A  90度>"))
    
44. 
    
45.     ((= n 100)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< d 180度>"))
    
46.     ((= n 68)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< D 180度>"))
    
47. 
    
48.     ((= n 32)(nil))
    
49. 
    
50.    )
    
51.   )
    
52. );WHILE
    
53. (SETVAR "CMDECHO" cmd)
    
54. (PRINC)
    
55. )
    
56. (PRINC "按键旋转1 2 q w e a s d 命令XZ ")
    
57. 
    

;;; ----------------------------------------------------------------------------<br /> ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------<br /> ;;; ----------------------------------------------------------------------------<br /> ;;;                            ( 通过键盘旋转目标 )                             <br /> ;;; ----------------------------------------------------------------------------<br /> (DEFUN C:xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)<br /> (SETQ cmd (GETVAR "CMDECHO"))<br /> (SETVAR "CMDECHO" 0)<br /> (SETQ loop 1)<br /> (WHILE loop<br />   (PROMPT "\n 选择对象 : ")<br />   (SETQ SSet (SSGET))<br />   (COND<br />    ((NULL SSet)(ALERT "没有选中对象!"))<br />    (T (SETQ loop nil))<br />   )<br /> )<br /> (setq p1 (getpoint "指定基点: "))<br /> (PRINC "\n Press key:")<br /> (PRINC "\n\t 《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》   ")<br /> (PRINC "\n\t 《A键 90度》《E键 -90度》 《D键 180度》")<br /> (TERPRI)<br /> (SETQ KeyList '(32  49 50 65 68 81 83 87 119 101 113 32 115 97 100))<br /> (WHILE (/= (SETQ n (CADR (GRREAD))) 13)<br />   (if (MEMBER n KeyList)<br />    (COND<br /> ((= n 49)(COMMAND "ROTATE" SSet "" p1 1)(PRINC "\r< +1度 >"))<br />   ((= n 50)(COMMAND "ROTATE" SSet "" p1 -1)(PRINC "\r< -1度 >"))<br /> <br />     ((= n 113)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< q 15度 >"))<br />     ((= n 81)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< Q 15度 >"))<br /> <br />     ((= n 119)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< w -15度 >"))<br />     ((= n 87)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< W -15度 >"))<br /> <br />     ((= n 101)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< e 45度 >"))<br />     ((= n 69)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< E  45度 >"))<br /> <br />     ((= n 115)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< s -90度 >"))<br />     ((= n 83)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< S -90度 >"))<br /> <br />     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< a  90度>"))<br />     ((= n 65) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< A  90度>"))<br /> <br />     ((= n 100)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< d 180度>"))<br />     ((= n 68)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< D 180度>"))<br /> <br />     ((= n 32)(nil))<br /> <br />    )<br />   )<br /> );WHILE<br /> (SETVAR "CMDECHO" cmd)<br /> (PRINC)<br /> )<br /> (PRINC "按键旋转1 2 q w e a s d 命令XZ ")<br /> <br />

zmzk

这个工作中能用到，下载了！

zmzk

这个工作中能用到，精彩！

qxyzm

很有意思 学习了

zyhandw

试用了下，得按ESC 才退出，应该是没考虑输入除w、s、a、d外其它字符的处理（甚至是上述字符的大写都不行）；如果最后一次输入w、s、a、d的话，还是能够通过回车退出的，自己再改下吧。

weiqi

高手 能否 出手一下，实在 基础不行噢。。。

ZZXXQQ

1. ;;; ----------------------------------------------------------------------------
   
2. ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------
   
3. ;;; ----------------------------------------------------------------------------
   
4. ;;;                            ( 通过键盘旋转目标 )                             
   
5. ;;; ----------------------------------------------------------------------------
   
6. (DEFUN C:xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)
   
7. (SETQ cmd (GETVAR "CMDECHO"))
   
8. (SETVAR "CMDECHO" 0)
   
9. (SETQ loop 1)
   
10. (WHILE loop
    
11.   (PROMPT "\n 选择对象 : ")
    
12.   (SETQ SSet (SSGET))
    
13.   (COND
    
14.    ((NULL SSet)(ALERT "没有选中对象!"))
    
15.    (T (SETQ loop nil))
    
16.   )
    
17. )
    
18. (setq p1 (getpoint "指定基点: "))
    
19. (PRINC "\n Press key:")
    
20. (PRINC "\n\t w --- UP")
    
21. (PRINC "\n\t s --- DOWN")
    
22. (PRINC "\n\t a --- LEFT")
    
23. (PRINC "\n\t d --- RIGHT")
    
24. (PRINC "\n 请按方向键 W S A D")
    
25. (TERPRI)
    
26. (SETQ KeyList '(119 115 97 100))
    
27. (WHILE (/= (SETQ n (CADR (GRREAD))) 13)
    
28.   (if (MEMBER n KeyList)
    
29.    (COND
    
30.     ((= n 119)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< 上 15度 >"))
    
31.     ((= n 115)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< 下 180度 >"))
    
32.     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< 左  90度>"))
    
33.     ((= n 100)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< 右 -90度>"))
    
34.    )
    
35.   )
    
36. );WHILE
    
37. (SETVAR "CMDECHO" cmd)
    
38. (PRINC)
    
39. )
    
40. (PRINC "按键旋转 w a s d 命令XZ ")
    

;;; ----------------------------------------------------------------------------<br /> ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------<br /> ;;; ----------------------------------------------------------------------------<br /> ;;;                            ( 通过键盘旋转目标 )                             <br /> ;;; ----------------------------------------------------------------------------<br /> (DEFUN C:xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)<br /> (SETQ cmd (GETVAR "CMDECHO"))<br /> (SETVAR "CMDECHO" 0)<br /> (SETQ loop 1)<br /> (WHILE loop<br />   (PROMPT "\n 选择对象 : ")<br />   (SETQ SSet (SSGET))<br />   (COND<br />    ((NULL SSet)(ALERT "没有选中对象!"))<br />    (T (SETQ loop nil))<br />   )<br /> )<br /> (setq p1 (getpoint "指定基点: "))<br /> (PRINC "\n Press key:")<br /> (PRINC "\n\t w --- UP")<br /> (PRINC "\n\t s --- DOWN")<br /> (PRINC "\n\t a --- LEFT")<br /> (PRINC "\n\t d --- RIGHT")<br /> (PRINC "\n 请按方向键 W S A D")<br /> (TERPRI)<br /> (SETQ KeyList '(119 115 97 100))<br /> (WHILE (/= (SETQ n (CADR (GRREAD))) 13)<br />   (if (MEMBER n KeyList)<br />    (COND<br />     ((= n 119)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< 上 15度 >"))<br />     ((= n 115)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< 下 180度 >"))<br />     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< 左  90度>"))<br />     ((= n 100)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< 右 -90度>"))<br />    )<br />   )<br /> );WHILE<br /> (SETVAR "CMDECHO" cmd)<br /> (PRINC)<br /> )<br /> (PRINC "按键旋转 w a s d 命令XZ ")<br />

weiqi

ZZXXQQ 发表于 2012-12-1 19:14

Z版 貌似 还是 退出不了哦。

weiqi

已经修改了代码 大小写 已经都能 通用，但是 空格回车的时候 会报错~
((= n 32)(exit)) 这么写应该不对~~

另外问下 鼠标右键的 键码是多少呢？ 望高手出手相助~~~

bai2000

这个要做记号的

springwillow

小改一下，除了定义的那几个键，按其它任意键都会退出。

2. ;;; ----------------------------------------------------------------------------
   
3. ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------
   
4. ;;; ----------------------------------------------------------------------------
   
5. ;;;                            ( 通过键盘旋转目标 )                             
   
6. ;;; ----------------------------------------------------------------------------
   
7. (DEFUN C:xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)
   
8. (SETQ cmd (GETVAR "CMDECHO"))
   
9. (SETVAR "CMDECHO" 0)
   
10. (SETQ loop 1)
    
11. (WHILE loop
    
12.   (PROMPT "\n 选择对象 : ")
    
13.   (SETQ SSet (SSGET))
    
14.   (COND
    
15.    ((NULL SSet)(ALERT "没有选中对象!"))
    
16.    (T (SETQ loop nil))
    
17.   )
    
18. )
    
19. (setq p1 (getpoint "指定基点: "))
    
20. (PRINC "\n Press key:")
    
21. (PRINC "\n\t 《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》   ")
    
22. (PRINC "\n\t 《A键 90度》《E键 -90度》 《D键 180度》")
    
23. (TERPRI)
    
24. (SETQ KeyList '(32  49 50 65 68 81 83 87 119 101 113 32 115 97 100))
    
25. (WHILE (and(/= (SETQ n (CADR (GRREAD))) 13)
    
26.   (MEMBER n KeyList))
    
27.    (COND
    
28. ((= n 49)(COMMAND "ROTATE" SSet "" p1 1)(PRINC "\r< +1度 >"))
    
29.   ((= n 50)(COMMAND "ROTATE" SSet "" p1 -1)(PRINC "\r< -1度 >"))
    
30.     ((= n 113)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< q 15度 >"))
    
31.     ((= n 81)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< Q 15度 >"))
    
32.     ((= n 119)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< w -15度 >"))
    
33.     ((= n 87)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< W -15度 >"))
    
34.     ((= n 101)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< e 45度 >"))
    
35.     ((= n 69)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< E  45度 >"))
    
36.     ((= n 115)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< s -90度 >"))
    
37.     ((= n 83)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< S -90度 >"))
    
38.     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< a  90度>"))
    
39.     ((= n 65) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< A  90度>"))
    
40.     ((= n 100)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< d 180度>"))
    
41.     ((= n 68)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< D 180度>"))
    
42.     ((= n 32)(nil))
    
43.   )
    
44. );WHILE
    
45. (SETVAR "CMDECHO" cmd)
    
46. (PRINC)
    
47. )
    
48. (PRINC "按键旋转1 2 q w e a s d 命令XZ ")
    

;;; ----------------------------------------------------------------------------<br /> ;;; ----------------------  = = = =  主 函 数  = = = =  ------------------------<br /> ;;; ----------------------------------------------------------------------------<br /> ;;;                            ( 通过键盘旋转目标 )                             <br /> ;;; ----------------------------------------------------------------------------<br /> (DEFUN C:xz (/ cmd loop SSet KeyList n step BasePoint0 BasePoint1 BasePoint2)<br /> (SETQ cmd (GETVAR "CMDECHO"))<br /> (SETVAR "CMDECHO" 0)<br /> (SETQ loop 1)<br /> (WHILE loop<br />   (PROMPT "\n 选择对象 : ")<br />   (SETQ SSet (SSGET))<br />   (COND<br />    ((NULL SSet)(ALERT "没有选中对象!"))<br />    (T (SETQ loop nil))<br />   )<br /> )<br /> (setq p1 (getpoint "指定基点: "))<br /> (PRINC "\n Press key:")<br /> (PRINC "\n\t 《1键- 1度》《2键-1度》《Q键 15度》《W键 -15度》《E键 45度》   ")<br /> (PRINC "\n\t 《A键 90度》《E键 -90度》 《D键 180度》")<br /> (TERPRI)<br /> (SETQ KeyList '(32  49 50 65 68 81 83 87 119 101 113 32 115 97 100))<br /> (WHILE (and(/= (SETQ n (CADR (GRREAD))) 13)<br />   (MEMBER n KeyList))<br />    (COND<br /> ((= n 49)(COMMAND "ROTATE" SSet "" p1 1)(PRINC "\r< +1度 >"))<br />   ((= n 50)(COMMAND "ROTATE" SSet "" p1 -1)(PRINC "\r< -1度 >"))<br />     ((= n 113)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< q 15度 >"))<br />     ((= n 81)(COMMAND "ROTATE" SSet "" p1 15)(PRINC "\r< Q 15度 >"))<br />     ((= n 119)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< w -15度 >"))<br />     ((= n 87)(COMMAND "ROTATE" SSet "" p1 -15)(PRINC "\r< W -15度 >"))<br />     ((= n 101)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< e 45度 >"))<br />     ((= n 69)(COMMAND "ROTATE" SSet "" p1 45)(PRINC "\r< E  45度 >"))<br />     ((= n 115)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< s -90度 >"))<br />     ((= n 83)(COMMAND "ROTATE" SSet "" p1 -90)(PRINC "\r< S -90度 >"))<br />     ((= n 97) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< a  90度>"))<br />     ((= n 65) (COMMAND "ROTATE" SSet "" p1 90)(PRINC "\r< A  90度>"))<br />     ((= n 100)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< d 180度>"))<br />     ((= n 68)(COMMAND "ROTATE" SSet "" p1 180)(PRINC "\r< D 180度>"))<br />     ((= n 32)(nil))<br />   )<br /> );WHILE<br /> (SETVAR "CMDECHO" cmd)<br /> (PRINC)<br /> )<br /> (PRINC "按键旋转1 2 q w e a s d 命令XZ ")<br />

davide888

学习了        

jpg102329

确实强大。。