改匿名块遇到问题

原地踏步

图中1、2为两个相同的图块“A”，内嵌图块“B”，运行程序，选择图块2，则图块2变为匿名块，图块1未变。炸开图块2，图块B也改成了匿名块。
但是，炸开图块1，其中的图块B也改为了匿名块！这不是我想要的结果，我希望图块2中的图块均改为匿名块，图块1中的图块均不改。
请问各位大佬，问题出在哪里？

原地踏步

;以下为程序
(defun trs_ano (blkRef / blkDxf blkNam anoNam entBlk entNxt etype entLst en pt m)
  (setq blkDxf (entget blkRef)
        blkNam (ai_dxf 2 blkDxf)
        entBlk (tblobjname "Block" blkNam)
        pt (ai_dxf 10 (entget entBlk))
        m 0
  )
  (while (setq entNxt (entnext entBlk))
    (setq etype (ai_dxf 0 (entget entNxt))
          entBlk entNxt
          entLst (cons entNxt entLst)
    )
    (if (= etype "INSERT") (trs_ano entNxt))
  )
  (entmake (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt)))
  (repeat (length entLst)
    (setq en (nth m entLst)
          m (1+ m)
    )
    (entmake (entget en))
    (entdel en)
  )
  (setq anoNam (entmake '((0 . "ENDBLK"))))
  (entmod (subst (cons 2 anoNam) (cons 2 blkNam) blkDxf))
)
(defun ai_dxf (key lst)
  (cdr (assoc key lst))
)

(defun c:tt ()
  (setq ent (car (entsel "\nSelect:")))
  (trs_ano ent)
  (princ)
)

原地踏步

不下载图纸也可以。随便做一个含嵌套块的图块，复制一个就行了。