Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Purge vs. vla-purgeall

51 views
Skip to first unread message

Marc'Antonio Alessi

unread,
Sep 3, 2002, 5:38:59 AM9/3/02
to
I have found that using (vla-purgeall) or "verify YES" on purge
command line I need a second pass to purge the same objects then
using "verify NO" on purge command line.
This is very important on big drawings.

This now my purgeall:

(command "_.PURGE" "_ALL" "*" "_NO") ; <<<< NO
(while
(>
(progn
(setq count 0)
(command "._PURGE" "_All" "*" "_YES") ; <<<< YES
(while (= (getvar "CMDACTIVE") 1)
(command "_YES")
(setq count (1+ count))
)
count
)
0
)
)

Any comment?

(Sorry for Italians prompts and my bad English)

Marco


I pass. --------------------- With verify YES ------------------------------
Comando: _-purge

Digitare tipo di oggetti inutilizzati da eliminare
[Blocchi/Dimstili/Layer/TIpilinea/STilistampa/Forme/stiliTEsto/stiliML/TUtto
]:
_a
Digitare nome/i da eliminare. <*>:*
Verificare ogni nome da eliminare? [Sì/No] <S>: _Y <<<<<<<<< verify YES
Elimina blocco "_None"? <N> _Y
Elimina blocco "_OBLIQUE"? <N> _Y
Nessuna presenza di layer senza riferimento.
Nessuna presenza di tipi di linea senza riferimento.
Nessuna presenza di stili del testo senza riferimento.
Nessuna presenza di file di forma senza riferimento.
Elimina stile di quota "$F1S1$_LDR_DOT-DOT$0"? <N> _Y
Elimina stile di quota "$F1S1$_LDR_DOT-DOT$3"? <N> _Y
Nessuna presenza di stiliML senza riferimento.
Nessuna presenza di stili di stampa senza riferimento.


II pass. --------------------- With verify
YES ------------------------------

Comando: _-purge
Digitare tipo di oggetti inutilizzati da eliminare
[Blocchi/Dimstili/Layer/TIpilinea/STilistampa/Forme/stiliTEsto/stiliML/TUtto
]:
_a
Digitare nome/i da eliminare. <*>: *
Verificare ogni nome da eliminare? [Sì/No] <S>: _Y <<<<<<<<< verify YES
Elimina blocco "_DOT"? <N> _Y
Nessuna presenza di layer senza riferimento.
Nessuna presenza di tipi di linea senza riferimento.
Nessuna presenza di stili del testo senza riferimento.
Nessuna presenza di file di forma senza riferimento.
Elimina stile di quota "$F1S1$_LDR_DOT-DOT"? <N> _Y
Nessuna presenza di stiliML senza riferimento.
Nessuna presenza di stili di stampa senza riferimento.

___________________________________________________________________________


I pass. --------------------- With verify NO ------------------------------

Comando: _-purge

Digitare tipo di oggetti inutilizzati da eliminare
[Blocchi/Dimstili/Layer/TIpilinea/STilistampa/Forme/stiliTEsto/stiliML/TUtto
]:
_a
Digitare nome/i da eliminare. <*>:
Verificare ogni nome da eliminare? [Sì/No] <S>: _N <<<<<<<<< verify NO
Eliminazione di blocco "_DOT" in corso.
Eliminazione di blocco "_None" in corso.
Eliminazione di blocco "_OBLIQUE" in corso.
3 blocchi eliminati.
Nessuna presenza di layer senza riferimento.
Nessuna presenza di tipi di linea senza riferimento.
Nessuna presenza di stili del testo senza riferimento.
Nessuna presenza di file di forma senza riferimento.
Eliminazione di stile di quota "$F1S1$_LDR_DOT-DOT" in corso.
Eliminazione di stile di quota "$F1S1$_LDR_DOT-DOT$0" in corso.
Eliminazione di stile di quota "$F1S1$_LDR_DOT-DOT$3" in corso.
3 stili di quota eliminati.
Nessuna presenza di stiliML senza riferimento.
Nessuna presenza di stili di stampa senza riferimento.

II pass. --------------------- With verify NO ------------------------------
NOTHING TO DELETE
Comando: _-purge

Digitare tipo di oggetti inutilizzati da eliminare
[Blocchi/Dimstili/Layer/TIpilinea/STilistampa/Forme/stiliTEsto/stiliML/TUtto
]:
_a
Digitare nome/i da eliminare. <*>: *
Verificare ogni nome da eliminare? [Sì/No] <S>: _N <<<<<<<<< verify NO
Nessuna presenza di blocchi senza riferimento.
Nessuna presenza di layer senza riferimento.
Nessuna presenza di tipi di linea senza riferimento.
Nessuna presenza di stili del testo senza riferimento.
Nessuna presenza di file di forma senza riferimento.
Nessuna presenza di stili di quota senza riferimento.
Nessuna presenza di stiliML senza riferimento.
Nessuna presenza di stili di stampa senza riferimento.


Marc'Antonio Alessi

unread,
Sep 3, 2002, 5:52:42 AM9/3/02
to
This is better:

(command "_.PURGE" "_ALL" "*" "_N")
(while
(progn


(command "._PURGE" "_All" "*" "_YES")

(while (= (getvar "CMDACTIVE") 1) (command "_YES") T)
)
)

John Uhden

unread,
Sep 3, 2002, 7:17:11 AM9/3/02
to
Marco:
Why stop at 2 times?

(defun PurgeAll ( / Purging)
(setq Purging T)
(while Purging
(setq Purging nil)


(command "._PURGE" "_All" "*" "_YES")
(while (= (getvar "CMDACTIVE") 1)

(setq Purging (not (command "_YES")))
)
)
)

--
John Uhden, Cadlantic/formerly CADvantage
http://www.cadlantic.com
Sea Girt, NJ

"Marc'Antonio Alessi" <nospam....@tin.it> wrote in message
news:ED8F53D461D1020B...@in.WebX.maYIadrTaRb...

Alex Repetto

unread,
Sep 3, 2002, 7:07:54 AM9/3/02
to
Marc'Antonio,

This is even more better! And silent...
(vla-purgeall (vla-get-activeDocument (vlax-get-acad-object)))

Alex

Marc'Antonio Alessi

unread,
Sep 3, 2002, 11:46:59 AM9/3/02
to
Read my previous post:

I have found that using
(vla-purgeall)
>>> or "verify YES" on purgecommand line

>>> I need a SECOND pass to purge the same objects then


using "verify NO" on purge command line.
This is very important on big drawings.

Marco

"John Uhden" <juh...@cadlantic.com> ha scritto nel messaggio
news:B99D16CE43215D99...@in.WebX.maYIadrTaRb...

Marc'Antonio Alessi

unread,
Sep 3, 2002, 11:46:12 AM9/3/02
to
Read my previous post:

I have found that using
>>> (vla-purgeall)

or "verify YES" on purgecommand line


>>> I need a second pass to purge the same objects then
using "verify NO" on purge command line.
This is very important on big drawings.

Marco

"Alex Repetto" <arep...@huisman-itrec.com> ha scritto nel messaggio
news:25CCCCE0DCF7E3BD...@in.WebX.maYIadrTaRb...

Marc'Antonio Alessi

unread,
Sep 3, 2002, 11:58:43 AM9/3/02
to
I think also that living to AutoCAD the answer "YES"
on every object in the first pass is faster.

True?

(defun ALE_PURGE_ALL ()
(command "_.PURGE" "_ALL" "*" "_N"); first pass
(while
(progn


(command "._PURGE" "_All" "*" "_YES")

(while (= (getvar "CMDACTIVE") 1) (command "_YES") T)
)
)
)


Kevin Nehls

unread,
Sep 3, 2002, 12:44:46 PM9/3/02
to
That's fine and dandy if you are using AutoCAD 2002, as it doesn't appear to
wipeout paperspace anymore. But in older versions (2000 and 2000i), that
will remove all of your layouts except the active one and model....

Thanks Frank O. for the refresher ;)

--
Kevin Nehls


"Alex Repetto" <arep...@huisman-itrec.com> wrote in message
news:25CCCCE0DCF7E3BD...@in.WebX.maYIadrTaRb...

Marc'Antonio Alessi

unread,
Sep 3, 2002, 12:59:23 PM9/3/02
to
Finally I have discovered that in A2k2 with:

(command "_.PURGE" "_ALL" "*" "_N")

I do not need further pass to purge everything.

My tests on same drawing:

(command "_.PURGE" "_ALL" "*" "_N")
> 3 seconds - 1 pass

(while
(progn
(command "._PURGE" "_All" "*" "_YES")
(while (= (getvar "CMDACTIVE") 1) (command "_YES") T)
)
)
> 22 seconds - 6 pass

Marco

________________________________________________

NT 4.0 Sp.6a - AutoCAD 2002 - Ita - Sp.1
_VERNUM = K.0.44
ACADVER = 15.06s (LMS Tech)
(ver) = Visual LISP 2000 (it)
________________________________________________


Alex Repetto

unread,
Sep 3, 2002, 1:41:31 PM9/3/02
to
Kevin,

(vla-purgeall ...) does'n purge my (unused) layouts (2000i)

Alex

Kevin Nehls

unread,
Sep 3, 2002, 2:06:35 PM9/3/02
to
Ah, maybe it's something they fixed in the last SP for 2000i. Have you
tried putting geometery on several of the layouts and then using
vla-purgeall? I do know that this use to be a problem, so it's just
something to watch out for.

--
Kevin Nehls


"Alex Repetto" <arep...@huisman-itrec.com> wrote in message

news:f10a...@WebX.maYIadrTaRb...

Jimmy B

unread,
Sep 3, 2002, 7:07:59 PM9/3/02
to
Command line version of PURGE does not have option to purge nested items
http://support.autodesk.com/getDoc.asp?id=TS73766

--
Best Regards, Jimmy B
CAD/Database Manager at www.pharmadule-emtunga.com
Take a look at the trial version of SmartPurger or download some freeware at
www.jtbworld.com


Marc'Antonio Alessi

unread,
Sep 3, 2002, 11:56:56 PM9/3/02
to
http://support.autodesk.com/getDoc.asp?id=TS73766

Command line version of PURGE does not have option to purge nested items
Exit any sessions of AutodeskŽ software that are running.
Start the Registry Editor and locate the following subkey:

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-12:409\Profiles\<Prof
ile Name>\Dialogs\PurgeDialog

Note: Each AutoCADŽ software profile has a separate setting for this option,
so this value should be changed for each AutoCAD profile you use.


Select the Nested entry, right-click and click Modify on the shortcut menu.
In the Edit DWORD Value dialog box, enter the appropriate value data: Enter
1 to enable purging of nested items, or enter 0 to disable this option.
Click OK.
Exit the Registry Editor.
Restart the Autodesk product

________________________________________________________________


my key:
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-xxxxx\Profiles\<Profi
le Name>\Dialogs\PurgeDialog
was already activated (= 1)

The above document TS73766 is ambiguous for me because Command
line version of PURGE still does not have OPTION to purge nested items!
Maybe the correct title was:
Command line version of PURGE does not purge nested items.


but, as I repeat,

(command "_.PURGE" "_ALL" "*" "_N")

purge nested entities as the dialog command,
so we do not need as in <2002 many purge.


(vla-purgeall ...)
or
(command "._PURGE" "_All" "*" "_YES" ...)
do not purge nested entities anyway.

Am I correct?

Marco


"Jimmy B" <jtbw...@hotmail.com> ha scritto nel messaggio
news:BB66462A3EC2FC7C...@in.WebX.maYIadrTaRb...

Alex Repetto

unread,
Sep 4, 2002, 1:41:29 AM9/4/02
to
Kevin,

>> Have you tried putting geometery on several of the
>> layouts and then using vla-purgeall?

No problem with or without geometry
No problem with existing or newly made layouts.

ACADVER = "15.05s (LMS Tech)"
_VERNUM = "U.1.20"

Alex

0 new messages