[olga87]

Здравствуйте Уважаемые программисты!

Код ниже при запуске Автокада 2020 (с помощью acad.lsp) выгружает файл частичной адаптации test.cuix (UnloadTestmenu "test").
Но есть проблема: если после запуска Автокада обнаруживается, что этот файл частичной адаптации в состоянии "Не обработана", например, был сбой и отсутствовал доступ к файлу acad.lsp, то при возвращении доступа к acad.lsp и перезапуске Автокада файл частичной адаптации test с первого раза не выгружается. Выгружается он при втором запуске Автокада.
Подскажите пожалуйста как исправить код ниже, чтобы test в адаптации выгружался при любом (первом) запуске Автокада.
Поправка: замечено что файл адаптации test не выгружается с 1-го раза, если файл test.cuix расположен (присутствует) в путях доступа Автокада (другими словами с 1-ым запуском Автокад файл адаптации обрабатывает, а со 2-го выгружает). Если же при запуске Автокада файл test.cuix не найден Автокадом, то выгрузка работает с 1-го раза.
Заранее спасибо!

Код:

[Выделить все]

(defun UnloadTestmenu (mgroup / obj)
  (if
    (not
      (vl-catch-all-error-p
        (setq obj
          (vl-catch-all-apply
            'vla-item
            (list
              (vlax-get-property
                (vlax-get-acad-object)
                'Menugroups
              )
              mgroup
            )
          )
        )
      )
    )
    (progn
      (vlax-invoke obj 'Unload)
      'T
    )
  )
)