请教关于 grread 的问题

669423907

下面程序，为什么第一次运行的时候，会自动默认为  移动鼠标   ？而第一次运行之后的就正常了，望大师们帮修正一下，谢谢了


(defun c:13(/ loop gr sb jp)
(setq loop t)
(grread 1)
(while loop
(setq gr (grread 1) sb (car gr) jp (cadr gr))
(cond

;鼠标左键
((= sb 3)
(setq loop nil)
(princ"\n 左键")
)

;鼠标右键
((= sb 25)
(setq loop nil)
(princ"\n 右键")
)

;鼠标移动
((= sb 5)
(setq loop nil)
(princ"\n 鼠标移动")
)

;键盘
((= sb 2)
(cond
(jp ;(= jp 32) ;空格
(setq loop nil)
(princ"\n 键盘")
)
)
)

)
)
(princ))

xvjiex

(defun c:tta (/ loop gr sb jp pt)
  (setq loop t pt (cadr (grread *)))
  (while loop
    (setq gr (grread t 8)
          sb (car gr)
          jp (cadr gr)
    )
    (cond
      ((= sb 3)(setq loop nil)
       (princ "\n 左键")
      )
      ((= sb 25)(setq loop nil)
       (princ "\n 右键")
      )
      ((and(= sb 5) (> (distance pt jp) (/(getvar'viewsize) 90)))
       (setq loop nil)(princ "\n 鼠标移动")
      )
      ((= sb 2)(setq loop nil)
       (princ "\n 键盘")
      )
    )
  )
  (princ)
)

自贡黄明儒

鼠标移动时loop设为T

669423907

(defun c:13(/ j)
(setq j (sb-jp))
(cond
((= j 5)
(princ"\n 鼠标移动")
)
((= j 3)
(princ"\n 按左键")
)
((= j 25)
(princ"\n 按右键")
)
((= j 2)
(princ"\n 按键盘")
)
)
(princ))

(defun sb-jp(/ sb loop)
(setq loop (cadr (grread *)) sb (car (grread *)))
(grread *)
(while loop

(setq sb (car (grread *)))
(cond
((= sb 3)(setq loop nil)) ;鼠标左键
((= sb 25)(setq loop nil)) ;鼠标右键
((and (= sb 5) (> (distance loop (cadr (grread *))) (/(getvar'viewsize) 90) ) ) (setq loop nil)) ;鼠标移动
((= sb 2)(setq loop nil)) ;按键盘
)
)
sb
)

xvjiex

已经帮你改好了

669423907

xvjiex 发表于 2020-8-17 16:06
已经帮你改好了

谢谢大师热情帮助

669423907

xvjiex 发表于 2020-8-17 16:06
已经帮你改好了

试过了，鼠标移动时没有提示 (princ"\n 鼠标移动") 只能按 esc 退出循环
我要求的是，移动鼠标，既可以提示 (princ"\n 鼠标移动") 并退出循环

xvjiex

你再多试试，移动鼠标肯定有提示 (princ"\n 鼠标移动")，只是行数刷新太快。不退出是我特意设置的，让你理解其功能。你先别着急按esc，点点左键，右键，键盘abc。多试试就理解其含义了。等你理解了，就知道2楼说的很有道理了。

669423907

xvjiex 发表于 2020-8-17 20:06
你再多试试，移动鼠标肯定有提示 (princ"\n 鼠标移动")，只是行数刷新太快。不退出是我特意设置的，让你理 ...

你在每一项都加 (setq loop nil) 试试，程序一启动，就直接退出了

669423907

这是我最后修改的，还是存在一个问题，就是右键重复上一次命令的时候，就必须先稍微移动一点点鼠标或按两次相同的按键右或者要先按一次右键再按其它键才能退出
(defun c:13(/ c_c j)
(defun c_c()(princ"\n 999")) ;出错处理
(setq j (sb-jp c_c 50))
(cond
((= j 5)
(princ"\n 鼠标移动")
)
((= j 3)
(princ"\n 按左键")
)
((= j 25)
(princ"\n 按右键")
)
((= j 2)
(princ"\n 按键盘")
)
)
(princ))

(defun sb-jp(error jl / sb loop *error*)
(if (not error) (setq error nil) )
(if (not jl) (setq jl 90) )
(defun *error*(msg)(error)) ;出错处理
(setq loop (cadr (grread *)) sb (car (grread *)))
(grread *)
(while loop
(setq sb (car (grread *)))
(cond
((= sb 3)(setq loop nil)) ;鼠标左键
((= sb 25)(setq loop nil)) ;鼠标右键
((and (= sb 5) (> (distance loop (cadr (grread *))) (/(getvar'viewsize) jl) ) ) (setq loop nil)) ;鼠标移动
((= sb 2)(setq loop nil)) ;按键盘
)
)
sb
)