动态块矩形填充，求助增加空格结束

arkun

下面代码循环插入后，空格结束没用，只能ESC强制结束，请各位大大增加空格结束，并给出源码：

(defun c:cckk ()  
  (defun dongtai (enb enb2 pt1 pt2 / pt height width ob)  
    ; 计算矩形的宽度和高度  
    (setq width (abs (- (car pt2) (car pt1))))  
    (setq height (abs (- (cadr pt2) (cadr pt1))))  

    ; 在矩形左下角插入模板（调整pt以适应左下角）  
    (setq pt (list (min (car pt1) (car pt2)) (min (cadr pt1) (cadr pt2))))  
    (entmake  
      (list  
        '(0 . "INSERT")  
        (cons 2 enb2)  
        (cons 10 pt)  
      )  
    )  

    ; 获取新插入的块的引用  
    (setq ob (vlax-ename->vla-object (entlast)))  

    ; 设置动态属性E1和E2  
    (lm:setdynpropvalue ob "E1" height)  
    (lm:setdynpropvalue ob "E2" width)  

    ; 将新块置于底部  
    (command "Draworder" (entlast) "" "b")  

    ; 通知用户  
    (princ (strcat "\n模板已插入到矩形左下角，高度: " (rtos height) ", 宽度: " (rtos width) "。\n"))  
  )  

  ; 用户选择模板动态块  
  (setq en (car (xentsel "\n请选择一个模板动态块:" '((0 . "INSERT")))))  
  (if not en  
    (progn  
      (princ "\n未选择任何块。")  
      (exit)  
    )  
  )  
  (setq name2 (get-effectivename en))  

  ; 循环插入，直到用户按空格键  
  (setq exitFlag nil)  
  (while not exitFlag  
    (setq pt1 (getpoint "\n指定矩形第一角点: "))  
    (if (= pt1 nil) ; 检查用户是否按了空格或ESC  
      (setq exitFlag t)  
      (progn  
        (setq pt2 (getcorner pt1 "\n指定对角点以定义矩形: "))  
        (if (= pt2 nil) ; 同样检查用户是否按了空格或ESC  
          (setq exitFlag t)  
          (dongtai nil name2 pt1 pt2)  
        )  
      )  
    )  
  )  

  (princ "\n插入完成。\n")  
  (princ)  
)