2. ;;; 将图块及其内部所有实体改为0层
  3. (defun c:sbb (/ selectionSet count blockEntity blockName blockDef blockEntities entity)
  4.   (if (setq selectionSet (ssget '((0 . "INSERT"))))
  5.     (progn
  6.       (setq count 0)
  7.       (repeat (sslength selectionSet)
  8.         (setq blockEntity (ssname selectionSet count))
  9.         (setq blockName (cdr (assoc 2 (entget blockEntity))))
  10.         (setq blockDef (tblobjname "block" blockName))
  11.         
  12.         ;; 获取并处理图块定义中的实体
  13.         (if blockDef
  14.           (progn
  15.             (setq blockEntities (ayGetAllEntInBLK blockName))
  16.             
  17.             ;; 修改图块内部所有实体的图层和颜色
  18.             (foreach entity blockEntities
  19.               (changeEntityLayerAndColor entity)
  20.             )
  21.           )
  22.         )
  23.         
  24.         ;; 修改图块插入点本身的图层
  25.         (changeEntityLayerAndColor blockEntity)
  26.         
  27.         (setq count (1+ count))
  28.       )
  29.       (command "regen")
  30.       (princ (strcat "\n已处理 " (itoa count) " 个图块"))
  31.     )
  32.     (princ "\n未选择到图块")
  33.   )
  34.   (princ)
  35. )

  37. ;;; 修改实体的图层和颜色
  38. (defun changeEntityLayerAndColor (entityName / entityData)
  39.   (if (entget entityName)
  40.     (progn
  41.       (setq entityData (entget entityName))
  42.       
  43.       ;; 修改图层为"0"
  44.       (setq entityData (subst (cons 8 "0") (assoc 8 entityData) entityData))
  45.       
  46.       ;; 如果存在颜色，改为随层(256表示ByLayer)
  47.       (if (assoc 62 entityData)
  48.         (setq entityData (subst (cons 62 256) (assoc 62 entityData) entityData))
  49.       )
  50.       
  51.       (entmod entityData)
  52.       (entupd entityName)  ;; 更新显示
  53.     )
  54.   )
  55. )

  57. ;;;***********************************************************
  58. ;;; 获取图块内的所有非图块对象(含嵌套块中的)实体名称
  59. ;;;***********************************************************
  60. (defun ayGetAllEntInBLK (blkName / blkDef entityList entity entityType nestedName nestedDef)
  61.   (setq blkDef (tblobjname "block" blkName))
  62.   (setq entityList nil)
  63.   
  64.   (if blkDef
  65.     (progn
  66.       (setq entity (entnext blkDef))
  67.       
  68.       (while entity
  69.         (setq entityType (cdr (assoc 0 (entget entity))))
  70.         
  71.         (cond
  72.           ((= entityType "INSERT")
  73.            ;; 处理嵌套块
  74.            (setq nestedName (cdr (assoc 2 (entget entity))))
  75.            (if (not (member nestedName '("*MODEL_SPACE" "*PAPER_SPACE" "*PAPER_SPACE0")))
  76.              (progn
  77.                ;; 将嵌套块本身加入列表
  78.                (setq entityList (cons entity entityList))
  79.                ;; 递归获取嵌套块内部实体
  80.                (setq entityList (append (ayGetAllEntInBLK nestedName) entityList))
  81.              )
  82.            )
  83.           )
  84.          
  85.           ((/= entityType "ENDBLK")
  86.            ;; 添加非块结束标记的实体
  87.            (setq entityList (cons entity entityList))
  88.           )
  89.         )
  90.         
  91.         (setq entity (entnext entity))
  92.       )
  93.     )
  94.   )
  95.   
  96.   entityList
  97. )




网友答: 感谢分享！！！

网友答: 本帖最后由 wudechao 于 2025-12-26 13:02 编辑

单一功能的图元，改为图块内为0层还算可以，布局里面视口控制哪个图层显示很好用，假如图块是多种不同功能图元，改为0层，副作用很大，很难管理。比如在建筑提资给其它专业的图，建筑大佬做很多任意的图块，图块中的东西很任意，比如柱子图层，剪力墙图层，墙图层，窗户图层等等都放在一个图块里。这种乱七八糟的图块，很伤脑筋。炸开也不是，不炸做0图层图块也不是。比如一个超大地下室平面，每个塔楼就是一个图块，这种按塔楼的图块里面是不能改为0图层的了，但是这图块外面所在的图层改为什么图层才好用？这个种乱七八糟的图块，图层如何管理是个难点。单一功能的图层的图块，比如集水井，窗户，门，这种图块改为0图层，非常好，在布局很好控制显示和关闭。

网友答: 学习学习学习

网友答:
wudechao 发表于 2025-12-26 12:51
单一功能的图元，改为图块内为0层还算可以，布局里面视口控制哪个图层显示很好用，假如图块是多种不同功能 ...

CAD还有其他专业呢，这个功能室内专业经常用，对室内二次开发的插件都有这个功能: 海龙、快图、源泉、imini
  • 上一篇：修改图块基点（已解决）
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025