[petr.vubrikv]

Получаю через (entget) список dxf-кодов объекта. Вношу изменения в этот список. Выполняю (entmod) списка.
Как сразу после этого lisp-ом узнать, что объект модифицирован, т.е. (entmod) дала положительный результат?
Типа так ?:

Код:

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

(if (entmod List) (princ "\nВсе OK!"))

Или как еще?
Спасибо.

[Supermax]

Сохранить в переменной список dxf кодов и после entmod сравнить что получилось с тем, что было.

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

entmod, по-моему, не обязательно означает полное обновление примитива... Обычно еще используется entupd. Или нет?

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

Сообщение от Кулик Алексей aka kpblc Обычно еще используется entupd

Для сложных объектов, если entmod'ом модифицировался не главный объект. И именно для отображения на экране изменений во всем сложном примитиве (условно говоря регенерация одного объекта).

[petr.vubrikv]

"сравнить что получилось с тем, что было"

Выполнял (equal) без допуска, оно сказало nil. Значит модифицировалось?
сравнивая списки визуально я-то вижу что все нормально, а вот програмно удостовериться в этом... А VLisp-ом можно проверить объект модифицирован ли он?
Спасибо.

[Дима_]

Проверь изменились ли те коды которые ты изменял - то есть после entmod (= (assoc xx (entget)) ...)

[petr.vubrikv]

Проверь изменились ли те коды которые ты изменял - то есть после entmod (= (assoc xx (entget)) ...)

Ох е-мае......То есть сплайны, и порой с по сотне-другой точками, причем, точки могли и удаляться в результате модификации (если подряд в списке идущие повторяются/дублируются), и сплайнов тоже может быть даже сотни, а то и больше. Да, ЗАДАЧКА!

[Елпанов Евгений]

функция equal может сравнивать списки, не зависимо от длинны и уровня вложенности. Сравнивай список entget целиком...

[Supermax]

Вот и я о том же толкую. Есть примитив, сделал ему entget и сохранил в переменную. Поменял в примитиве данные и опять сделал entget. Затем сравнил два списка. Что может быть проще?

[petr.vubrikv]

Дык, эта, я в #5 и писал
"Выполнял (equal) без допуска, оно сказало nil. Значит модифицировалось?"
Тогда в этой фразе исправляю знак ? на знак !
"Выполнял (equal) без допуска, оно сказало nil. Значит модифицировалось!"
(т.е. список данных объекта изменен и модификация произведена)
Спасибо.

[Елпанов Евгений]

petr.vubrikv, я бы рекомендовал использовать допуск сравнения, хотя бы 1e-6 или даже 1e-9. Могут быть случаи, когда одинаковые списки окажутся не совсем одинаковыми...

[petr.vubrikv]

Елпанов Евгений

Да, согласен. Спасибо.