lisp에서 왼쪽 마우스 버튼 압력을 시뮬레이션

[christian_96]

모든 좋은 일요일에 좋은 아침:smile:
어떤 좋은 영혼은 당신이 autolisp의 목록에서 왼쪽 마우스 버튼의 압력을 시뮬레이션 할 수있는 방법을 설명 할 수 있습니까?
나는 내부 일을 찾고 있었지만 나는 해결책을 찾을 수 없습니다. ·

감사합니다.

p.s.: 나는 grread 명령이 있음을 알고 있지만, 나는 그것을 만들 수 없습니다

 

[Cristallo]

그러나 당신이 필요로 하는 정확히? 어쩌면 당신은 다르게 얻을

 

[christian_96]

빨리 요약:

· 나는 n° 무한한 회전을 반복하는 동안 주기에서, 그래서 조건은 발생하지 않습니다.

b) 순간 동안, 주기 도중 통신수 (Getkword 기능을 통해서)는 단지 3개의 입력을 주어서 좋습니다:

1. 명세 "c"키를 눌러 사이클을 계속;
2. "a"버튼을 눌러 마지막 작업을 취소;
3. "t"버튼을 눌러 사이클을 종료합니다.

c) lisp를 더 효과적인 및 실제 사용하려면 왼쪽 키의 압력에 의해 대체하기 위해 "1"(이전 인용) 기능을해야합니다.

 

[GP.]

명령을 가지고 싶은 인터페이스에 따라 달라집니다:
이름 * 뚱 베어 입력은 키보드로만 작동하며 화면 표시 크로스 포인터·
이름 * · 더 보기 선택 pane 그리고 당신은 선택할 수 있습니다 또는 유형.

이 기능의 차이를 볼 수 있습니다.
뚱 베어

(이익 c:tt ()
(세트 t)
(안녕하세요)
( "c a t")에
(setq a (getkword "\ndigitare opzione : ")))
(예정)
(= nil) (setq a "c") (prompt a) )
(= "t") (setq a nil) )
·
·
(파나)
·

·

(c : yyy ()를 반환
(setq에서 t)
(안녕하세요)
(피아 "\ndigitare opzione : ")
(setq a (캐스터 (그레드 nil 14 2))
(컨드)
(금 (=에 65) (=에 67) ("a")에 setq (아)
(금 (=에 67) (=에 99) (setq에 "c") (princ)
(금 (= 에 84) (= 에 116) (setq 에 nil)
(= 'list (type a) (setq a "c") (prompt a) )
( t (setq a t) (princ "\opzione non valida") )
·
·
(파나)
·

 

[GP.]

첫 번째 함수 (getkword)가 "c"를 반환하도록 요청하는 것을 잊어 버린
죄송합니다.

 

[christian_96]

내가 할 수있는 빨리, 대단히 감사합니다

 

[christian_96]

나는 나에게 표시된 목록을 시도했지만 내 경우에 정확히하지 않습니다 : 친구 :
나는 당신이 getkword condizoni에서 왼쪽 마우스 버튼의 압력을 설정할 수 있다면 궁금, 또는 대신 "c"버튼을 눌러 왼쪽 마우스 버튼을 누릅니다

 

[rpor66]

; ritorna t se tasto 마우스 1 premuto
(defun pressmouse (/ 반복 cod)
( "\nmouse 1 per continuare: ")
(setq 루프 t)
(while 반복
(setq cod (차 (그레드 t 8)))
(if (= cod 3); 쥐 1
(setq 루프 nil)
·
·
₢ 킹
·

한국어:
(압축) 참석 il 클릭 del tasto 마우스 1 continuare 당

이름 *

 

[christian_96]

코드만큼 완벽 할 것, 만 나는 getkword로 그것을 사용할 수 없습니다 때문에 다른 옵션을 선택할 수있는 기회를 제공하지 않습니다.

 

[rpor66]

(defun pressmouseandkey (/ a b 반복 cod)
(prompt " continua (mouse 1 o c) annulla termina ")
(setq 루프 t)
(while 반복
(세트 t 2))
(setq b (캐스터 a))
(이 경우 (= b -1)
(세트 0)
(세트 (차)
·
(이 경우 (= cod 2)
(진료)
(예정)
((= b 65) (= b 97)) (setq 루프 nil cod "a")))
((= b 67) (= b 99)) (setq 루프 nil cod "c")))
((= b 84) (= b 116)) (setq 루프 nil cod "t"))
·
·
·
; 마우스 버튼 1
(= cod 3) (setq 루프 nil cod "c"))
·
한국어
·

이름 *

 

[rpor66]

christian_96에 의해 요청된 토론의 깊이

파일 lisp는 새로운 customizable 기능입니다.
zip 파일은 세부 사항에 설명 된 기능을 포함합니다.

이름 *