想请老大们做一个一键清除所有隐藏图层内容和所有约束的快捷键

277283904

就是隐藏图层和约束连在一起清除的快捷方式，谢谢！

277283904

rouka23 发表于 2025-11-14 17:13
不怎么用约束管理器，不是很理解

这里有用户变量的测试文件，能帮我再加上去吗？

rouka23

277283904 发表于 2025-11-14 15:29
......................谢谢！

2. (defun c:CleanAll (/ lay laylist ent entlist ss doc)
   
3.   (vl-load-com)
   
4.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
5.   
   
6.   ; 开始事务处理
   
7.   (vla-startundomark doc)
   
8.   
   
9.   ; 方法1：尝试使用DELCONSTRAINT命令删除所有约束
   
10.   (command "._DELCONSTRAINT" "_All" "")
    
11.   
    
12.   ; 方法2：通过选择集删除可能残留的约束对象
    
13.   (setq ss (ssget "_X" '((0 . "GEOMCONSTRAINT,DIMCONSTRAINT,ACAD_TABLE,*DIMCONSTRAINT"))))
    
14.   (if ss
    
15.     (command "._ERASE" ss "")
    
16.   )
    
17.   
    
18.   ; 方法3：清除关联标注的约束
    
19.   (setq ss (ssget "_X" '((0 . "DIMENSION"))))
    
20.   (if ss
    
21.     (progn
    
22.       (command "._DIMDISASSOCIATE" ss "")
    
23.       ; 删除可能成为独立对象的约束
    
24.       (setq ss (ssget "_X" '((0 . "GEOMCONSTRAINT,DIMCONSTRAINT"))))
    
25.       (if ss
    
26.         (command "._ERASE" ss "")
    
27.       )
    
28.     )
    
29.   )
    
30.   
    
31.   ; 获取所有隐藏（关闭或冻结）的图层
    
32.   (setq laylist '())
    
33.   (vlax-for lay (vla-get-layers doc)
    
34.     (if (or (= (vla-get-layeron lay) :vlax-false)
    
35.             (= (vla-get-freeze lay) :vlax-true))
    
36.       (setq laylist (cons (vla-get-name lay) laylist))
    
37.     )
    
38.   )
    
39.   
    
40.   ; 在每个隐藏图层中选择并删除所有对象
    
41.   (foreach layname laylist
    
42.     (setq ss (ssget "_X" (list (cons 8 layname))))
    
43.     (if ss
    
44.       (progn
    
45.         (command "._ERASE" ss "")
    
46.         (princ (strcat "\n已删除图层 "" layname "" 中的 " (itoa (sslength ss)) " 个对象"))
    
47.       )
    
48.     )
    
49.   )
    
50.   
    
51.   ; 清理未使用的图层、标注样式等
    
52.   (command "._-PURGE" "_A" "*" "_N")
    
53.   
    
54.   ; 结束事务处理
    
55.   (vla-endundomark doc)
    
56.   
    
57.   (princ "\n操作完成！所有隐藏图层内容和约束已清除。")
    
58.   (princ)
    
59. )
    
60. 
    
61. ; 安全版本，带有确认提示
    
62. (defun c:CleanAllSafe (/ resp)
    
63.   (initget "Yes No")
    
64.   (setq resp (getkword "\n警告：此操作将永久删除所有隐藏图层内容和约束，且不可撤销！确定继续？[Yes/No] <No>: "))
    
65.   (if (= resp "Yes")
    
66.     (c:CleanAll)
    
67.     (princ "\n操作已取消。")
    
68.   )
    
69.   (princ)
    
70. )
    
71. 
    
72. ; 加载提示
    
73. (princ "\n清理程序已加载，命令: CleanAll 或 CleanAllSafe(带确认)")
    
74. (princ)

(defun c:CleanAll (/ lay laylist ent entlist ss doc)<br />   (vl-load-com)<br />   (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   <br />   ; 开始事务处理<br />   (vla-startundomark doc)<br />   <br />   ; 方法1：尝试使用DELCONSTRAINT命令删除所有约束<br />   (command "._DELCONSTRAINT" "_All" "")<br />   <br />   ; 方法2：通过选择集删除可能残留的约束对象<br />   (setq ss (ssget "_X" '((0 . "GEOMCONSTRAINT,DIMCONSTRAINT,ACAD_TABLE,*DIMCONSTRAINT"))))<br />   (if ss<br />     (command "._ERASE" ss "")<br />   )<br />   <br />   ; 方法3：清除关联标注的约束<br />   (setq ss (ssget "_X" '((0 . "DIMENSION"))))<br />   (if ss<br />     (progn<br />       (command "._DIMDISASSOCIATE" ss "")<br />       ; 删除可能成为独立对象的约束<br />       (setq ss (ssget "_X" '((0 . "GEOMCONSTRAINT,DIMCONSTRAINT"))))<br />       (if ss<br />         (command "._ERASE" ss "")<br />       )<br />     )<br />   )<br />   <br />   ; 获取所有隐藏（关闭或冻结）的图层<br />   (setq laylist '())<br />   (vlax-for lay (vla-get-layers doc)<br />     (if (or (= (vla-get-layeron lay) :vlax-false)<br />             (= (vla-get-freeze lay) :vlax-true))<br />       (setq laylist (cons (vla-get-name lay) laylist))<br />     )<br />   )<br />   <br />   ; 在每个隐藏图层中选择并删除所有对象<br />   (foreach layname laylist<br />     (setq ss (ssget "_X" (list (cons 8 layname))))<br />     (if ss<br />       (progn<br />         (command "._ERASE" ss "")<br />         (princ (strcat "\n已删除图层 "" layname "" 中的 " (itoa (sslength ss)) " 个对象"))<br />       )<br />     )<br />   )<br />   <br />   ; 清理未使用的图层、标注样式等<br />   (command "._-PURGE" "_A" "*" "_N")<br />   <br />   ; 结束事务处理<br />   (vla-endundomark doc)<br />   <br />   (princ "\n操作完成！所有隐藏图层内容和约束已清除。")<br />   (princ)<br /> )<br /> <br /> ; 安全版本，带有确认提示<br /> (defun c:CleanAllSafe (/ resp)<br />   (initget "Yes No")<br />   (setq resp (getkword "\n警告：此操作将永久删除所有隐藏图层内容和约束，且不可撤销！确定继续？[Yes/No] <No>: "))<br />   (if (= resp "Yes")<br />     (c:CleanAll)<br />     (princ "\n操作已取消。")<br />   )<br />   (princ)<br /> )<br /> <br /> ; 加载提示<br /> (princ "\n清理程序已加载，命令: CleanAll 或 CleanAllSafe(带确认)")<br /> (princ)

277283904

rouka23 发表于 2025-11-14 14:16
AI可以搞定

试过了DS，3个代码都不起作用，例如如下：
lisp

(defun c:CDHL ()
  ; 保存当前系统变量
  (setq oldCmdEcho (getvar "CMDECHO"))
  (setvar "CMDECHO" 0) ; 关闭命令回显
  
  ; 1. 首先显示所有图层
  (command "LAYON")
  (command "REGEN") ; 重生成以确保所有对象可见
  
  ; 2. 删除所有约束
  (command "DELCON" "all" "")
  
  ; 3. 删除隐藏图层（关闭或冻结的图层）
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq layers (vla-get-Layers doc))
  (setq deletedCount 0)
  
  (vlax-for layer layers
    (setq layerName (vla-get-Name layer))
   
    ; 跳过不能删除的图层（当前图层、0层、Defpoints）
    (if (and
          (not (eq layerName (getvar "CLAYER"))) ; 不是当前图层
          (not (eq layerName "0")) ; 不是0层
          (not (wcmatch layerName "*|*")) ; 不是外部参照图层
          (or
            (not (vla-get-LayerOn layer)) ; 图层关闭
            (vla-get-Freeze layer) ; 图层冻结
          )
        )
      (progn
        ; 尝试删除图层
        (if (vl-catch-all-error-p
              (vl-catch-all-apply 'vla-Delete (list layer)))
          (princ (strcat "\n无法删除图层: " layerName))
          (setq deletedCount (1+ deletedCount))
        )
      )
    )
  )
  
  ; 恢复系统变量
  (setvar "CMDECHO" oldCmdEcho)
  
  ; 显示结果
  (princ (strcat "\n已删除 " (itoa deletedCount) " 个隐藏图层和所有约束。"))
  (princ)
)

rouka23

AI可以搞定

G〆h

;几何约束               
(setvar "CONSTRAINTINFER" 0) ;关闭推断几何约束
(vl-cmdf "DELCONSTRAINT" "all" "")  ;删除所有约束

rouka23

277283904 发表于 2025-11-14 14:46
试过了DS，3个代码都不起作用，例如如下：
lisp

麻烦上个测试文件

277283904

rouka23 发表于 2025-11-14 15:14
麻烦上个测试文件

......................谢谢！

277283904

G〆h 发表于 2025-11-14 14:45
;几何约束               
(setvar "CONSTRAINTINFER" 0) ;关闭推断几何约束
(vl-cmdf "DELCONSTRAINT" "all" "")  ;删 ...

怎么使用

277283904

rouka23 发表于 2025-11-14 16:02

谢谢！，可以了

277283904

rouka23 发表于 2025-11-14 16:02

可以增加用户变量一起删除吗？谢谢！