;;Limpia dgn
(DEFUN C:lim () (command "-vbarun" "limpiadgn"))


(DEFUN C:limpiadgn1 ()
;;(setq a (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP"))

  (alert "File cleanup process starting/Dosya Temizleme islemi calisiyor EFE'm")
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
(command "-purge" "all" "*" "n" )
(command "qsave")
  (command "-purge" "all" "*" "n" )
  (command "qsave")
  (command "-purge" "all" "*" "n" )
(defun c:pu (/) (setvar "cmdecho" 0)
  (dictremove (namedobjdict) "acad_dgnlinestylecomp")
  (command "_.purge" "a" "" "n") (setvar "cmdecho" 1) (princ)
)

  (alert "File cleanup process finished/Dosya Temizleme islemi bitti EFE'm")
)