批量有名快转慝名块
我有一个有名块转匿块的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)
)
页:
[1]