• Spirit
  • Восстановленный участник
  • На форуме с 29 ноября 2006г.
  • Сообщений: 30
  • Спасибо: 0

Тема: Конфронтация ObjectDCL и AutoCAD 2005

Кто-нибудь встречался с такой проблемой:
В ObjectDCL создана Dockable Form.
Если при открытой этой форме выйти из Акада - выдается ошибка и просьба отправить отчет такой-то матери.
Если форма была открыта, но затем выгружена, тогда проблем нет.
Если форма не Dockable, тоже не возникает никаких проблем.
В 2006 Акаде также не возникает никаких ошибок.
Причем это не только на моем компе а на всем предприятии.
Можно ли как то при закрытии Акада, сделать так, чтобы форма выгружалась из памяти.
Сама выгрузка из памяти - не проблема, а вот как сделать, чтобы это было при закрытии.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Конфронтация ObjectDCL и AutoCAD 2005

Попробуй прописать реактор на команду quit / close

  • Spirit
  • Восстановленный участник
  • На форуме с 29 ноября 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Конфронтация ObjectDCL и AutoCAD 2005

Если не затруднит, можно поподробнее...
У меня пока с реакторами туговато..

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Конфронтация ObjectDCL и AutoCAD 2005

Ну нечто наподобие:

(if *vlr-cmd*
  (progn
    (setq *vlr-cmd* nil)
    (vlr-remove-all :vlr-command-reactor)
    ) ;_ end of progn
  ) ;_ end of if
(if (not *vlr-cmd*)
  (setq *vlr-cmd* (vlr-command-reactor
                    nil
                    '((:vlr-commandwillstart . cmd-start))
                    ) ;_ end of vlr-command-reactor
        ) ;_ end of setq
  ) ;_ end of if
(defun cmd-start (react
                  cmd
                  /
                  cmd_name
                  )
  (setq cmd_name (strcase (car cmd) t))
  (cond
    ((member cmd_name '("qsave" "save" "saveas" "exit" "quit" "close"))
     (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true)
          ; Проверка активного документа на предмет ошибок
     ;; И здесь уже сама выгрузка диалога:
     )
    ) ;_ end of cond
  ) ;_ end of defun

  • Spirit
  • Восстановленный участник
  • На форуме с 29 ноября 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Конфронтация ObjectDCL и AutoCAD 2005

Работает, но только на сохранение, а вот на выход как раз не хотит

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Конфронтация ObjectDCL и AutoCAD 2005

А у тебя там какой код? Может, какие-то ограничения не соблюдаются?
P.S. Насчет реакторов вообще посмотри на http://dwg.ru/dnl/148 и http://dwg.ru/search.php?zone=1&mod … A%F2%EE%F0

  • Spirit
  • Восстановленный участник
  • На форуме с 29 ноября 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Конфронтация ObjectDCL и AutoCAD 2005

На "quit" упорно не желает работать (
А вот с "save" и "close" без проблем.
В чем может быть причина?

  • Spirit
  • Восстановленный участник
  • На форуме с 29 ноября 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Конфронтация ObjectDCL и AutoCAD 2005

Вернее на "quit" в командной строке работает.
А ругается при выходе закрытием окна

  • BOZ
  • Восстановленный участник
  • На форуме с 10 октября 2005г.
  • Сообщений: 73
  • Спасибо: 0

Re: Конфронтация ObjectDCL и AutoCAD 2005

Была такая проблемма.
Я использовал реактор на закрытие документа.

(vlr-docmanager-reactor 1
   '((:vlr-documentToBeDestroyed . 3df_Rea_Doc_Destoyed))
)
(defun 3df_Rea_Doc_Destoyed (R_Obj Param)
  (if (and tree_TreeDcl (Odcl_Form_IsActive tree_TreeDcl))
     (Odcl_Form_Close tree_TreeDcl)
  )
)

где tree_TreeDcl - имя формы

  • Spirit
  • Восстановленный участник
  • На форуме с 29 ноября 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Конфронтация ObjectDCL и AutoCAD 2005

Отлично, работает, огромное спасибо