FICHEROS de AUTOCAD QUE PESAN MUCHO. ¿Cómo reducir su tamaño?

Cuantas veces os ha pasado que un fichero en CAD, pesa más de lo que debiera. Aquí os dejo un LISP que es milagroso. Este fichero lo encontré por internet y es una maravilla.

Podéis arrastrar el fichero LISP a vuestro fichero de CAD i cargarlo; a continuación ejecutar  el comando LIMPIADGN1 y voilà.

Os adjunto un enlace que durará unos días;

http://buffalonas.com/jmsorianot/axs/u:30db5200875209960b1e90a0eca6e21d/LISP%20PURGE-1.LSP

Ese fichero que os lleva por el camino de la amargura se reduce a un tamaño lógico.

También lo podéis instalar en vuestro AUTOCAD cargándolo en las aplicaciones.

CÓDIGO:

(DEFUN C:limpiadgn1 ()
;;(setq a (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP"))
  (alert "Se iniciará el proceso de limpieza de archivo.......")
 (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
 (command "-purge" "all" "*" "n" )
 (command "qsave")
  (command "-purge" "all" "*" "n" )
  (command "qsave")
  (command "-purge" "all" "*" "n" )
  (alert "Se culminó el proceso rápido de limpieza de archivos")
)

NOTA: SI queréis ver el código; los ficheros LISP se pueden editar des del Bloc de Notas. SI el enlace no os funciona; copiar el código que os adjunto en un fichero txt creado en un Bloc de Notas y luego cambiar la extensión por LSP. En el código podéis encontrar dos funciones; la primera ("limpiadgn") no la he probado y si no tenéis cargado el VBA de AUTOCAD no os funcionará. La segunda ("limpiadgn1") la he probado y va de maravilla.

Agradezco comentarios, el feedback con vosotros me anima a seguir con el blog. Muchas gracias.