批量有名快转慝名块

pzweng

我有一个有名块转匿块的lisp程序,不过需要一个一个块转，不能实现批量转换，求高手们帮忙解决,
(defun c:111 (/ tt apple_sel apple_nnblk)
(vl-load-com)  (setq tt t)   
(while tt     (setvar "errno" 0)     
(setq apple_sel (entsel "\n选择要改为匿名块的图块: ")   )     
(if (/= (getvar "errno") 7)      (setq tt nil)       )     )
(setq apple_nnblk (vlax-ename->vla-object(car apple_sel)))
(if (= (vla-get-objectname apple_nnblk) "AcDbBlockReference")  
(progn    (vla-put-name       (vla-item (vla-get-blocks       (vla-get-activedocument (vlax-get-acad-object))     )
(vla-get-name apple_nnblk))"*U"          )      )      
(princ "\n######---选择物体非块---######")   )   
(princ)
)