请各位大大改一下程序，实现批量循环执行

jcmtxgt

这程序是个对齐命令，只能单次执行，请帮忙加上循环，实现批量执行。框选完第一个实体后，再框选第二个封闭实体，将第一个实体居中放在后面选择的封闭实体内，封闭实体会有多个。

(defun ss::boundingbox (sel / idx llp ls1 ls2 obj urp)
    (repeat (setq idx (sslength sel))
      (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
      (if
    (and
      (vlax-method-applicable-p obj 'getboundingbox)
      (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp))))
    )
     (setq ls1 (cons (vlax-safearray->list llp) ls1)
           ls2 (cons (vlax-safearray->list urp) ls2)
     )
      )
    )
    (if (and ls1 ls2)
      (mapcar '(lambda (a b) (apply 'mapcar (cons a b))) '(min max) (list ls1 ls2))
    )
)

(defun c:dq ()        (setvar "OSMODE" 0)
       (princ "\n选择要移动的对象")
        (while (setq ss1 (ssget))                        
         (setq obj1 (ss::boundingbox ss1))         
        (setq x (/ (+ (caar obj1) (caadr obj1)) 2))
        (setq y (/ (+ (cadar obj1) (cadadr obj1)) 2))
        (setq mid1 (list x y 0.0))
   (princ "\n选择对齐的对象")
          (setq ss2 (ssget))
         (setq obj2 (ss::boundingbox ss2))
         (setq x1 (/ (+ (caar obj2) (caadr obj2)) 2))
         (setq y1 (/ (+ (cadar obj2) (cadadr obj2)) 2))
         (setq mid2 (list x1 y1 0.0))
          (princ "\n中心对齐")

      (command "_.move" ss1 "" mid1 mid2))
     (setvar "OSMODE" 11)
    (princ)     
  )

start4444

(defun c:dq (/ en i mid1 mid2 obj1 obj2 ss1 ss2 ss3 x x1 y y1)
        (setvar "OSMODE" 0)
        (princ "\n选择要移动的对象")
        (while (setq ss1 (ssget))
                (setq obj1 (ss::boundingbox ss1))
                (setq x (/ (+ (caar obj1) (caadr obj1)) 2))
                (setq y (/ (+ (cadar obj1) (cadadr obj1)) 2))
                (setq mid1 (list x y 0.0))
                (princ "\n选择对齐的对象")
                (setq ss2 (ssget))
                (setq i -1)
                (while (setq en (ssname ss2 (setq i (1+ i))))
                        (setq ss3 (ssadd) ss3 (ssadd en ss3))
                        (setq obj2 (ss::boundingbox ss3))
                        (setq x1 (/ (+ (caar obj2) (caadr obj2)) 2))
                        (setq y1 (/ (+ (cadar obj2) (cadadr obj2)) 2))
                        (setq mid2 (list x1 y1 0.0))
                        (command "copy" ss1 "" mid1 mid2)
                )
                (princ "\n中心对齐")
        )
        (setvar "OSMODE" 11)
        (princ)
)

jcmtxgt

感谢大大的出手相助，问题解决，我得研究研究怎么把赏分给你