门窗大样图块改名

yansu

申请：请求老师编制一个图块改名刷，画好的门窗大样图块按照建筑平面图标注的门窗编号块名改名，即拾取平面图门窗编号，刷图块使图块名改为对应的门窗编号，门窗编号是单行文字。图块是快速生成的，块名是随机的，但没有重复的，谢谢啦！

csharp

传样图上来

longer1000

帮顶一下。。。。。。

sh_h

基本可以实现，不过水平有限，有很多不完善的地方，
还请路过的高手帮忙完善！

1. ;;;函数名称:c:tt
   
2. ;;;函数说明:选文本改块名
   
3. ;;;示    例:(c:tt )
   
4. (defun c:tt ()
   
5.   (setq ent (car (nentsel "\n选择包含文本的源对象: ")))
   
6.   (setq vent (vlax-ename->vla-object ent))
   
7.   (if (setq new_name (vla-get-TextString vent))
   
8.     (progn
   
9.       (setq blk (car (entsel "\n选择要改名的目标块: ")))
   
10.       (setq v_blk (vlax-ename->vla-object blk))
    
11.       (setq old_name (vla-get-name v_blk))
    
12.       (command "RENAME" "_b" old_name new_name)
    
13.     )
    
14.     (princ "错误: 未选中文本或选择的源对象不包含文本.")
    
15.   )
    
16.   (prin1)
    
17. )
    

;;;函数名称:c:tt<br /> ;;;函数说明:选文本改块名<br /> ;;;示    例:(c:tt )<br /> (defun c:tt ()<br />   (setq ent (car (nentsel "\n选择包含文本的源对象: ")))<br />   (setq vent (vlax-ename->vla-object ent))<br />   (if (setq new_name (vla-get-TextString vent))<br />     (progn<br />       (setq blk (car (entsel "\n选择要改名的目标块: ")))<br />       (setq v_blk (vlax-ename->vla-object blk))<br />       (setq old_name (vla-get-name v_blk))<br />       (command "RENAME" "_b" old_name new_name)<br />     )<br />     (princ "错误: 未选中文本或选择的源对象不包含文本.")<br />   )<br />   (prin1)<br /> )<br />

yansu

非常好用，谢谢啦

csharp

http://bbs.xdcad.net/forum.php?m ... &fromuid=658062

这个里面有好几种方法