(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))



网友答: 很实用的功能，感谢楼主分享

网友答: 52 54 50 56 这些值在哪里查？

网友答: 感谢分享，试试看看

网友答: 感谢作者的分享！

网友答:
百度一下 ascii码

网友答: 感谢作者的分享！

网友答: 很实用，谢谢分享