如何设置purge不回显

andyhua

ㄘ丶转裑ㄧ灬 发表于 2021-6-21 08:29
清理加保存，如果觉得卡，就把保存那段删掉，即把if整段删了

(vl-load-com)

(defun c:qs (/ gnList doc groups g)
  (princ
    "\n* 此程序搜索不包含任何物体的空组并清除之 *\n"
  )
  (command ".undo" "be")
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq groups (vla-get-groups doc))
  (vlax-for g groups
    (princ "\n分析组:")
    (princ (vla-get-name g))
    (if        (< (vla-get-count g) 2)
      (progn
        (princ (strcat "......删除空组" (vla-get-name g)))
        (vla-delete g)
      )
    )
    (princ)
  )
  (setvar "cmdecho" 0)
  (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")   ;;解决，*警告* 多重从属对象。无法清理问题。
  (command ".purge" "ma" "*" "n"
           ".purge" "mu" "*" "n"
           ".purge" "p" "*" "n"
           ".purge" "sh" "" "n"
           ".purge" "st" "*" "n"
           ".purge" "m" "*" "n"
           ".purge" "t" "*" "n"
           ".purge" "v" "*" "n"
           ".purge" "r" "*" "n"
           ".purge" "z"
           ".purge" "e"
           "-scalelistedit" "d" "*" "e"
           ".qsave")
  (command ".undo" "e")
  (princ "***** 嘻嘻!清理&保存完成! *****")
  (princ)
)

好心人能否帮我把这段代码给改一下？都能用。只是在2014CAD中，只读打开DWG时，不小心QS后，不会有只读文件保护那个提示，较为不便。想改成只读文件中保存时，有个弹出的只读文件保护，代表图形保存不成功。谢谢。