如何判断图形是否需要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)
)

账号		自动登录	找回密码
密码			注册