CAD中自动编码程序在单选图框时可以，但图框内有图形时就无法选择，请各位大神解决

BARACKEDU

这个小程序在单是图框时可以选择自动编号，但是如果图框里有画出图形后就无法再选择了，请问各位大神这应该怎么改呢？
源码如下

(defun c:yema ()
    (setvar "cmdecho" 0)
        (dcl_Form1)
    (prin1)
)
;--->-启动程序-<---
(defun dcl_Form1()
  (setq dcl_id (load_dialog "D:\\Program Files\\yemachengxu\\Form1.dcl"))
  (new_dialog "Form1" dcl_id)

  (set_tile "Text1" "当前页")
  (set_tile "Text2" "第")
  (set_tile "Text4" "页")
  (set_tile "Text5" "图号")
  (set_tile "Text6" "JD-")


  (action_tile "Command1" "(get_Text1) (get_Text2) (get_Text3) (get_Text4) (get_Text5) (get_Text6) (get_Text7) (done_dialog 1)")
  (setq dd (start_dialog))

  (cond
     ((= dd 1) (c:ksjs))
  )


)
;--->--<---

;--->-把Text1的数值赋予给biao_Text1-<---
(defun get_Text1()
  (setq biao_Text1 (get_tile "Text1"))
)
;--->-把Text2的数值赋予给biao_Text2-<---
(defun get_Text2()
  (setq biao_Text2 (get_tile "Text2"))
)
;--->-把Text3的数值赋予给biao_Text3-<---
(defun get_Text3()
  (setq biao_Text3 (atof (get_tile "Text3")))
)
;--->-把Text4的数值赋予给biao_Text4-<---
(defun get_Text4()
  (setq biao_Text4 (get_tile "Text4"))
)
;--->-把Text5的数值赋予给biao_Text5-<---
(defun get_Text5()
  (setq biao_Text5 (get_tile "Text5"))
)
;--->-把Text6的数值赋予给biao_Text6-<---
(defun get_Text6()
  (setq biao_Text6 (get_tile "Text6"))
)
;--->-把Text7的数值赋予给biao_Text7-<---
(defun get_Text7()
  (setq biao_Text7 (atof (get_tile "Text7")))
)

;--->-执行程序-<---
(defun c:ksjs()
(prompt "\n选择基准图框")
(setq ss1 (ssget))
(setq ss1 (list '(0 . "INSERT") (cons 2 (cdr (assoc 2 (entget (ssname ss2 0)))))))
(prompt "\n选择需要修改的所有图框")
(setq ss (ssget ss1))


;;;按左右上下顺序排序选择集图元;;;;
(setq lst (ss2lst ss))
(setq lst(vl-sort lst '(lambda(x y)(if (equal (cadr(cdr(assoc 10 (entget x))))(cadr(cdr(assoc 10 (entget y))))1e-1)
                            (<(car(cdr(assoc 10 (entget x))))(car(cdr(assoc 10 (entget y)))))
                            )
                )
          )
       )
;-----------------------------------

(setq i 0)
(setq d 0)
;------------------------
(cond
((/= biao_Text3 0)
(repeat (sslength ss)
  (setq bs1 (strcat biao_Text2 (itoa (fix biao_Text3)) biao_Text4))
  (setq e1 (nth d lst))
  (setq a nil)
    (while (= a nil)
             (setq a
               (progn
                 (setq e1 (entnext e1))
                 (setq e3 (entget e1))
                 (setq e4 (cdr (assoc 2 e3)))
                   (cond ((= e4 biao_Text1)
                          (progn
                            (setq new_th_list (cons 1 bs1))
                            (setq old_th_list (assoc 1 e3))
                            (setq e3 (subst new_th_list old_th_list e3));新旧替换
                            (entmod e3);根据新对象属性自动更新圆半径
                               )
                         )
                   )
               )
             )
    )
  (setq d (1+ d))
  (setq biao_Text3 (1+ biao_Text3))
)))
;-----------------------------------
(cond
((/= biao_Text7 0)
(repeat (sslength ss)
  (setq bs2 (strcat biao_Text6 (itoa (fix biao_Text7))))
;  (setq e1 (ssname ss i))
  (setq e1 (nth i lst))
  (setq a nil)
    (while (= a nil)
             (setq a
               (progn
                 (setq e1 (entnext e1))
                 (setq e3 (entget e1))
                 (setq e4 (cdr (assoc 2 e3)))
                   (cond ((= e4 biao_Text5)
                          (progn
                            (setq new_th_list (cons 1 bs2))
                            (setq old_th_list (assoc 1 e3))
                            (setq e3 (subst new_th_list old_th_list e3));新旧替换
                            (entmod e3);根据新对象属性自动更新圆半径
                               )
                         )
                   )
               )
             )
    )
  (setq i (1+ i))
  (setq biao_Text7 (1+ biao_Text7))
)))
;----------------------------------------------

)
;;;;选择集转表
(defun ss2lst (ss / i e lst)
(setq c -1)
(repeat (sslength ss)
  (setq e (ssname ss (setq c (1+ c)))
        lst (cons e lst)
        )
)
)
;----------------------
(princ "\n页码编辑")
(princ "\n快捷命令:YEMA")
(princ )

bai2000