[求助]：请教高手，这段程序为何修改不了？

userzhluserzhl

功能：选择提示为“图名_1：20”“图名_1：10”“图名_1：5”等这些属性块，并对这些块进行修改。

(setq BLKS (vla-get-blocks
        (vla-get-activedocument (vlax-get-acad-object))
      )
  )
(setq scal 20.0)
  (repeat (setq i (sslength ssi))
    (setq sn (ssname ssi (setq i (1- i))))
    (setq ELIST (entget sn))
    (setq BLK_NA (cdr (assoc 2 ELIST)))
(setq bb (cdr (assoc 1 (entget (entnext sn)))))
    (setq bb1 (strcat "1:" (rtos scal 2 0)))
    (vlax-for X (vla-item BLKS BLK_NA)
      (if (and (= (vla-get-objectname X) "AcDbAttributeDefinition")
        (wcmatch (vla-get-promptstring X) "图名_*")
   )
(ZL-INSERT-SETATTVALUE sn bb bb1) ;修改属性块的属性值
      )
    )
  )
;请教高手，这段程序为何修改不了？
(defun ZL-INSERT-SETATTVALUE (EN ATTNAME VALUE / RETURN E TEST ENT)
    (setq E EN
   RETURN NIL
   TEST t
    )
    (while (and TEST
  (setq E (entnext E))
    )
(setq ENT (entget E))
(cond
     ;;
     ((not (= (cdr (assoc 0 ENT)) "ATTRIB"))
      (setq TEST NIL)
     )
     ;;
     ((= "SEQEND" (cdr (assoc 0 ENT)))
      (setq TEST NIL)
     )
     ;;
     ((= (cdr (assoc 2 ENT)) ATTNAME)
      (setq ENT (subst
      (cons 1 VALUE)
      (assoc 1 ENT)
      ENT
         )
      )
      (entmod ENT)
      (entupd EN)
      (setq RETURN t)
     )
) ;_结束cond
    )
    ;;返回
    RETURN
)