[Mozgunov]

Помогите заполнить Lookup динамического блока. Пробовал функцией от Supermax. Что-то не получилось. Или из-за версии автокада или ещё по какой-то причине. Функция возвратила 17 nil. Может есть метод заполнения блока через текстовый файл?

[Unfamous]

Лисп от Supermax работает под Excel 2003. Какая версия офиса у Вас?

[Mozgunov]

Unfamous, я сохраниил файл в формате 97-2003. Я видел в описании, что работает с 2003. Что-то другое.

[Кулик Алексей aka kpblc]

Формат записи ИМХО роль имеет весьма малозначащую.

[Mozgunov]

Кулик Алексей aka kpblc, А в чём может быть дело не знаете?

[Кулик Алексей aka kpblc]

Может быть, в реализации механизма OLE. На моей практике это первая причина проблем

[Unfamous]

В скрипте устанавливается связь с Excel, и именно с 2003:

Excel-Lookup.lsp:

Код:

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

 ;функция установки связи с Excel
(defun ex12_set_connect (vis / )
  (setq g_oex (vlax-get-or-create-object Excel.Application.11))
; Если связь не установлена, то аварийно завершить работу
  (if (null g_oex) (progn (alert "Невозможно запустить Microsoft Excel 2003") (exit)))
; Сделать Excel видимым в зависимости от параметра vis
 (if vis (vlax-put-property g_oex "Visible" :vlax-true))
); конец функции ex12_set_connect

Для 2007 офиса я ".11" поменял на ".12" и у меня все заработало.

[Кулик Алексей aka kpblc]

Может, тогда попробовать нечто типа такого (ну, чтоб от версии отвязаться)?

Код:

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

 (defun ex12_set_connect (vis / res obj)

  ;; функция установки связи с Excel

  (if (=
        (type
          (setq obj (vl-catch-all-apply (function (lambda () (vlax-get-or-create-object "Excel.Application")))))
          ) ;_ end of type
        'vla-object
        ) ;_ end of =
    (progn
      (vlax-put-property obj
                         'visible
                         (if vis
                           :vlax-true
                           :vlax-false
                           ) ;_ end of if
                         ) ;_ end of vlax-put-property
      obj
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

P.S. Хотя я бы делал по-другому немного, наверное: учитывал бы еще и запущенные копии Excel, подключался бы к ним, а если такое невозможно - то указывал бы необходимость "очистки" Excel.

[Unfamous]

Ошибку выдает

; error: bad argument type: VLA-OBJECT nil

[Кулик Алексей aka kpblc]

Код:

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

_$ (ex12_set_connect t)
#<VLA-OBJECT _Application 000000002ada1758>

Приложение Excel корректно создается и показывается. Пустое, конечно - туда надо еще документы добавлять / открывать и т.д.
Аналогичный результат и при

Код:

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

(ex12_set_connect nil)

[VVA]

Версия Автокада?

Сообщение от Makswell Подтверждаю. С Автокадом 2012 программа не дружит. Когда нужно, специально запускаю Автокад 2008 и работаю в нём. Пока только так.

и

Сообщение от VVA Да я тоже проверил в 2012 SP2 - не работает. Причем трассировка показала, что не работает ф-ция entmod. Т.е. если в 2-х словах то она не обновляет список для объекта (0 . "BLOCKLOOKUPACTION"). С чем это связано - не понятно, то ли баг Автокада, то ли такая политика . Если у кого стоит Автокад 2013 - проверьте работу #495

Читать с #490 и далее