grread 는 사용하기 따라서 꽤 유용한 함수이다.
이 함수는 현재 마우스의 위치와 클릭을 했는지, 키보드를 입력했다면 어떤 것을 입력했는지를 반환하기 때문에 각 입력에 따른 별도의 기능을 부여할 수 있다는 장점이 있다.
grread 는 (grread 't 15 2) 이와 같이 두쌍의 숫자를 옵션으로 가지고 있는데.. 앞의 숫자는 반환값에 대한 것. 뒤의 숫자는 커서의 모양을 제어하는 것이다.
앞의 숫자는 다음과 같다.
1 (bit 0) : 움직이는 좌표와 키보드 동작을 반환
2 (bit 1) : 움직이는 좌표와 펑션키를 포함한 모든 키를 반환
4 (bit 2) : 커서키를 제어하는 뒤쪽의 숫자를 반영함. 이 비트를 선택하지 않으면, 뒷의 커서제어가 먹지 않음.
8 (bit 3) : 에러메시지를 억제함.
뒤의 숫자는 다음과 같다.
0 : 십자선만 있고, 오스냅박스를 감춤
1 : 커서를 감춤 (십자선 감춤) 즉, 화면에 아무 것도 나타나지 않음
2 : 객체선택사각 (PickBox)만 나타남
그러므로, 만약 객체선택사각으로 기능을 제어할 때는
(grread 't (+ 1 4 8) 2) 로 해주면 된다.
그리고, 현재 사용하는 커서 모양을 유지하면서 좌표를 얻고 싶으면
(grread 't (+ 1 8) 0) 인데, 4비트가 포함될 경우에는 뒤쪽 숫자가 의미 없으므로,
(grread 't (+ 1 8)) 처럼 앞 숫자만 있어도 무방하다.
이 함수를 돌린 결과는 두개의 쌍으로 반환되는데..
마우스 이동 : (3 (좌표)) , 이동중인 좌표, 계속 변경됨
마우스 클릭 : (5 (좌표)) , 클릭한 점의 고정 좌표
오른쪽 마우스클릭 : (25 (화면에 대한 마우스 x축 위치)
만약 1920x1080 화면이고, 마우스가 왼쪽 끝에 있다면 30 정도를 반환함
키보드 입력 : (2 (키보드고유번호))
이 때, 각 키보드에 대한 고유번호는 아래와 같다.
;;;=============================================================================;
;; grread 키보드 고유번호 정리
;; 2017. 01. izzarder.com
;;;=============================================================================;
(defun c:xxx ( / code)
(while
(progn
(setq code (grread T 9))
(cond
((= (car code) 5) T)
((= (car code) 3) (princ "do_LeftClick"))
((= (car code) 11) (princ "do_RightClick"))
((= (car code) 25) (princ "do_RightClick"))
((equal code '(2 0)) (princ "do_CTRL-@"))
((equal code '(2 1)) (princ "do_CTRL-A"))
((equal code '(2 2)) (princ "do_F9"))
((equal code '(2 3)) (princ "do_F12"))
((equal code '(2 4)) (princ "do_F6"))
((equal code '(2 5)) (princ "do_F5"))
((equal code '(2 6)) (princ "do_F3"))
((equal code '(2 7)) (princ "do_F7"))
((equal code '(2 8)) (princ "do_Back"))
((equal code '(2 9)) (princ "do_Tab"))
((equal code '(2 10)) (princ "do_CTRL-J"))
((equal code '(2 11)) (princ "do_CTRL-K"))
((equal code '(2 12)) (princ "do_CTRL-L"))
((equal code '(2 13)) (princ "do_Return"))
((equal code '(2 14)) (princ "do_CTRL-N"))
((equal code '(2 15)) (princ "do_F8"))
((equal code '(2 16)) (princ "do_CTRL-P"))
((equal code '(2 17)) (princ "do_CTRL-Q"))
((equal code '(2 18)) (princ "do_CTRL-R"))
((equal code '(2 19)) (princ "do_CTRL-S"))
((equal code '(2 20)) (princ "do_F4"))
((equal code '(2 21)) (princ "do_F10"))
((equal code '(2 22)) (princ "do_CTRL-V"))
((equal code '(2 23)) (princ "do_F11"))
((equal code '(2 24)) (princ "do_CTRL-X"))
((equal code '(2 25)) (princ "do_CTRL-Y"))
((equal code '(2 26)) (princ "do_CTRL-Z"))
((equal code '(2 27)) (princ "do_CTRL-["))
((equal code '(2 28)) (princ "do_CTRL-\\"))
((equal code '(2 29)) (princ "do_CTRL-]"))
((equal code '(2 30)) (princ "do_CTRL-^"))
((equal code '(2 31)) (princ "do_CTRL-_"))
((equal code '(2 32)) (princ "do_Space"))
((equal code '(2 33)) (princ "do_ExclamationMark"))
((equal code '(2 34)) (princ "do_DoubleQuote"))
((equal code '(2 35)) (princ "do_Hash"))
((equal code '(2 36)) (princ "do_Dollar"))
((equal code '(2 37)) (princ "do_Percent"))
((equal code '(2 38)) (princ "do_Ampersand"))
((equal code '(2 39)) (princ "do_Apostrophe"))
((equal code '(2 40)) (princ "do_OpenParenthesis"))
((equal code '(2 41)) (princ "do_CloseParenthesis"))
((equal code '(2 42)) (princ "do_Asterisk"))
((equal code '(2 43)) (princ "do_Plus"))
((equal code '(2 44)) (princ "do_Comma"))
((equal code '(2 45)) (princ "do_Minus"))
((equal code '(2 46)) (princ "do_Dot"))
((equal code '(2 47)) (princ "do_Slash"))
((equal code '(2 48)) (princ "do_0"))
((equal code '(2 49)) (princ "do_1"))
((equal code '(2 50)) (princ "do_2"))
((equal code '(2 51)) (princ "do_3"))
((equal code '(2 52)) (princ "do_4"))
((equal code '(2 53)) (princ "do_5"))
((equal code '(2 54)) (princ "do_6"))
((equal code '(2 55)) (princ "do_7"))
((equal code '(2 56)) (princ "do_8"))
((equal code '(2 57)) (princ "do_9"))
((equal code '(2 58)) (princ "do_Colon"))
((equal code '(2 59)) (princ "do_Semicolon"))
((equal code '(2 60)) (princ "do_LessThan"))
((equal code '(2 61)) (princ "do_Equals"))
((equal code '(2 62)) (princ "do_GreatThan"))
((equal code '(2 63)) (princ "do_QuestionMark"))
((equal code '(2 64)) (princ "do_At"))
((equal code '(2 65)) (princ "do_A"))
((equal code '(2 66)) (princ "do_B"))
((equal code '(2 67)) (princ "do_C"))
((equal code '(2 68)) (princ "do_D"))
((equal code '(2 69)) (princ "do_E"))
((equal code '(2 70)) (princ "do_F"))
((equal code '(2 71)) (princ "do_G"))
((equal code '(2 72)) (princ "do_H"))
((equal code '(2 73)) (princ "do_I"))
((equal code '(2 74)) (princ "do_J"))
((equal code '(2 75)) (princ "do_K"))
((equal code '(2 76)) (princ "do_L"))
((equal code '(2 77)) (princ "do_M"))
((equal code '(2 78)) (princ "do_N"))
((equal code '(2 79)) (princ "do_O"))
((equal code '(2 80)) (princ "do_P"))
((equal code '(2 81)) (princ "do_Q"))
((equal code '(2 82)) (princ "do_R"))
((equal code '(2 83)) (princ "do_S"))
((equal code '(2 84)) (princ "do_T"))
((equal code '(2 85)) (princ "do_U"))
((equal code '(2 86)) (princ "do_V"))
((equal code '(2 87)) (princ "do_W"))
((equal code '(2 88)) (princ "do_X"))
((equal code '(2 89)) (princ "do_Y"))
((equal code '(2 90)) (princ "do_Z"))
((equal code '(2 91)) (princ "do_OpenSquareBracket"))
((equal code '(2 92)) (princ "do_BackSlash"))
((equal code '(2 93)) (princ "do_CloseSquareBracket"))
((equal code '(2 94)) (princ "do_Caret"))
((equal code '(2 95)) (princ "do_UnderScore"))
((equal code '(2 96)) (princ "do_BackQuote"))
((equal code '(2 97)) (princ "do_a"))
((equal code '(2 98)) (princ "do_b"))
((equal code '(2 99)) (princ "do_c"))
((equal code '(2 100))(princ "do_d"))
((equal code '(2 101))(princ "do_e"))
((equal code '(2 102))(princ "do_f"))
((equal code '(2 103))(princ "do_g"))
((equal code '(2 104))(princ "do_h"))
((equal code '(2 105))(princ "do_i"))
((equal code '(2 106))(princ "do_j"))
((equal code '(2 107))(princ "do_k"))
((equal code '(2 108))(princ "do_l"))
((equal code '(2 109))(princ "do_m"))
((equal code '(2 110))(princ "do_n"))
((equal code '(2 111))(princ "do_o"))
((equal code '(2 112))(princ "do_p"))
((equal code '(2 113))(princ "do_q"))
((equal code '(2 114))(princ "do_r"))
((equal code '(2 115))(princ "do_s"))
((equal code '(2 116))(princ "do_t"))
((equal code '(2 117))(princ "do_u"))
((equal code '(2 118))(princ "do_v"))
((equal code '(2 119))(princ "do_w"))
((equal code '(2 120))(princ "do_x"))
((equal code '(2 121))(princ "do_y"))
((equal code '(2 122))(princ "do_z"))
((equal code '(2 123))(princ "do_OpenBrace"))
((equal code '(2 124))(princ "do_VerticalBar"))
((equal code '(2 125))(princ "do_CloseBrace"))
((equal code '(2 126))(princ "do_Tilde"))
((equal code '(2 127))(princ "do_Delete"))
( t )
)
)
)
)
아래 구문을 돌려 보면 어떤 기능을 하는 것인지 아마도 확실히 알 수 있을 것이다.
;;;=============================================================================;
;; grread 예제
;; 2017. 01. izzarder.com
;;;=============================================================================;
(defun c:xxx ( / grdata code data)
(while
(progn
(setq grdata (grread 't 9 0)
code (car grdata)
data (cadr grdata)
)
(cond
( (and (= 5 code) (listp data))
t ; t는 함수를 계속 while 한다는 의미
)
( (and (= 3 code) (listp data))
(command "_LINE" '(0 0) data "")
(princ "글릭")
(princ data)
)
( (= 25 code)
(princ "오른쪽 마우스")
(princ data)
)
( (= 2 code)
(cond
( (= 13 data)
(princ "엔터")
(princ data)
)
( (= 32 data)
(princ "스페이스")
(princ data)
)
( (vl-position data '(85 117))
(princ "대소문자 U")
(princ data)
)
( t )
)
)
( t )
)
)
)
)
'Lisp & Tips > Lisp' 카테고리의 다른 글
| 치수관련 변수 목록 (0) | 2015.01.03 |
|---|---|
| 문자 또는 숫자 자동 증가 (0) | 2014.11.22 |
| SSGET 사용법 정리 (0) | 2014.11.07 |
| 리스트에서 순서 뽑기 기초 (0) | 2014.10.27 |
| (mapcar) 와 (lambda) (0) | 2014.10.25 |