kucha007 发表于 2025-4-22 22:03:33

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

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

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

magicheno 发表于 2025-4-22 22:58:50

感谢大佬分享

czb203 发表于 7 天前

感谢苦茶大佬的分享

白山茶 发表于 7 天前


感谢苦茶大佬的分享

lxl217114 发表于 7 天前

感谢kucha007大佬的分享

muai2010 发表于 7 天前

感谢分享..

ooppiio 发表于 7 天前

感谢大佬分享

jkop 发表于 7 天前

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

XPG 发表于 6 天前

感谢分享。。

chslwj521 发表于 6 天前

好东西呀，感谢分享:lol
页: [1] 2
查看完整版本: 【K:GetAllBlkNam】收集所有内部块的名称