如何使用DrawJig时，按任意键后自动触发，不用再加“空格或回车”

carrot1983 · 发表于 2020-10-11 09:02:00

Kean 有一篇文章关于在使用jig时，按下shift或ctrl键。
还有一篇文章讲使用创建多段线，Jig中使用关键字。
飞狐版主有收集：
现在的问题是：
如何实现在DrawJig时，按任意键后，就自动触发，不用再加“空格或回车”。
像Lisp中的grread函数一样。按键后随即触发。
(defun C:TEST (/ DATA GRR GRRPT KEY LOOP OBJECTS PT SS)
  ;; by carrot1983 2020.10.11
  (setq SS (ssget))
  (setq PT (getpoint "\n指定点："))
  (setq OBJECTS (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))))
  (setq LOOP t)
  (while LOOP
(setq GRR (grread t 15 2))
(setq KEY (car GRR))
(setq DATA (cadr GRR))
(cond ((= KEY 5)
   (setq GRRPT DATA)
   (foreach O OBJECTS
   (vla-move O (vlax-3d-point PT) (vlax-3d-point GRRPT))
   )
) ;_移动
((or (= KEY 3) (= DATA 13))
   (setq LOOP NIL)
) ;_3左击 13回车表示确认
((member KEY '(12 25))
   (redraw)
   (setq LOOP NIL)
) ;_右键退出
;;按任意键
((= KEY 2)
   (print (strcat "按键：" (chr DATA)))
)
)
(setq PT GRRPT) ;_新基点
  )
  (redraw)
)