RT：请问有没有一个实现：1.核查；2.清理；3.最后保存的小插件
网友答: 直接用DWGConvert命令批量处理。网友答: (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))网友答: 还想清理无用线型等，可以自己添加。网友答: (defun c:qss ()
;;清理保存
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "_.audit" "Y")
(command "_.PURGE" "a" "*" "N")
(command "qsave")
(princ "\n已完成核查清理保存。")
)网友答: 这样保存很慢吧网友答:
核查就没必要集成了，不然太慢，单独操作即可
网友答:
网友答:
核查合并的话 ，又慢又卡
网友答: 直接用DWGConvert命令批量处理。网友答: (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))网友答: 还想清理无用线型等，可以自己添加。网友答: (defun c:qss ()
;;清理保存
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "_.audit" "Y")
(command "_.PURGE" "a" "*" "N")
(command "qsave")
(princ "\n已完成核查清理保存。")
)网友答: 这样保存很慢吧网友答:
- (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)
- )
核查就没必要集成了，不然太慢，单独操作即可
网友答:
网友答:
核查合并的话 ，又慢又卡