匿名块如何编辑（块名*u）

blackfire

请问：匿名块如何编辑（块名*u），不想炸开！

【KAIXIN】

2. ;(改块名)无名转有名
   
3. (defun C:XX (/ obj bkn)
   
4. (KX-COMA)
   
5. (KX-princA "(改块名)无名转有名")
   
6.   (setq obj (KX-E2O (car (entsel "\n-->请点选块: "))));转为VLA对象
   
7.   (setq bkn (KX-str 1 "块名" bkn nil nil))
   
8.   (KX-Wm2Insert obj bkn);改块名
   
9. (KX-COMB)
   
10. )

;(改块名)无名转有名<br /> (defun C:XX (/ obj bkn)<br /> (KX-COMA)<br /> (KX-princA "(改块名)无名转有名")<br />   (setq obj (KX-E2O (car (entsel "\n-->请点选块: "))));转为VLA对象<br />   (setq bkn (KX-str 1 "块名" bkn nil nil))<br />   (KX-Wm2Insert obj bkn);改块名<br /> (KX-COMB)<br /> )

【KAIXIN】

2. ;(改块名)无名转有名  作者：【KAIXIN】，QQ：295963716
   
3. ;本程序需要KAIXIN通用函数的支持
   
4. (defun C:XX (/ obj bkn)
   
5. (KX-COMA)
   
6. (KX-princA "(改块名)无名转有名")
   
7.   (setq obj (KX-E2O (CAR (KX-Get-Entsel '((0 . "INSERT")(2 . "`**")) "无名块"))));转为VLA对象
   
8.   (setq bkn (KX-str 1 "块名" bkn nil nil))
   
9.   (KX-Wm2Insert obj bkn);改块名
   
10. (KX-COMB)
    
11. )
    
12. 
    

;(改块名)无名转有名  作者：【KAIXIN】，QQ：295963716<br /> ;本程序需要KAIXIN通用函数的支持<br /> (defun C:XX (/ obj bkn)<br /> (KX-COMA)<br /> (KX-princA "(改块名)无名转有名")<br />   (setq obj (KX-E2O (CAR (KX-Get-Entsel '((0 . "INSERT")(2 . "`**")) "无名块"))));转为VLA对象<br />   (setq bkn (KX-str 1 "块名" bkn nil nil))<br />   (KX-Wm2Insert obj bkn);改块名<br /> (KX-COMB)<br /> )<br /> <br />

USER2128

给你一个编程思路：
1、记录最后实体，如(setq g:last-ent (entlast))；
2、记录块信息，如该块所在层等；
3、炸开该块；
4、加入、删减、编辑其中的实体；
5、收集 g:last-ent 之后的所有实体；
6、用造无名块程序将收集实体制成无名块；
7、还原该新建的无名块所处的层等信息；

blackfire

谢谢，网上找了一段lisp代码，完美解决该问题

mokson

真是高手，望而生畏。