(vl-load-com)
(cond
  ;;;Проверка наличия установленного плагина AVVADrawingPurge
  ;;; https://apps.autodesk.com/ACD/ru/Detail/Index?id=3773138176974634673&appLang=en&os=Win32_64
  ((and
     (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP")
     (findfile
      (vl-princ-to-string
        (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Applications\\Dwg-Purge")"LOADER")
        )
      )
   )
   (defun S::STARTUP nil
    (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "DWG-PURGE\n")
    (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
     )
   )
  ((dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP")
   (alert "Внимание!\nОбнаружены словари DGN!\nЭто приводит к большим задержкам в работе")
   )
  (t nil)
  )
(princ) 