dwg文件清理

3278

• ;;清理dwg文件，目前在使用过程中好像使图纸出现无法复制到剪切板的情况，不太确定
• (defun c:aww
•   (/ doc nod dict_names start_time cost_time acad_ver)
•   (setvar "CMDECHO" 0)
•   (setq start_time (getvar "millisecs"))
•   (vl-catch-all-apply
•     '(lambda
•        (setq acad_ver (atoi (substr (getvar "ACADVER") 2)))
•        (setq
•          doc (vla-get-ActiveDocument (vlax-get-acad-object))
•        )
•        (princ "\n执行图形审计...")
•        (vl-cmdf "_.AUDIT" "Y");
•        (princ "\n清理DGN线型字典...")
•        (setq nod (namedobjdict))
•        (if
•          (dictsearch nod "ACAD_DGNLINESTYLECOMP")
•          (dictremove nod "ACAD_DGNLINESTYLECOMP")
•        )
•        (princ "\n删除冗余系统字典...")
•        (setq
•          dict_names '("ACAD_SCALELIST"
•                        "ACAD_TABLESTYLE"
•                        "ACAD_VISUALSTYLE"
•                        "ACDB_RECOMPOSE_DATA"
•                        "ACAD_MLEADERSTYLE"
•                      )
•        )
•        (mapcar
•          '(lambda
•             (x)
•             (if (dictsearch nod x) (dictremove nod x))
•           )
•          dict_names
•        )
•        (princ "\n深度清理冗余对象...")
•        (vla-PurgeAll doc)
•        (vl-cmdf "_.PURGE" "_ALL" "" "_NO")
•        (princ "\n重置缩放比例列表...")
•        (vl-cmdf "-SCALELISTEDIT" "RESET" "Y" "DELETE" "*" "EXIT" ))  
•   )
•   (setvar "CMDECHO" 1)
•   (setq  cost_time (/(-(getvar "millisecs") start_time) 1000.0)
•   )
•   (princ
•     (strcat
•       "\n 清理完成！"
•       "\n总耗时："
•       (rtos cost_time 2 2)
•       "秒"
•     )
•   )
•   (princ)
  

tranque

赞，支持，有些外来图纸问题是真多

forestgxc

可能是系统原因，略加修改，好用

forestgxc

"ACAD_TABLESTYLE"清理后可能文件会报错

3278

forestgxc 发表于 2025-11-30 10:26
"ACAD_TABLESTYLE"清理后可能文件会报错

1 阶段图元核查

阶段 1 已核查 16600   个对象
第 2 阶段图元核查

阶段 2 已核查 3400    个对象AcDbDimStyleTableRecord: "_TCH_ARCH"
                                  Not in Table          Added
阶段 2 已核查 16600   个对象
核查块

forestgxc

3278 发表于 2025-12-11 09:58
1 阶段图元核查

阶段 1 已核查 16600   个对象

运行后关闭图形，再打开，可能提示有错误

3278

forestgxc 发表于 2025-12-11 14:22
运行后关闭图形，再打开，可能提示有错误

是的，目前暂时吧table给注释掉了