dwg文件清理
[*];;清理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)
[*](setqcost_time (/(-(getvar "millisecs") start_time) 1000.0)
[*])
[*](princ
[*] (strcat
[*] "\n 清理完成！"
[*] "\n总耗时："
[*] (rtos cost_time 2 2)
[*] "秒"
[*] )
[*])
[*](princ)
赞，支持，有些外来图纸问题是真多 可能是系统原因，略加修改，好用
"ACAD_TABLESTYLE"清理后可能文件会报错 forestgxc 发表于 2025-11-30 10:26
"ACAD_TABLESTYLE"清理后可能文件会报错
1 阶段图元核查
阶段 1 已核查 16600 个对象
第 2 阶段图元核查
阶段 2 已核查 3400 个对象AcDbDimStyleTableRecord: "_TCH_ARCH"
Not in Table Added
阶段 2 已核查 16600 个对象
核查块 3278 发表于 2025-12-11 09:58
1 阶段图元核查
阶段 1 已核查 16600 个对象
运行后关闭图形，再打开，可能提示有错误 forestgxc 发表于 2025-12-11 14:22
运行后关闭图形，再打开，可能提示有错误
是的，目前暂时吧table给注释掉了
页:
[1]