2. ;;;;;;;;;;;;;;;;块内所有对象的图层移动到当前层，颜色改为随层（包括嵌套块）
  3. (defun c:vvx (/ blkrefs ss i blkref blkname totalCount result processedBlocks allProcessedBlocks)
  4.   ; 错误处理函数
  5.   (defun *error* (msg)
  6.     (if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*"))
  7.       (princ (strcat "\n错误: " msg))
  8.     )
  9.     (setvar "CMDECHO" 1)  ; 确保命令回显恢复
  10.     (princ)
  11.   )
  12.   
  13.   ; 递归函数：处理块定义及其嵌套块
  14.   (defun ProcessBlockDefinition (blkname processedBlocks / blkdef ent obj subBlkName count)
  15.     (setq count 0)
  16.    
  17.     ; 检查是否已经处理过此块（避免无限递归）
  18.     (if (not (member blkname processedBlocks))
  19.       (progn
  20.         ; 添加到已处理列表
  21.         (setq processedBlocks (cons blkname processedBlocks))
  22.         
  23.         ; 获取块定义
  24.         (if (setq blkdef (tblobjname "BLOCK" blkname))
  25.           (progn
  26.             (setq ent (entnext blkdef))  ; 获取块定义中的第一个图元
  27.             
  28.             ; 遍历块定义中的所有图元
  29.             (while (and ent (not (eq "ENDBLK" (cdr (assoc 0 (entget ent))))))
  30.               (setq obj (entget ent))
  31.               
  32.               ; 检查是否为嵌套块引用
  33.               (if (= "INSERT" (cdr (assoc 0 obj)))
  34.                 (progn
  35.                   ; 获取嵌套块名
  36.                   (setq subBlkName (cdr (assoc 2 obj)))
  37.                   
  38.                   ; 递归处理嵌套块，传递已处理块列表
  39.                   (setq countResult (ProcessBlockDefinition subBlkName processedBlocks))
  40.                   (setq count (+ count (car countResult)))
  41.                   (setq processedBlocks (cadr countResult))
  42.                   
  43.                   ; 修改嵌套块引用本身的图层和颜色
  44.                   (setq obj (subst (cons 8 (getvar "CLAYER")) (assoc 8 obj) obj)) ; 修改图层
  45.                   (setq obj (subst (cons 62 256) (assoc 62 obj) obj)) ; 修改颜色为随层
  46.                   (if (entmod obj)
  47.                     (setq count (1+ count))
  48.                   )
  49.                 )
  50.                 ; 不是块引用，直接修改图层和颜色
  51.                 (progn
  52.                   (setq obj (subst (cons 8 (getvar "CLAYER")) (assoc 8 obj) obj)) ; 修改图层
  53.                   (setq obj (subst (cons 62 256) (assoc 62 obj) obj)) ; 修改颜色为随层
  54.                   (if (entmod obj)
  55.                     (setq count (1+ count))
  56.                   )
  57.                 )
  58.               )
  59.               
  60.               (setq ent (entnext ent))  ; 获取下一个图元
  61.             )
  62.           )
  63.           (princ (strcat "\n警告: 无法找到块定义 "" blkname """))
  64.         )
  65.       )
  66.       ; 如果已经处理过，返回0
  67.       (setq count 0)
  68.     )
  69.    
  70.     (list count processedBlocks)  ; 返回处理的对象数量和更新后的已处理块列表
  71.   )
  72.   
  73.   (setvar "CMDECHO" 0)  ; 关闭命令回显
  74.   
  75.   ; 选择多个块参照
  76.   (princ "\n选择块参照（可多选）: ")
  77.   (if (setq ss (ssget '((0 . "INSERT"))))
  78.     (progn
  79.       (setq totalCount 0)
  80.       (setq allProcessedBlocks '())  ; 所有已处理块列表
  81.       (setq blkrefs '())  ; 存储所有选择的块名
  82.       
  83.       ; 先收集所有选择的块名
  84.       (setq i 0)
  85.       (repeat (sslength ss)
  86.         (setq blkref (ssname ss i))
  87.         (setq blkname (cdr (assoc 2 (entget blkref))))
  88.         (if (not (member blkname blkrefs))
  89.           (setq blkrefs (cons blkname blkrefs))
  90.         )
  91.         (setq i (1+ i))
  92.       )
  93.       
  94.       (princ (strcat "\n已选择 " (itoa (length blkrefs)) " 个不同的块"))
  95.       
  96.       ; 处理每个块
  97.       (foreach blkname blkrefs
  98.         (princ (strcat "\n正在处理块: " blkname))
  99.         
  100.         ; 处理块定义及其所有嵌套块
  101.         (setq result (ProcessBlockDefinition blkname allProcessedBlocks))
  102.         (setq blockCount (car result))
  103.         (setq allProcessedBlocks (cadr result))
  104.         (setq totalCount (+ totalCount blockCount))
  105.         
  106.         (princ (strcat " - 处理了 " (itoa blockCount) " 个对象"))
  107.       )
  108.       
  109.       ; 刷新图形以显示更改
  110.       (command "_.REGEN")
  111.       
  112.       (princ (strcat "\n\n已处理 " (itoa (length blkrefs)) " 个块内的 " (itoa totalCount) " 个对象的图层和颜色"))
  113.       (princ (strcat "\n图层设置为: " (getvar "CLAYER") "，颜色设置为: 随层"))
  114.       (if (> (length allProcessedBlocks) (length blkrefs))
  115.         (princ (strcat "\n处理的块包括: " (vl-princ-to-string allProcessedBlocks)))
  116.       )
  117.     )
  118.     (princ "\n未选择对象或选择无效。")
  119.   )
  120.   
  121.   (setvar "CMDECHO" 1)  ; 恢复命令回显
  122.   (princ)
  123. )




网友答: 在浩辰CAD2019上试了一下，可以用！减少了大量图层。线型、线宽保持不变。
现在的图纸图层多（不信我附张图，你数一下有多少图层）。
要炸开块处理工作量大，这个程序很实用。

网友答:
yjwht 发表于 2025-12-26 14:11
在浩辰CAD2019上试了一下，可以用！减少了大量图层。线型、线宽保持不变。
现在的图纸图层多（不信我附张 ...

layer界面选中图层可以直接合并的。

网友答: 本帖最后由 yjwht 于 2025-12-26 19:22 编辑
kozmosovia 发表于 2025-12-26 14:17
layer界面选中图层可以直接合并的。

AutoCAD可以直接合并，浩辰CAD中没有，如下图。不过浩辰也有转换图层的功能C:\Users\admin\Desktop\Snipaste_2025-12-26_19-13-18.png

网友答: 感谢分享！
  • 上一篇：升级HB批量快速填充不调用系统对话框直接填充带
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025