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

dong20030432

如题，请各位高手赐教！！！

dong20030432

下面是网上找到的用LSP写的破解多重插入块的代码，看不懂，哪位高手有空帮忙翻译成VBA也行，非常感谢！

2. (defun c:unlk (/ en ent)
   
3. (setq en (entsel "\n请选择被加密的图形:"))
   
4. (if en
   
5. (if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
   
6. "INSERT"
   
7. )
   
8. (progn
   
9. (setq ent (entmakex
   
10. (list '(0 . "INSERT")
    
11. (assoc 2 ent)
    
12. (assoc 10 ent)
    
13. )
    
14. )
    
15. )
    
16. (command "_.explode" (entlast))
    
17. (entdel en)
    
18. )
    
19. )
    
20. )
    
21. (princ "\nOK，解密成功。")
    
22. (princ)
    
23. )

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