[求助]：请QUN帮忙看看，谢谢了

brainstorm

QUN版主你好，我想仿照理正Q键功能写个小程序，怎样实现在屏幕上选点，直接调用ssget，而不是需要点二次，请帮忙看看下面代码，谢谢
(defun c:test (/ a)
    (defun grreadstr1 (msg / k)
        (prompt msg)
        (if (= (car (setq k (grread nil 4 2))) 12)
            (setq k (grread nil 4 2))
            k
        )
    )
    (setq a (grreadstr1 "\n请选择{Q改参数}:"))
    (if        (= (car a) 3)
        (ssget)
        (princ "\n输入新的参数:")
    )
)

Qun

理正Q键功能是C程序实现的，你的方法我没用过。

brainstorm

;用笨方法解决一下
(defun c:tt (/ a b pt1 pt2 loop mode ss1 ss2 ss3)
  (setq i 0)
  (defun zgx-redraw-ss (ss n / i)
    (setq i 0)
    (repeat (sslength ss)
      (redraw (ssname ss i) n)
      (setq i (1+ i))
    )
  )
  (defun grreadstr12 (msg / k)
    (prompt msg)
    (if        (= (car (setq k (grread nil 4 2))) 12)
      (setq k (grread nil 4 2))
      k
    )
  )
  (setq loop t)
  (while loop
    (setq b (grreadstr12 "\n请选择物体{Q改参数}:"))
    (setq a (car b))
    (cond
      ((member a '(11 12))
       (progn (setq loop nil)
              (quit)
       )
      )
      ((= a 3)
       ;;progn
       (progn
         (setq pt1 (cadr b))
         (setq loop nil)
         (if (not (setq ss1 (ssget pt1)))
           (progn
             (setq pt2 (getcorner pt1))
             (if (> (car pt1) (car pt2))
               (setq mode "c")
               (setq mode "w")
             )
             (setq ss (ssget mode pt1 pt2))
             (zgx-redraw-ss ss 3)
             (prompt "\n请继续选择:")
             (setq ss1 (ssget))
           )
           (progn
             (zgx-redraw-ss ss1 3)
             (prompt "\n请继续选择:")
             (setq ss2 (ssget))
             (zgx-redraw-ss ss1 4)
           )
         )
       )
       ;;progn
      )
      ((= a 2)
       (progn
         (if (member (cadr b) '(13 32))
           (setq loop nil)
           (progn
             (if (not (member (cadr b) '(81 113)))
               (setq loop t)
               (progn
                 (princ "\n成功:")
                 (setq i (1+ i))
                 (princ (strcat "\n" (rtos i 2 0)))
                 (setq loop t)
               )
             )
           )
         )
       )
      )
      (t (quit))
    )
  )
)