如何判断图形是否需要PURGE？

lyb_dsa · 发表于 2004-5-13 08:08:00

在用vla-purgeall命令时，需要先判断图纸是否需要PURGE，如何判断。
我试过，不论图形是否需要PURGE，vla-purgeall都返回NIL

无痕 · 发表于 2004-5-13 14:52:00

等判断得来，都已经purge完一次了。。。。。

wb0815 · 发表于 2004-5-13 15:07:00

楼上说的对

lyb_dsa · 发表于 2004-5-13 16:59:00

但有些图纸不是PURGE一次就完全清理干净。
或者这样说，先PURGE一次，如何判断是否进行下一次PURGE.

龙龙仔 · 发表于 2004-5-13 17:00:00

(defun c:purgnest (/ test tpurgd purgd total)
   (setq tpurgd 0)
   (setq purgd 2)
   (while (>= purgd 2)
   (progn (setq purgd 0)
   (cond
   (t
   (setvar "cmdecho" 0)
   (command "_.purge" "_all" "*")
   (while (not (zerop (getvar "cmdactive")))
(command "_y")
(setq purgd (1+ purgd))
(setq tpurgd (1+ tpurgd))
   )
   )
   )
   (prompt "\nPurging nested items!")
   (princ "\n")
   (setq tpurgd (1- tpurgd))
   )
   )
   (setq total (cons tpurgd '(items purged)))
   (princ total)
   (princ)
)

如何判断图形是否需要PURGE？

发表回复

精选推荐