lisp函数响应键盘上下左右移动

cn0yahoo · 发表于 2024-3-29 17:51:42

(defun c:mm ()
  (setvar "cmdecho" 0)
  (setq ss(ssget))
  (princ "\N左移4，右移6，上移8，下移2")
  (setq loop T)
  (while loop
(setq h(*(/(getvar "viewsize")(cadr(getvar "screensize")))(/(getvar "pickbox")2)))
(cond
   ((=(car(grread T 5 2))50))
   ((=(cadr(grread T 5 2))52)(command "MOVE" ss "" "non" (LIST h 0 0) "non" '(0 0 0)))
   ((=(cadr(grread T 5 2))54)(command "MOVE" ss "" "non" '(0 0 0) "non" (LIST(* h 2)0 0)))
   ((=(cadr(grread T 5 2))50)(command "MOVE" ss "" "non" (LIST 0 h 0) "non" '(0 0 0)))
   ((=(cadr(grread T 5 2))56)(command "MOVE" ss "" "non" '(0 0 0) "non" (LIST 0 (* h 2) 0)))
  ) )
(princ))

hhh454 · 发表于 2024-3-30 11:57:27

很实用的功能，感谢楼主分享

BUBUBA918 · 发表于 2024-3-31 21:19:23

52 54 50 56 这些值在哪里查？

paulpipi · 发表于 2024-4-1 16:20:05

感谢分享，试试看看

tensir · 发表于 2024-7-17 08:19:04

感谢作者的分享！

qazxswk · 发表于 2024-7-28 02:50:31

BUBUBA918 发表于 2024-3-31 21:19
52 54 50 56 这些值在哪里查？

百度一下 ascii码

tensir · 发表于 2024-7-28 09:17:29

感谢作者的分享！

lelelewfxy · 发表于 2024-8-8 22:35:00

很实用，谢谢分享

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