Purging RegApps

[tedg]

I purge allot including "regapps", this is within a lisp routine I run all the time.

....
(setq ce (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (command "purge" "a" "" "n")
    (command "purge" "regapps" "" "n")
    (command "purge" "a" "" "n")
   (setvar "cmdecho" ce)
.......
(princ)
)

[sschwartz85916]

I purge allot including "regapps", this is within a lisp routine I run all the time.

....
(setq ce (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (command "purge" "a" "" "n")
    (command "purge" "regapps" "" "n")
    (command "purge" "a" "" "n")
   (setvar "cmdecho" ce)
.......
(princ)
)

I have a command on a tool palette. Pretty simple, looks like this:

^C^C-purge;r;*;n;

[tedg]

I have a command on a tool palette. Pretty simple, looks like this:

^C^C-purge;r;*;n;

Sweet.... I've dabbled a bit with tool palettes, but only for dragging blocks and other cadd work into drawings.

Mine is part of a bigger routine that purges, zooms to extents and saves the drawing.

Happy Thanksgiving.