[Черепушка]

Доброго времени суток всем!

Если у кого есть время и желание, то прошу помочь, т.к. самому познаний в этом не хватит, т.к. их можно сказать и нет, а лисп очень помогает в работе.
Суть в том, что на работе одним человеком был написан LISP, который собирал информацию из динамического блока сваи и создавал на основе этих данных спецификацию к схеме расположения и экспликацию свай.
Писалось это ещё под 2010-й автокад и вплоть до 2014-й версии все работало. В 2016 вроде уже перестало (могу ошибаться).
В текстовом окне автокада пишет ошибку: Команда: SETBLOCKTABLERECORDID32
Неизвестная команда "SETBLOCKTABLERECORDID32"
Может быть в 2020-й версии просто изменилось наименование команды и он не понимает, что от него хотят? Но это мое дилетантское предположение, не более того.
Лисп и блок сваи прикладываю.

Или быть может есть какие-то другие решения как автоматизировать создание экспликации (вдруг уже все давно придумано за нас )

[trir]

х64

[Черепушка]

Сообщение от trir х64

надо 32 исправить на 64?) Или это к тому, что вообще весь LISP должен быть по-другому написан?

[trir]

https://forum.dwg.ru/showthread.php?t=78810
https://forums.autodesk.com/t5/visua...2/td-p/2408650

устаревший метод, который появился при переходе с x32 на x64

[Черепушка]

Сообщение от trir https://forum.dwg.ru/showthread.php?t=78810 https://forums.autodesk.com/t5/visua...2/td-p/2408650 устаревший метод, который появился при переходе с x32 на x64

ох, попробую покопаться, спасибо. Может с Божьей помощью что и пойму )))

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

Без анализа кода: _.dataextraction не катит?

----- добавлено через ~11 мин. -----
Можно попробовать в строке 685 заменить

Код:

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

 (if Is64Bit

на

Код:

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

 (if (vlax-method-applicable-p vlaobj2 'setblocktablerecordid32)

Работу кода не проверял, не до того.

[Черепушка]

Сообщение от Кулик Алексей aka kpblc Без анализа кода: _.dataextraction не катит? ----- добавлено через ~11 мин. ----- Можно попробовать в строке 685 заменить Код: [Выделить все] (if Is64Bit на Код: [Выделить все] (if (vlax-method-applicable-p vlaobj2 'setblocktablerecordid32) Работу кода не проверял, не до того.

Про dataextraction, к сожалению, не понимаю о чем речь. Как и писал ранее я в этом ни черта не понимаю (
Строку в коде попробую заменить и отпишусь по результату

----- добавлено через ~1 ч. -----

Сообщение от Кулик Алексей aka kpblc Без анализа кода: _.dataextraction не катит? ----- добавлено через ~11 мин. ----- Можно попробовать в строке 685 заменить Код: [Выделить все] (if Is64Bit на Код: [Выделить все] (if (vlax-method-applicable-p vlaobj2 'setblocktablerecordid32) Работу кода не проверял, не до того.

Вроде как замена строки кода помогла. Буду тестировать. Спасибо огромное за помощь!