为啥我的代码运行不完？？

董堃

(defun c:asfc ( / colbj copyobj dd ddx ddy ll n obj2 objb objcorol pt pt1 pt2 ssl ssna tus ur xdx xdy xz yz zd zdx zdy zxx zxy)
(vl-load-com)
  (princ"\n请选择要分离的图元：")
    (setq objb (ssget))
(while objb (setq n 0)
  (REPEAT (sslength objb)
    (vla-getboundingbox (vlax-ename->vla-object (ssname objb n)) 'll 'ur);取得包容图元的最大点和最小点
    (setq dd(mapcar 'vlax-safearray->list (list ll ur)))                 ;把变体数据转化为表
       (setq ddx (caar dd)
            xdx (caadr dd)
            ddy (cadar dd)
            xdy (cadadr dd))
            ;以下取得最大点和最小点
    (if(= zdx nil)(setq zdx ddx zdy ddy zxx xdx zxy xdy))
    (if(> ddx zdx)(setq zdx ddx))
    (if(> ddy zdy)(setq zdy ddy))`
    (if(< xdx zxx)(setq zxx xdx))
    (if(< xdy zxy)(setq zxy xdy))
    (setq n(1+ n)))
    (setq xz(- (+ 10 zdx)(- zxx 10)) ;区域宽度
          yz(- (+ 10 zdy)(- zxy 10)) ;区域高度
          zd(list(/(+ zxx zdx) 2)(/ (+ zdy zxy)2)))  ;区域中心点
          (setq tus 0 obj2 objb)
      (while  (> (sslength objb) 0)
(setq ssl 0)
(setq tus (1+ tus))
        (setq pt(list (+(/(+ zxx zdx) 2)xz)(-(/ (+ zdy zxy)2)(* yz tus))))
(repeat(sslength objb)
        (setq ssna(vlax-ename->vla-object (ssname objb ssl)))
        (setq objcorol(vla-get-Color ssna))
        (if (= ssl 0)(setq colbj objcorol))
        (if (= objcorol colbj)
   (progn
     (setq copyobj(vla-copy ssna))
    (setq obj2 (ssdel (ssname objb ssl) obj2))
               (setq  pt1 (vlax-3D-point zd))
               (setq  pt2 (vlax-3D-point pt))
    (vla-move copyobj pt1 pt2)
    ))
    (setq ssl (1+ ssl)))(setq objb obj2)(setq ssl 0)
   
    )
    (princ"\n请选择要分离的图元：")
  (setq objb (ssget)))
  (princ "\n完成")
)

byghbcx

objb始终为真吧

董堃

objb始终为真的话是死循环，但我的是直接退出