批量修改块名

林霄云

行情下行，修改增加，批量修改块名，避免块重名出错。

1. (defun c:brns( / bnlist bn  t1 t2 x i)
   
2. ;desiged by 林霄云 2021年11月23日
   
3. ;批量改块名
   
4. (setq bnlist '()) ;待修改块名列表
   
5. (setq bn (tblnext "block" T)) ;If this argument is present and is not nil, the symbol table is rewound and the first entry in it is retrieved.
   
6. 
   
7. (while   (setq bn (tblnext "block"))
   
8.   (if (and (wcmatch (cdr (assoc 2 bn)) "[~*$_]*") (< (cdr (assoc 70 bn)) 4)) ;70组码，确定内部块还是外部参照
   
9.    ;取首字母不等于*$_，调整出特殊字符如[*$_]
   
10.    (setq bnlist (cons (cdr (assoc 2 bn)) bnlist));列表肯定是不重名的
    
11.   );if
    
12. );while
    
13. ;(setq bnlist (reverse bnlist)) ;确保内部块在前面，当排除外部参照时，次序不需要
    
14. (setq t1 (rtos (getvar "cdate") 2 6) i 0)  ;"20211123.114254"
    
15. (foreach x bnlist
    
16.   (setq t2 (strcat x "_" t1))
    
17. 
    
18.   (command "rename" "b" x t2)
    
19.   (setq i (1+ i))
    
20.   (princ (strcat  (itoa i) " :" x "\n"))
    
21.   ;(if (= 0 (rem i 5)) (princ "\n"))
    
22. );foreach
    
23. (princ (strcat "总共重命名" (itoa i) "个块！" "\n"))
    
24. (princ)
    
25. )

(defun c:brns( / bnlist bn  t1 t2 x i)<br /> ;desiged by 林霄云 2021年11月23日<br /> ;批量改块名<br /> (setq bnlist '()) ;待修改块名列表<br /> (setq bn (tblnext "block" T)) ;If this argument is present and is not nil, the symbol table is rewound and the first entry in it is retrieved.<br /> <br /> (while   (setq bn (tblnext "block"))<br />   (if (and (wcmatch (cdr (assoc 2 bn)) "[~*$_]*") (< (cdr (assoc 70 bn)) 4)) ;70组码，确定内部块还是外部参照<br />    ;取首字母不等于*$_，调整出特殊字符如[*$_]<br />    (setq bnlist (cons (cdr (assoc 2 bn)) bnlist));列表肯定是不重名的<br />   );if<br /> );while<br /> ;(setq bnlist (reverse bnlist)) ;确保内部块在前面，当排除外部参照时，次序不需要<br /> (setq t1 (rtos (getvar "cdate") 2 6) i 0)  ;"20211123.114254"<br /> (foreach x bnlist<br />   (setq t2 (strcat x "_" t1))<br /> <br />   (command "rename" "b" x t2)<br />   (setq i (1+ i))<br />   (princ (strcat  (itoa i) " :" x "\n"))<br />   ;(if (= 0 (rem i 5)) (princ "\n"))<br /> );foreach<br /> (princ (strcat "总共重命名" (itoa i) "个块！" "\n"))<br /> (princ)<br /> )

代码中，在批量修改中，排除了首字母为*$_的块 (wcmatch (cdr (assoc 2 bn)) "[~*$_]*")以及外部参照(< (cdr (assoc 70 bn)) 4)) ，批量修改块名为附加一个时间后缀(setq t1 (rtos (getvar "cdate") 2 6) i 0)，不提供交互。批量修改时，交互的意义不大。

lxl217114

很高效的批改块名

jinan1913

挺好的，下载试试

依然小小鸟

大神终于又出现了  有没有框选多个物体 每个物体各自成块的插件  

Stime

大神可否写一个浩辰的版本

czb203

很高效的批改块名

林霄云

依然小小鸟 发表于 2021-11-26 18:45
大神终于又出现了  有没有框选多个物体 每个物体各自成块的插件

多个物体的判断规则不明确。可以框选成块。

林霄云

林霄云 发表于 2021-12-3 17:55
多个物体的判断规则不明确。可以框选成块。

2. (defun c:ssb( / ptu tempname ss )
   
3. ;选择集成块
   
4. ;Designed by 林霄云； 2020年4月20日
   
5. (princ "\n选择要成块的对象: ")
   
6. (setq ss (ssget))
   
7. (if (null (setq ptu (getpoint "\n输入基点")))
   
8. (setq ptu '(0 0))
   
9. )
   
10. (if ss
    
11. (progn
    
12. (setq tempname (strcat  "hnutempblock_" (rtos (getvar 'cdate) 2 6))) ;块名加时间
    
13. (command "block" tempname ptu ss "" );生成块
    
14. (command "insert" tempname ptu 1 1 0);插入块
    
15. )
    
16. );if
    
17. (princ)
    
18. )

(defun c:ssb( / ptu tempname ss )<br /> ;选择集成块<br /> ;Designed by 林霄云； 2020年4月20日<br /> (princ "\n选择要成块的对象: ") <br /> (setq ss (ssget))<br /> (if (null (setq ptu (getpoint "\n输入基点")))<br /> (setq ptu '(0 0))<br /> )<br /> (if ss<br /> (progn<br /> (setq tempname (strcat  "hnutempblock_" (rtos (getvar 'cdate) 2 6))) ;块名加时间<br /> (command "block" tempname ptu ss "" );生成块<br /> (command "insert" tempname ptu 1 1 0);插入块 <br /> )<br /> );if<br /> (princ)<br /> )

菜鸟初来乍到

感谢大佬分享，谢谢