[roaa]

Столкнулся с тем, что с Autocad 2015 перестала работать программа, работающая со всеми остальными версиями Autocad.
чертеж не прилагаю, все очень просто. Полилиния и блоки на ней. Наткнулся на такой лаг. Для подсчета блоков на полилинии используется команда:

(mapcar
'(lambda (_pl) (_sensor_prim_sel (_sensor_pline_ent _pl) t))
(list (car (entsel))) ; выбор полилинии
)

Выполнение частично отрабатывает нормально, а вот одним кодом...
То же самое и с запуском foreach.
Может кто сумеет прояснить ситуацию?

Используемые функции во вложении
test.lsp

[Do$]

В 2015 версии появилась новая функция COMMAND-S. Ее надо использовать вместо VL-CMDF и COMMAND, если функция вызывается с заранее заданными аргументами и не подразумевается никаких действий пользователя во время ее вызова. Скорее всего, дело в этом.

[roaa]

а причем здесь mapcar и foreach, если я command вызываю только для зума?

[Do$]

Заменили? Помогло?

[roaa]

Кстати, foreach дает еще более интересные результаты...
(foreach _pl (list (car (entsel)))(setq testlist (cons (_sensor_prim_sel (_sensor_pline_ent _pl) t) testlist)))

----- добавлено через ~6 мин. -----
вот енто да....помогло...СПАСИБО!

[Do$]

Пожалуйста
Просто уже сталкивался с этим: http://adn-cis.org/forum/index.php?t...sg4553#msg4553

[roaa]

Сколько лиспов испортили...надо ли было.

[VVA]

Сообщение от Do$ В 2015 версии появилась новая функция COMMAND-S.

Сообщение от roaa вот енто да....помогло...СПАСИБО!

У меня из-за этого в коде появились такие конструкции

Код:

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

 (if command-s (command-s "_UCS" "_p")(command "_UCS" "_p"))

[Do$]

Ха! Красиво
Я думал версию проверять, но так изящнее!

[gomer]

а я, дурында, vla-zoomall использовал...

[Дима_]

можно еще так завернуть

Код:

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

 ((lambda (command) 
    ...
    (command "_UCS" "_p")
    ....)
 (if command-s command-s command))

[gomer]

Тогда уж (cond (command-s) (command)). Занятно что код

Код:

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

 ((cond (command-s) (command)) "_zoom" "_obj" (entlast) "")

при попытке прервать из vlide вызывает фатал

[roaa]

Обрабатывать каждый command лениво. Думаю, что потянет такой код:
(set 'comand (if (> (read (substr (getvar "ACADVER") 1 2)) 19) command-s command))

И функцию написать по замене в lsp vl-cmdf и command на comand для пакетной обработки.
Ну вот и программки...
HTMLChanger.zip
UVsoftium.zip

[Александр Ривилис]

Сообщение от roaa Думаю, что потянет такой код: (set 'comand (if (> (read (substr (getvar "ACADVER") 1 2)) 19) command-s command))

Только если нет запроса к пользователю. В противном случае "не потянет".

[roaa]

конечно, было б великолепно, если бы Autodesk вернул все на круги своя....или им совсем без разницы, что станет с лиспом?

[Nick Kononenko]

Может а/к 2015 нелицензионный и отсюда эти проблеы.

[Do$]

Сообщение от roaa конечно, было б великолепно, если бы Autodesk вернул все на круги своя....или им совсем без разницы, что станет с лиспом?

Было бы без разницы, не добавляли бы команду новую.

Сообщение от Nick Kononenko Может а/к 2015 нелицензионный и отсюда эти проблеы.

[trushev]

Сообщение от roaa set 'comand (if (> (read (substr (getvar "ACADVER") 1 2)) 19) command-s command)) И функцию написать по замене в lsp vl-cmdf и command на comand для пакетной обработки

А как это будет работать, если в теле command несколько комманд