Don't worry...Just by the sound of it, that is an evil command...anyways, I tried what 7 had posted at home last night, and it went through cleanly with out displaing any info at all. This morning when I come into work I used the following, and the purge does not display but the audit does....any ideas...?
(DEFUN c:Pal2 ()
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(VLA-AUDITINFO
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
:VLAX-TRUE
)
(PROMPT "\nPurginging your drawing.")
(VLA-PURGEALL
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
)
(PROMPT "\nRepeating process three times...")
(VLA-AUDITINFO
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
:VLAX-TRUE
)
(VLA-PURGEALL
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
)
(VLA-AUDITINFO
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
:VLAX-TRUE
)
(VLA-PURGEALL
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
)
(VLA-AUDITINFO
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
:VLAX-TRUE
)
(VLA-PURGEALL
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-OBJECT "AutoCAD.Application")
)
)
(setvar "cmdecho" cmd)
(PRINC)
)