[求助]：阵列图块时，图块的动态显示，附一小程序(上一主题不能编辑，重发）

xyzjint_cn

浩辰暖通中，阵列布置空调风口时，每个图块随着选择范围增大而动态显示，这样的功能用什么程序段实现？

下面的程序，是从他人的程序上改过来的，
(vl-load-com)
(defun C:TT (/ TEST SS TMP MODE PT PT0)
  (setq el nil)
  (setq p1 (getpoint "\n请点取风口的插入点>: "))
  (setq TEST t)
  (while TEST
    (setq TMP  (grread 4 2)
          MODE (car TMP)
          PT   (cadr TMP)
    )                                        ;        (princ MODE)
    (cond
      ((= MODE 5)                        ;移动
       (setq pt_mid (mapcar '+ p1 pt))
       (setq pt_mid (mapcar '/ pt_mid '(2 2 2)))
       (setq pt1 (list  (nth 0 p1) (nth 1 pt)))
       (setq pt2 (list  (nth 0 pt) (nth 1 p1)))
       (redraw)
        (grdraw p1 pt1 7)
        (grdraw pt1 pt 7)
        (grdraw pt pt2 7)
        (grdraw pt2 p1 7)
       (if (/= el nil)
         (entdel el)
       )
       (command "insert" "高效送风口GKF-05A" pt_mid 1 1 0)
       (setq el (entlast))
      )

      ((= MODE 3)                        ;左击
       (entdel el)
       (command "insert" "高效送风口GKF-05A"  pt_mid 1 1 0)
       (redraw)
       (setq TEST NIL)
      )
      ((= MODE 25)                        ;右击
       (setq el (entlast))(entdel el)
       (redraw)
       (setq TEST NIL)
      )
      (t
       ;(princ (strcat "\r" (vl-princ-to-string TMP)))
      )
    )
  )
  (princ)
)
将其中的“高效送风口GKF-05A”改为你图中的图块名称就可以了，
请教高手，如何在选取第二个点时，能捕捉点，现在不能精确定位

zgmsl

也来凑热闹，学习学习