전체퍼지-3번반복

(defun c:AllPurge ;; PU	; 파일의 모든객체 Purge 리습
	( / AcDoc)
	(vl-load-com)
	(setvar "cmdecho" 0)
	(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-Object)))
	(repeat 3 (vla-purgeall AcDoc))
	(princ "/n>>Purge all complete")
	(princ)
)