[drun]

Добрый день!

В автокаде 2018 после переустановки перестали корректно работать Lisp приложения, которыми до этого успешно пользовались 5 лет. Такая ситуация сразу на нескольких компьютерах. На части машин эти же lisp приложения в 2018 акаде работают корректно. На всех машинах установлен сам Autocad 2018 и Vba enabler из стандартной сборки (пробовали и с ним, и без него, на работу Lisp не влияет).
При загрузке lisp приложения происходит его корректная загрузка, выполняется даже первая команда, но потом выскакивают такого рода сообщения об ошибках, работа приложения прерывается:

no function definition: VLAX-ENAME->VLA-OBJECT
неверный тип аргумента: VLA-OBJECT nil

Невозможно вызвать (command) из *error* без предварительного вызова (*push-error-using-command*).
Рекомендуется преобразовать (command) в (command-s).

Слыхал, что акад перешел на новые команды, но как объяснить в пределах одной версии акада корректную и некорректную работу одних и тех же приложений?
Может, существует простой алгоритм корректировки lisp приложения "на новый лад" ?
Прикладываю некорректно работающие lisp приложения .

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

https://autolisp.ru/2010/06/09/no-fu...t-acad-object/ ?

[drun]

Спасибо, попробовал, твой способ не помог

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

Код не скачивал, а насчет

Сообщение от drun как объяснить в пределах одной версии акада корректную и некорректную работу одних и тех же приложений?

Сделай как VVA:

Код:

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

(if command-s
  (command-s "и_тут_твоя_команда")
  (command "и_тут_твоя_команда")
)

[drun]

Сообщение от Кулик Алексей aka kpblc Код не скачивал, а насчет Сделай как VVA: Код: [Выделить все] (if command-s (command-s "и_тут_твоя_команда") (command "и_тут_твоя_команда") )

Как мне понять о какой команде из множества речь?
Может, попробуете сделать на примере приложенного мною lisp приложения "sumT" (он особенно актуален)? Постараюсь уловить алгоритм и переделать остальные..

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

Код не буду проверять на работоспособность, ибо некогда. В sumt.lsp найди строку

Код:

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

 (command "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) 

и замени ее на

Код:

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

 (if command-s 
  (command-s "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause)
  (command "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause)
)

[drun]

Сообщение от Кулик Алексей aka kpblc Код не буду проверять на работоспособность, ибо некогда. В sumt.lsp найди строку Код: [Выделить все] (command "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) и замени ее на Код: [Выделить все] (if command-s (command-s "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) (command "_.copybase" "0,0" (entlast) "" "_.erase" (entlast) "" "_.pasteclip" pause) )

Спасибо за участие. Я попробовал, акад перегрузил, не работает, те же сообщения выскакивают...

[drun]

Алексей, может еще что в коде поправить? не только command

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

Я бы открывал код в VLIDE и смотрел, в каком месте вообще ошибка появляется. Потому как именно в этих кодах я не вижу, где может появиться сообщение

Сообщение от drun Невозможно вызвать (command) из *error* без предварительного вызова (*push-error-using-command*). Рекомендуется преобразовать (command) в (command-s).

[drun]

Там то и оригинальный код работать будет, скорее всего. Сдаюсь.

[drun]

Нашел решение как восстановить корректную работу lisp приложений после переустановки acad:
https://www.autodesk.com/support/tec...n-AutoCAD.html