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

cn0yahoo

(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

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

BUBUBA918

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

paulpipi

感谢分享，试试看看