【函数分享】利用GRREAD写的--超级GETPOINT函数.

wowan1314 · 发表于 2013-6-4 11:27:55

;;;============={ 超级getpoint函数 BY-wowan1314 }=======================;;
;;功能：得到鼠标点击位置坐标,如果按键就返回按键值。
;;用法：(YY:getpoint '(NIL 5 0))
;;参数：表。表内元素同GRREAD函数的参数意义.
;;返回值：PT或STR. PT是左键点击时鼠标坐标点，STR是按键的值.
;;用途：尚不明确。

;;;============={ 超级getpoint函数 BY-wowan1314 }=======================;;
;;功能：得到鼠标点击位置坐标,如果按键就返回按键值。
;;用法：(YY:getpoint '(NIL 5 0))
;;参数：表。表内元素同GRREAD函数的参数意义.
;;返回值：PT或STR. PT是左键点击时鼠标坐标点，STR是按键的值.
;;用途：尚不明确。
(DEFUN YY:getpoint (LST / LOOP CODE)
(setq loop T)
(while loop
(setq code (APPLY 'grread LST))
(cond
((= (car code) 5) NIL ) ;;; 鼠标移动
((= (car code) 3) (SETQ LOOP NIL CODE (CADR CODE))) ;;; 鼠标左键
((= (car code) 11) (SETQ LOOP NIL CODE NIL)) ;;; 鼠标右键，右键设置为回车时
((= (car code) 25) (SETQ LOOP NIL CODE NIL)) ;;; 鼠标右键，右键设置为屏幕菜单时
((equal code '(2 0)) (SETQ LOOP NIL CODE "CTRL-@")) ;;; CTRL-@
((equal code '(2 1)) (SETQ LOOP NIL CODE "CTRL-A")) ;;; CTRL-A
((equal code '(2 2)) (SETQ LOOP NIL CODE "CTRL-B或F9")) ;;; CTRL-B或F9
((equal code '(2 3)) (SETQ LOOP NIL CODE "CTRL-C或F12")) ;;; CTRL-C或F12
((equal code '(2 4)) (SETQ LOOP NIL CODE "CTRL-D或F6")) ;;; CTRL-D或F6
((equal code '(2 5)) (SETQ LOOP NIL CODE "CTRL-E或F5")) ;;; CTRL-E或F5
((equal code '(2 6)) (SETQ LOOP NIL CODE "CTRL-F或F3")) ;;; CTRL-F或F3
((equal code '(2 7)) (SETQ LOOP NIL CODE "CTRL-G或F7")) ;;; CTRL-G或F7
((equal code '(2 8)) (SETQ LOOP NIL CODE "CTRL-H或退格")) ;;; CTRL-H或退格
((equal code '(2 9)) (SETQ LOOP NIL CODE "CTRL-I或TAB")) ;;; CTRL-I或Tab
((equal code '(2 10)) (SETQ LOOP NIL CODE "CTRL-J")) ;;; CTRL-J
((equal code '(2 11)) (SETQ LOOP NIL CODE "CTRL-K")) ;;; CTRL-K
((equal code '(2 12)) (SETQ LOOP NIL CODE "CTRL-L")) ;;; CTRL-L
((equal code '(2 13)) (SETQ LOOP NIL CODE "CTRL-M或回车")) ;;; CTRL-M或回车
((equal code '(2 14)) (SETQ LOOP NIL CODE "CTRL-N")) ;;; CTRL-N
((equal code '(2 15)) (SETQ LOOP NIL CODE "CTRL-O或F8")) ;;; CTRL-O或F8
((equal code '(2 16)) (SETQ LOOP NIL CODE "CTRL-P")) ;;; CTRL-P
((equal code '(2 17)) (SETQ LOOP NIL CODE "CTRL-Q")) ;;; CTRL-Q
((equal code '(2 18)) (SETQ LOOP NIL CODE "CTRL-R")) ;;; CTRL-R
((equal code '(2 19)) (SETQ LOOP NIL CODE "CTRL-S")) ;;; CTRL-S
((equal code '(2 20)) (SETQ LOOP NIL CODE "CTRL-I或F4")) ;;; CTRL-T或F4
((equal code '(2 21)) (SETQ LOOP NIL CODE "CTRL-U或F10")) ;;; CTRL-U或F10
((equal code '(2 22)) (SETQ LOOP NIL CODE "CTRL-V")) ;;; CTRL-V
((equal code '(2 23)) (SETQ LOOP NIL CODE "CTRL-W或F11")) ;;; CTRL-W或F11
((equal code '(2 24)) (SETQ LOOP NIL CODE "CTRL-X")) ;;; CTRL-X
((equal code '(2 25)) (SETQ LOOP NIL CODE "CTRL-Y")) ;;; CTRL-Y
((equal code '(2 26)) (SETQ LOOP NIL CODE "CTRL-Z")) ;;; CTRL-Z
((equal code '(2 27)) (SETQ LOOP NIL CODE "CTRL-[或ESC")) ;;; CTRL-[或ESC
((equal code '(2 28)) (SETQ LOOP NIL CODE "CTRL-反斜杠")) ;;; CTRL-\
((equal code '(2 29)) (SETQ LOOP NIL CODE "CTRL-]")) ;;; CTRL-]
((equal code '(2 30)) (SETQ LOOP NIL CODE "CTRL-^")) ;;; CTRL-^
((equal code '(2 31)) (SETQ LOOP NIL CODE "CTRL-_")) ;;; CTRL-_
((equal code '(2 32)) (SETQ LOOP NIL CODE "空格")) ;;; 空格键
((equal code '(2 33)) (SETQ LOOP NIL CODE "!")) ;;; !键
((equal code '(2 34)) (SETQ LOOP NIL CODE "双引号")) ;;; "键
((equal code '(2 35)) (SETQ LOOP NIL CODE "#")) ;;; #键
((equal code '(2 36)) (SETQ LOOP NIL CODE "$")) ;;; $键
((equal code '(2 37)) (SETQ LOOP NIL CODE "%")) ;;; %键
((equal code '(2 38)) (SETQ LOOP NIL CODE "&")) ;;; &键
((equal code '(2 39)) (SETQ LOOP NIL CODE "单引号")) ;;; '键
((equal code '(2 40)) (SETQ LOOP NIL CODE "(")) ;;; (键
((equal code '(2 41)) (SETQ LOOP NIL CODE ")")) ;;; )键
((equal code '(2 42)) (SETQ LOOP NIL CODE "星号")) ;;; *键
((equal code '(2 43)) (SETQ LOOP NIL CODE "+")) ;;; +键
((equal code '(2 44)) (SETQ LOOP NIL CODE ",")) ;;; ,键
((equal code '(2 45)) (SETQ LOOP NIL CODE "-")) ;;; -键
((equal code '(2 46)) (SETQ LOOP NIL CODE "点")) ;;; .键
((equal code '(2 47)) (SETQ LOOP NIL CODE "/")) ;;; /键
((equal code '(2 48)) (SETQ LOOP NIL CODE "0")) ;;; 0键
((equal code '(2 49)) (SETQ LOOP NIL CODE "1")) ;;; 1键
((equal code '(2 50)) (SETQ LOOP NIL CODE "2")) ;;; 2键
((equal code '(2 51)) (SETQ LOOP NIL CODE "3")) ;;; 3键
((equal code '(2 52)) (SETQ LOOP NIL CODE "4")) ;;; 4键
((equal code '(2 53)) (SETQ LOOP NIL CODE "5")) ;;; 5键
((equal code '(2 54)) (SETQ LOOP NIL CODE "6")) ;;; 6键
((equal code '(2 55)) (SETQ LOOP NIL CODE "7")) ;;; 7键
((equal code '(2 56)) (SETQ LOOP NIL CODE "8")) ;;; 8键
((equal code '(2 57)) (SETQ LOOP NIL CODE "9")) ;;; 9键
((equal code '(2 58)) (SETQ LOOP NIL CODE "冒号")) ;;; :键
((equal code '(2 59)) (SETQ LOOP NIL CODE "分号")) ;;; ;键
((equal code '(2 60)) (SETQ LOOP NIL CODE "小于号")) ;;; <键
((equal code '(2 61)) (SETQ LOOP NIL CODE "等号")) ;;; =键
((equal code '(2 62)) (SETQ LOOP NIL CODE "大于号")) ;;; >键
((equal code '(2 63)) (SETQ LOOP NIL CODE "问号")) ;;; ?键
((equal code '(2 64)) (SETQ LOOP NIL CODE "@")) ;;; @键
((equal code '(2 65)) (SETQ LOOP NIL CODE "A")) ;;; A键
((equal code '(2 66)) (SETQ LOOP NIL CODE "B")) ;;; B键
((equal code '(2 67)) (SETQ LOOP NIL CODE "C")) ;;; C键
((equal code '(2 68)) (SETQ LOOP NIL CODE "D")) ;;; D键
((equal code '(2 69)) (SETQ LOOP NIL CODE "E")) ;;; E键
((equal code '(2 70)) (SETQ LOOP NIL CODE "F")) ;;; F键
((equal code '(2 71)) (SETQ LOOP NIL CODE "G")) ;;; G键
((equal code '(2 72)) (SETQ LOOP NIL CODE "H")) ;;; H键
((equal code '(2 73)) (SETQ LOOP NIL CODE "I")) ;;; I键
((equal code '(2 74)) (SETQ LOOP NIL CODE "J")) ;;; J键
((equal code '(2 75)) (SETQ LOOP NIL CODE "K")) ;;; K键
((equal code '(2 76)) (SETQ LOOP NIL CODE "L")) ;;; L键
((equal code '(2 77)) (SETQ LOOP NIL CODE "M")) ;;; M键
((equal code '(2 78)) (SETQ LOOP NIL CODE "N")) ;;; N键
((equal code '(2 79)) (SETQ LOOP NIL CODE "O")) ;;; O键
((equal code '(2 80)) (SETQ LOOP NIL CODE "P")) ;;; P键
((equal code '(2 81)) (SETQ LOOP NIL CODE "Q")) ;;; Q键
((equal code '(2 82)) (SETQ LOOP NIL CODE "R")) ;;; R键
((equal code '(2 83)) (SETQ LOOP NIL CODE "S")) ;;; S键
((equal code '(2 84)) (SETQ LOOP NIL CODE "T")) ;;; T键
((equal code '(2 85)) (SETQ LOOP NIL CODE "U")) ;;; U键
((equal code '(2 86)) (SETQ LOOP NIL CODE "V")) ;;; V键
((equal code '(2 87)) (SETQ LOOP NIL CODE "W")) ;;; W键
((equal code '(2 88)) (SETQ LOOP NIL CODE "X")) ;;; X键
((equal code '(2 89)) (SETQ LOOP NIL CODE "Y")) ;;; Y键
((equal code '(2 90)) (SETQ LOOP NIL CODE "Z")) ;;; Z键
((equal code '(2 91)) (SETQ LOOP NIL CODE "[")) ;;; [键
((equal code '(2 92)) (SETQ LOOP NIL CODE "反斜杠")) ;;; \键
((equal code '(2 93)) (SETQ LOOP NIL CODE "]")) ;;; ]键
((equal code '(2 94)) (SETQ LOOP NIL CODE "^")) ;;; ^键
((equal code '(2 95)) (SETQ LOOP NIL CODE "_")) ;;; _键
((equal code '(2 96)) (SETQ LOOP NIL CODE "单引号")) ;;; `键
((equal code '(2 97)) (SETQ LOOP NIL CODE "a")) ;;; a键
((equal code '(2 98)) (SETQ LOOP NIL CODE "b")) ;;; b键
((equal code '(2 99)) (SETQ LOOP NIL CODE "c")) ;;; c键
((equal code '(2 100))(SETQ LOOP NIL CODE "d")) ;;; d键
((equal code '(2 101))(SETQ LOOP NIL CODE "e")) ;;; e键
((equal code '(2 102))(SETQ LOOP NIL CODE "f")) ;;; f键
((equal code '(2 103))(SETQ LOOP NIL CODE "g")) ;;; g键
((equal code '(2 104))(SETQ LOOP NIL CODE "h")) ;;; h键
((equal code '(2 105))(SETQ LOOP NIL CODE "i")) ;;; i键
((equal code '(2 106))(SETQ LOOP NIL CODE "j")) ;;; j键
((equal code '(2 107))(SETQ LOOP NIL CODE "k")) ;;; k键
((equal code '(2 108))(SETQ LOOP NIL CODE "l")) ;;; l键
((equal code '(2 109))(SETQ LOOP NIL CODE "m")) ;;; m键
((equal code '(2 110))(SETQ LOOP NIL CODE "n")) ;;; n键
((equal code '(2 111))(SETQ LOOP NIL CODE "o")) ;;; o键
((equal code '(2 112))(SETQ LOOP NIL CODE "p")) ;;; p键
((equal code '(2 113))(SETQ LOOP NIL CODE "q")) ;;; q键
((equal code '(2 114))(SETQ LOOP NIL CODE "r")) ;;; r键
((equal code '(2 115))(SETQ LOOP NIL CODE "s")) ;;; s键
((equal code '(2 116))(SETQ LOOP NIL CODE "t")) ;;; t键
((equal code '(2 117))(SETQ LOOP NIL CODE "u")) ;;; u键
((equal code '(2 118))(SETQ LOOP NIL CODE "v")) ;;; v键
((equal code '(2 119))(SETQ LOOP NIL CODE "w")) ;;; w键
((equal code '(2 120))(SETQ LOOP NIL CODE "x")) ;;; x键
((equal code '(2 121))(SETQ LOOP NIL CODE "y")) ;;; y键
((equal code '(2 122))(SETQ LOOP NIL CODE "z")) ;;; z键
((equal code '(2 123))(SETQ LOOP NIL CODE "大开括号")) ;;; {键
((equal code '(2 124))(SETQ LOOP NIL CODE "|")) ;;; |键
((equal code '(2 125))(SETQ LOOP NIL CODE "大闭括号")) ;;; }键
((equal code '(2 126))(SETQ LOOP NIL CODE "~")) ;;; ~键
((equal code '(2 127))(SETQ LOOP NIL CODE "删除键")) ;;; Delete键
)
)
CODE
) ;;;END DEFUN

;;;============={  超级getpoint函数 BY-wowan1314  }=======================;; 
;;功能：得到鼠标点击位置坐标,如果按键就返回按键值。 
;;用法：(YY:getpoint '(NIL 5 0)) 
;;参数：表。 表内元素同GRREAD函数的参数意义. 
;;返回值：PT或STR.  PT是左键点击时鼠标坐标点，STR是按键的值. 
;;用途：尚不明确。 
(DEFUN YY:getpoint (LST / LOOP CODE) 
 (setq loop T) 
 (while loop 
  (setq code (APPLY 'grread LST)) 
  (cond 
    ((= (car code) 5)     NIL )                                       ;;; 鼠标移动 
    ((= (car code) 3)     (SETQ LOOP NIL CODE (CADR CODE)))           ;;; 鼠标左键 
    ((= (car code) 11)    (SETQ LOOP NIL CODE NIL))                   ;;; 鼠标右键，右键设置为回车时 
    ((= (car code) 25)    (SETQ LOOP NIL CODE NIL))                   ;;; 鼠标右键，右键设置为屏幕菜单时 
    ((equal code '(2 0))  (SETQ LOOP NIL CODE "CTRL-@"))              ;;; CTRL-@ 
    ((equal code '(2 1))  (SETQ LOOP NIL CODE "CTRL-A"))              ;;; CTRL-A 
    ((equal code '(2 2))  (SETQ LOOP NIL CODE "CTRL-B或F9"))          ;;; CTRL-B或F9 
    ((equal code '(2 3))  (SETQ LOOP NIL CODE "CTRL-C或F12"))         ;;; CTRL-C或F12 
    ((equal code '(2 4))  (SETQ LOOP NIL CODE "CTRL-D或F6"))          ;;; CTRL-D或F6 
    ((equal code '(2 5))  (SETQ LOOP NIL CODE "CTRL-E或F5"))          ;;; CTRL-E或F5 
    ((equal code '(2 6))  (SETQ LOOP NIL CODE "CTRL-F或F3"))          ;;; CTRL-F或F3 
    ((equal code '(2 7))  (SETQ LOOP NIL CODE "CTRL-G或F7"))          ;;; CTRL-G或F7 
    ((equal code '(2 8))  (SETQ LOOP NIL CODE "CTRL-H或退格"))        ;;; CTRL-H或退格 
    ((equal code '(2 9))  (SETQ LOOP NIL CODE "CTRL-I或TAB"))         ;;; CTRL-I或Tab 
    ((equal code '(2 10)) (SETQ LOOP NIL CODE "CTRL-J"))              ;;; CTRL-J 
    ((equal code '(2 11)) (SETQ LOOP NIL CODE "CTRL-K"))              ;;; CTRL-K 
    ((equal code '(2 12)) (SETQ LOOP NIL CODE "CTRL-L"))              ;;; CTRL-L 
    ((equal code '(2 13)) (SETQ LOOP NIL CODE "CTRL-M或回车"))        ;;; CTRL-M或回车 
    ((equal code '(2 14)) (SETQ LOOP NIL CODE "CTRL-N"))              ;;; CTRL-N 
    ((equal code '(2 15)) (SETQ LOOP NIL CODE "CTRL-O或F8"))          ;;; CTRL-O或F8 
    ((equal code '(2 16)) (SETQ LOOP NIL CODE "CTRL-P"))              ;;; CTRL-P 
    ((equal code '(2 17)) (SETQ LOOP NIL CODE "CTRL-Q"))              ;;; CTRL-Q 
    ((equal code '(2 18)) (SETQ LOOP NIL CODE "CTRL-R"))              ;;; CTRL-R 
    ((equal code '(2 19)) (SETQ LOOP NIL CODE "CTRL-S"))              ;;; CTRL-S 
    ((equal code '(2 20)) (SETQ LOOP NIL CODE "CTRL-I或F4"))          ;;; CTRL-T或F4 
    ((equal code '(2 21)) (SETQ LOOP NIL CODE "CTRL-U或F10"))         ;;; CTRL-U或F10 
    ((equal code '(2 22)) (SETQ LOOP NIL CODE "CTRL-V"))              ;;; CTRL-V 
    ((equal code '(2 23)) (SETQ LOOP NIL CODE "CTRL-W或F11"))         ;;; CTRL-W或F11 
    ((equal code '(2 24)) (SETQ LOOP NIL CODE "CTRL-X"))              ;;; CTRL-X 
    ((equal code '(2 25)) (SETQ LOOP NIL CODE "CTRL-Y"))              ;;; CTRL-Y 
    ((equal code '(2 26)) (SETQ LOOP NIL CODE "CTRL-Z"))              ;;; CTRL-Z 
    ((equal code '(2 27)) (SETQ LOOP NIL CODE "CTRL-[或ESC"))         ;;; CTRL-[或ESC 
    ((equal code '(2 28)) (SETQ LOOP NIL CODE "CTRL-反斜杠"))         ;;; CTRL-\ 
    ((equal code '(2 29)) (SETQ LOOP NIL CODE "CTRL-]"))              ;;; CTRL-] 
    ((equal code '(2 30)) (SETQ LOOP NIL CODE "CTRL-^"))              ;;; CTRL-^ 
    ((equal code '(2 31)) (SETQ LOOP NIL CODE "CTRL-_"))              ;;; CTRL-_ 
    ((equal code '(2 32)) (SETQ LOOP NIL CODE "空格"))                ;;; 空格键 
    ((equal code '(2 33)) (SETQ LOOP NIL CODE "!"))                   ;;; !键 
    ((equal code '(2 34)) (SETQ LOOP NIL CODE "双引号"))              ;;; "键 
    ((equal code '(2 35)) (SETQ LOOP NIL CODE "#"))                   ;;; #键 
    ((equal code '(2 36)) (SETQ LOOP NIL CODE "$"))                   ;;; $键 
    ((equal code '(2 37)) (SETQ LOOP NIL CODE "%"))                    ;;; %键 
    ((equal code '(2 38)) (SETQ LOOP NIL CODE "&"))                   ;;; &键 
    ((equal code '(2 39)) (SETQ LOOP NIL CODE "单引号"))              ;;; '键 
    ((equal code '(2 40)) (SETQ LOOP NIL CODE "("))                   ;;; (键 
    ((equal code '(2 41)) (SETQ LOOP NIL CODE ")"))              ;;; )键 
    ((equal code '(2 42)) (SETQ LOOP NIL CODE "星号"))                ;;; *键 
    ((equal code '(2 43)) (SETQ LOOP NIL CODE "+"))                   ;;; +键 
    ((equal code '(2 44)) (SETQ LOOP NIL CODE ","))                   ;;; ,键 
    ((equal code '(2 45)) (SETQ LOOP NIL CODE "-"))                   ;;; -键 
    ((equal code '(2 46)) (SETQ LOOP NIL CODE "点"))                  ;;; .键 
    ((equal code '(2 47)) (SETQ LOOP NIL CODE "/"))                   ;;; /键 
    ((equal code '(2 48)) (SETQ LOOP NIL CODE "0"))                   ;;; 0键 
    ((equal code '(2 49)) (SETQ LOOP NIL CODE "1"))                   ;;; 1键 
    ((equal code '(2 50)) (SETQ LOOP NIL CODE "2"))                   ;;; 2键 
    ((equal code '(2 51)) (SETQ LOOP NIL CODE "3"))                   ;;; 3键 
    ((equal code '(2 52)) (SETQ LOOP NIL CODE "4"))                   ;;; 4键 
    ((equal code '(2 53)) (SETQ LOOP NIL CODE "5"))                   ;;; 5键 
    ((equal code '(2 54)) (SETQ LOOP NIL CODE "6"))                   ;;; 6键 
    ((equal code '(2 55)) (SETQ LOOP NIL CODE "7"))                   ;;; 7键 
    ((equal code '(2 56)) (SETQ LOOP NIL CODE "8"))                   ;;; 8键 
    ((equal code '(2 57)) (SETQ LOOP NIL CODE "9"))                   ;;; 9键 
    ((equal code '(2 58)) (SETQ LOOP NIL CODE "冒号"))                ;;; :键 
    ((equal code '(2 59)) (SETQ LOOP NIL CODE "分号"))                ;;; ;键 
    ((equal code '(2 60)) (SETQ LOOP NIL CODE "小于号"))              ;;; <键 
    ((equal code '(2 61)) (SETQ LOOP NIL CODE "等号"))                ;;; =键 
    ((equal code '(2 62)) (SETQ LOOP NIL CODE "大于号"))              ;;; >键 
    ((equal code '(2 63)) (SETQ LOOP NIL CODE "问号"))                ;;; ?键 
    ((equal code '(2 64)) (SETQ LOOP NIL CODE "@"))                   ;;; @键 
    ((equal code '(2 65)) (SETQ LOOP NIL CODE "A"))                   ;;; A键 
    ((equal code '(2 66)) (SETQ LOOP NIL CODE "B"))                   ;;; B键 
    ((equal code '(2 67)) (SETQ LOOP NIL CODE "C"))                   ;;; C键 
    ((equal code '(2 68)) (SETQ LOOP NIL CODE "D"))                   ;;; D键 
    ((equal code '(2 69)) (SETQ LOOP NIL CODE "E"))                   ;;; E键 
    ((equal code '(2 70)) (SETQ LOOP NIL CODE "F"))                   ;;; F键 
    ((equal code '(2 71)) (SETQ LOOP NIL CODE "G"))                   ;;; G键 
    ((equal code '(2 72)) (SETQ LOOP NIL CODE "H"))                   ;;; H键 
    ((equal code '(2 73)) (SETQ LOOP NIL CODE "I"))                   ;;; I键 
    ((equal code '(2 74)) (SETQ LOOP NIL CODE "J"))                   ;;; J键 
    ((equal code '(2 75)) (SETQ LOOP NIL CODE "K"))                   ;;; K键 
    ((equal code '(2 76)) (SETQ LOOP NIL CODE "L"))                   ;;; L键 
    ((equal code '(2 77)) (SETQ LOOP NIL CODE "M"))                   ;;; M键 
    ((equal code '(2 78)) (SETQ LOOP NIL CODE "N"))                   ;;; N键 
    ((equal code '(2 79)) (SETQ LOOP NIL CODE "O"))                   ;;; O键 
    ((equal code '(2 80)) (SETQ LOOP NIL CODE "P"))                   ;;; P键 
    ((equal code '(2 81)) (SETQ LOOP NIL CODE "Q"))                   ;;; Q键 
    ((equal code '(2 82)) (SETQ LOOP NIL CODE "R"))                   ;;; R键 
    ((equal code '(2 83)) (SETQ LOOP NIL CODE "S"))                   ;;; S键 
    ((equal code '(2 84)) (SETQ LOOP NIL CODE "T"))                   ;;; T键 
    ((equal code '(2 85)) (SETQ LOOP NIL CODE "U"))                   ;;; U键 
    ((equal code '(2 86)) (SETQ LOOP NIL CODE "V"))                   ;;; V键 
    ((equal code '(2 87)) (SETQ LOOP NIL CODE "W"))                   ;;; W键 
    ((equal code '(2 88)) (SETQ LOOP NIL CODE "X"))                   ;;; X键 
    ((equal code '(2 89)) (SETQ LOOP NIL CODE "Y"))                   ;;; Y键 
    ((equal code '(2 90)) (SETQ LOOP NIL CODE "Z"))                   ;;; Z键 
    ((equal code '(2 91)) (SETQ LOOP NIL CODE "["))                   ;;; [键 
    ((equal code '(2 92)) (SETQ LOOP NIL CODE "反斜杠"))              ;;; \键 
    ((equal code '(2 93)) (SETQ LOOP NIL CODE "]"))                ;;; ]键 
    ((equal code '(2 94)) (SETQ LOOP NIL CODE "^"))                   ;;; ^键 
    ((equal code '(2 95)) (SETQ LOOP NIL CODE "_"))                   ;;; _键 
    ((equal code '(2 96)) (SETQ LOOP NIL CODE "单引号"))              ;;; `键 
    ((equal code '(2 97)) (SETQ LOOP NIL CODE "a"))                   ;;; a键 
    ((equal code '(2 98)) (SETQ LOOP NIL CODE "b"))                   ;;; b键 
    ((equal code '(2 99)) (SETQ LOOP NIL CODE "c"))                   ;;; c键 
    ((equal code '(2 100))(SETQ LOOP NIL CODE "d"))                   ;;; d键 
    ((equal code '(2 101))(SETQ LOOP NIL CODE "e"))                   ;;; e键 
    ((equal code '(2 102))(SETQ LOOP NIL CODE "f"))                   ;;; f键 
    ((equal code '(2 103))(SETQ LOOP NIL CODE "g"))                   ;;; g键 
    ((equal code '(2 104))(SETQ LOOP NIL CODE "h"))                   ;;; h键 
    ((equal code '(2 105))(SETQ LOOP NIL CODE "i"))                   ;;; i键 
    ((equal code '(2 106))(SETQ LOOP NIL CODE "j"))                   ;;; j键 
    ((equal code '(2 107))(SETQ LOOP NIL CODE "k"))                   ;;; k键 
    ((equal code '(2 108))(SETQ LOOP NIL CODE "l"))                   ;;; l键 
    ((equal code '(2 109))(SETQ LOOP NIL CODE "m"))                   ;;; m键 
    ((equal code '(2 110))(SETQ LOOP NIL CODE "n"))                   ;;; n键 
    ((equal code '(2 111))(SETQ LOOP NIL CODE "o"))                   ;;; o键 
    ((equal code '(2 112))(SETQ LOOP NIL CODE "p"))                   ;;; p键 
    ((equal code '(2 113))(SETQ LOOP NIL CODE "q"))                   ;;; q键 
    ((equal code '(2 114))(SETQ LOOP NIL CODE "r"))                   ;;; r键 
    ((equal code '(2 115))(SETQ LOOP NIL CODE "s"))                   ;;; s键 
    ((equal code '(2 116))(SETQ LOOP NIL CODE "t"))                   ;;; t键 
    ((equal code '(2 117))(SETQ LOOP NIL CODE "u"))                   ;;; u键 
    ((equal code '(2 118))(SETQ LOOP NIL CODE "v"))                   ;;; v键 
    ((equal code '(2 119))(SETQ LOOP NIL CODE "w"))                   ;;; w键 
    ((equal code '(2 120))(SETQ LOOP NIL CODE "x"))                   ;;; x键 
    ((equal code '(2 121))(SETQ LOOP NIL CODE "y"))                   ;;; y键 
    ((equal code '(2 122))(SETQ LOOP NIL CODE "z"))                   ;;; z键 
    ((equal code '(2 123))(SETQ LOOP NIL CODE "大开括号"))            ;;; {键 
    ((equal code '(2 124))(SETQ LOOP NIL CODE "|"))                ;;; |键 
    ((equal code '(2 125))(SETQ LOOP NIL CODE "大闭括号"))            ;;; }键 
    ((equal code '(2 126))(SETQ LOOP NIL CODE "~"))                   ;;; ~键 
    ((equal code '(2 127))(SETQ LOOP NIL CODE "删除键"))              ;;; Delete键 
  ) 
 ) 
 CODE 
)      ;;;END DEFUN

主要参考文献：风之影--GRREAD函数之大杀器.
地址：[风之影][源码]grread函数之大杀器
http://bbs.mjtd.com/forum.php?mo ... 0839&fromuid=282351

wowan1314 · 发表于 2013-6-4 11:29:09

沙发我坐！
函数用途：
1、既然是超级GETPOINT。我想他可代替initget+getpoint组合。实时响应关键词。写法：(YY:getpoint '(nil 5 0))
（不过此GRREAD函数不支持捕捉，可利用G版的带捕捉的GRREAD函数来改造下。）
2、可代替initget+getkword组合。实时响应关键词。写法：(YY:getpoint '(nil 5 1))
3、可改造initget+entsel组合。使其关键词实时响应。写法：(YY:getpoint '(nil 5 2))
。。其他用途还待研究。

cnks · 发表于 2013-6-4 11:55:56

先来顶一下

wowan1314 · 发表于 2013-6-4 12:04:37

看来大家不是很喜欢！
我觉的对于优化程序还是有点用处的！

nzl1116 · 发表于 2013-6-4 12:11:57

wowan1314 发表于 2013-6-4 12:04
看来大家不是很喜欢！
我觉的对于优化程序还是有点用处的！

很好的想法啊，只不过懂的人不愿意发言，不懂的人毫无用处，所以反应冷淡

hpy · 发表于 2013-6-4 13:15:58

不错。先收藏，总会有用的。

OWEN7 · 发表于 2013-6-4 14:15:03

来点实际的啊，哈哈，先顶着吧，

cheng5276 · 发表于 2013-6-4 14:26:48

不支持捕捉的GETpoint，还是少用为妙，即便是GU版的GRREAD,也还是有些小问题的（有时速度慢）

cre8or · 发表于 2013-6-4 17:01:51

我喜欢不过我建议在参数里传递函数这样鼠标移动的行为也能定制了想捕捉也问题不大了
或者干脆把循环去掉用的时候移到外面何时停止循环全部自定义更合适

USER2128 · 发表于 2013-6-6 07:56:23

我顶楼主！感谢大侠的源码分享！

账号		自动登录	找回密码
密码			注册

[函数] 【函数分享】利用GRREAD写的--超级GETPOINT函数.

评分

本帖被以下淘专辑推荐:

评分

点评