【求助】请教如何用VBA分解多重插入块和循环嵌套块？

(defun c:unlk (/ en ent) 
(setq en (entsel "\n请选择被加密的图形:")) 
(if en 
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) 
"INSERT" 
) 
(progn 
(setq ent (entmakex 
(list '(0 . "INSERT") 
(assoc 2 ent) 
(assoc 10 ent) 
) 
) 
) 
(command "_.explode" (entlast)) 
(entdel en) 
) 
) 
) 
(princ "\nOK，解密成功。") 
(princ) 
)