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

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

在用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)<BR>       (setq tpurgd 0)<BR>       (setq purgd 2)<BR>       (while (&gt;= purgd 2)<BR>                       (progn (setq purgd 0)<BR>                       (cond<BR>                                       (t<BR>                                               (setvar "cmdecho" 0)<BR>                                               (command "_.purge" "_all" "*")<BR>                                               (while (not (zerop (getvar "cmdactive")))<BR>                (command "_y")<BR>                (setq purgd (1+ purgd))<BR>                (setq tpurgd (1+ tpurgd))<BR>                                               )<BR>                                       )<BR>                       )<BR>                       (prompt "\nPurging nested items!")<BR>                       (princ "\n")<BR>                       (setq tpurgd (1- tpurgd))<BR>                       )<BR>       )<BR>       (setq total (cons tpurgd '(items purged)))<BR>       (princ total)<BR>       (princ)<BR>)
页: [1]
查看完整版本: 如何判断图形是否需要PURGE？