【K:GetAllBlkNam】收集所有内部块的名称

kucha007

不收集外部参照和标注分解后可能产生的符号块

1. ;收集所有内部块的名称
   
2. (defun K:GetAllBlkNam (/ BlkNam BlkLst)
   
3.   (setq BlkNam nil
   
4.         BlkLst nil
   
5.   )
   
6.   (while (setq BlkNam (tblnext "block" (not BlkNam)))
   
7.       (and
   
8.         (zerop (logand 53 (cdr (assoc 70 BlkNam))));忽略外部参照
   
9.         (not (wcmatch (setq BlkNam (cdr (assoc 2 BlkNam))) "`**"));忽略匿名块*U
   
10.         (not (member (strcase BlkNam)
    
11.                 (list "_DOT" "_DOTSMALL" "_DOTBLANK" "_ORIGIN" "_ORIGIN2" "_OPEN" "_OPEN90" "_OPEN30" "_CLOSED" "_SMALL" "_NONE"  "_OBLIQUE" "_BOXFILLED" "_BOXBLANK" "_CLOSEDBLANK" "_DATUMFILLED" "_DATUMBLANK" "_INTEGRAL" "_ARCHTICK"
    
12.                 )
    
13.               )
    
14.         );忽略标注块
    
15.         (or (member BlkNam BlkLst) (setq BlkLst (cons BlkNam BlkLst)))
    
16.       )
    
17.   )
    
18.   BlkLst
    
19. )
    

;收集所有内部块的名称<br /> (defun K:GetAllBlkNam (/ BlkNam BlkLst) <br />   (setq BlkNam nil<br />         BlkLst nil<br />   )<br />   (while (setq BlkNam (tblnext "block" (not BlkNam))) <br />       (and <br />         (zerop (logand 53 (cdr (assoc 70 BlkNam))));忽略外部参照<br />         (not (wcmatch (setq BlkNam (cdr (assoc 2 BlkNam))) "`**"));忽略匿名块*U<br />         (not (member (strcase BlkNam) <br />                 (list "_DOT" "_DOTSMALL" "_DOTBLANK" "_ORIGIN" "_ORIGIN2" "_OPEN" "_OPEN90" "_OPEN30" "_CLOSED" "_SMALL" "_NONE"  "_OBLIQUE" "_BOXFILLED" "_BOXBLANK" "_CLOSEDBLANK" "_DATUMFILLED" "_DATUMBLANK" "_INTEGRAL" "_ARCHTICK"<br />                 )<br />               )<br />         );忽略标注块<br />         (or (member BlkNam BlkLst) (setq BlkLst (cons BlkNam BlkLst)))<br />       )<br />   )<br />   BlkLst<br /> )<br />

magicheno

感谢大佬分享

czb203

感谢苦茶大佬的分享

白山茶

感谢苦茶大佬的分享

lxl217114

感谢kucha007大佬的分享

muai2010

感谢分享..

ooppiio

感谢大佬分享

jkop

快速的查询内部块名称，很方便，感谢分享～

XPG

感谢分享。。

chslwj521

好东西呀，感谢分享