87282374 发表于 2025-11-11 15:23:23

核查、清理、保存“一条龙”？

RT：请问有没有一个实现：1.核查；2.清理；3.最后保存的小插件:lol

kozmosovia 发表于 2025-11-11 15:39:02

直接用DWGConvert命令批量处理。

qazxswk 发表于 2025-11-11 15:49:22

(defun c:11()
(vl-cmdf"-purge" "A" "" "N") ;;清理垃圾
(while (> (getvar "CMDACTIVE") 0)(vl-cmdf pause))
(vl-cmdf "-SCALELISTEDIT" "RESET" "Y" "DELETE" "*" "E")
(vl-cmdf "AUDIT" "Y") ;;核查错误
(while (> (getvar "CMDACTIVE") 0)(vl-cmdf pause))
(vl-cmdf "qsave") ;;保存
(princ))

qazxswk 发表于 2025-11-11 15:51:02

还想清理无用线型等，可以自己添加。

87282374 发表于 2025-11-11 17:08:44

(defun c:qss ()
;;清理保存
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "_.audit" "Y")
(command "_.PURGE" "a" "*" "N")
(command "qsave")
(princ "\n已完成核查清理保存。")
)

429014673 发表于 2025-11-11 17:55:34

这样保存很慢吧

ㄘ丶转裑ㄧ灬 发表于 2025-11-11 20:07:16

(defun c:HT_902 ()
(vla-purgeall(vla-get-ActiveDocument(vlax-get-acad-object)))
(setenv "DefaultFormatForSave" "64");;;设置CAD默认保存文件格式为2018版
(princ "\n图形将以 AutoCAD 2018 格式保存！")
(princ "\n************************已清理完毕！\n************************已清理完毕！正在保存中，耗时依图纸大小和保存版本而定，请耐心等待！")
(vla-purgeall(vla-get-ActiveDocument(vlax-get-acad-object)))
(if (= (getvar "WRITESTAT") 0)
(alert "图形文件被写保护")
(progn (command "_qsave") (princ "\n****************************已保存！若保存后卡住，建议设置为2018版格式！"))
)
(princ)
)


核查就没必要集成了，不然太慢，单独操作即可

87282374 发表于 2025-11-12 17:11:25

Wayne181008 发表于 2025-11-12 18:10:27

核查合并的话 ，又慢又卡
页: [1]
查看完整版本: 核查、清理、保存“一条龙”？