[Borikv]

Часто в архитектурных чертежах зданий, имеющих большое количество внутренних помещений, на ранних стадиях проектирования в масштабах 1:100, 1:200 необходимо задавать только размеры этих помещений. Но поскольку для простановки цепочки размеров надо захватывать все линии, пересекаемые этой цепочкой, то получаем также толщины стен 10, 15, 20 и т.д. Эти размеры никому не нужны и только замусоривают чертёж. Вопрос - Есть ли LISP, удаляющий из чертежа все размеры конкретной величины по выбору, например "10"?

[kacugu]

Можно и без лиспа. Быстрый выбор - ... размеры - величина размера - Оператор - значение

[Borikv]

Конечно это тоже выход, но хотелось бы что-нибудь более "индустриальное".

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

Сообщение от Borikv Вопрос - Есть ли LISP

Похоже, пока такого lisp'а нет.

[Borikv]

Сообщение от kacugu Можно и без лиспа. Быстрый выбор - ... размеры - величина размера - Оператор - значение

Что-то сходу не нашёл в быстром выборе англоязычного Автокада величину размеров

[P_S]

А в чём проблема?

Код:

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

 (mapcar 'entdel
(vl-remove-if 'listp(mapcar 'cadr(ssnamex
(ssget "_X" (list(cons 0 "DIMENSION")(cons 42 (getreal "\ndim to delete: "))))))))

[Borikv]

Спасибо, очень симпатично. Только почему-то не срабатывает.

[P_S]

Может быть, реальные размеры не 10; 15; 20, а 10.001; 14.999, и т.п.

[kacugu]

del

[Borikv]

Действительно, похоже, что это причина. А нельзя ли сделать, чтобы лисп работал не с фактическим размером, а с написанным?

[kacugu]

попробуйте:

Код:

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

 (mapcar 'entdel(vl-remove-if 'listp(mapcar 'cadr(ssnamex(ssget "_X" (list(cons 0 "DIMENSION")(cons 1 (getstring "\ndim to delete: "))))))))

[P_S]

kacugu, не пойдет. DXF код 1 - это текстовая строка, введенная пользователем вместо размера.
Могу предложить вот что:

Код:

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

 (setq dim(getreal "\ndim to delete: "))
(foreach x (vl-remove-if 'listp(mapcar 'cadr(ssnamex(ssget "_X" '((0 . "DIMENSION"))))))
  (if(equal dim(cdr(assoc 42(entget x))) 0.5)
    (entdel x)))

Это для округления размера до единицы (аргумент 0.5 функции equal).

[kacugu]

Сообщение от P_S kacugu, не пойдет

видимо я неправильно понял

Сообщение от Borikv чтобы лисп работал не с фактическим размером, а с написанным

P_S, спасибо, что поправили

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

Написанным или отображаемым? Заодно учтите еще префиксы-суффиксы, дополнения типа \X, \P и т.п. - и задачка становится весьма занятной.

[Borikv]

Сообщение от Кулик Алексей aka kpblc Написанным или отображаемым

Честно говоря не понял разницы.
Но в принципе можно упростить задачу. Стирать не конкретный размер, а все размеры меньше какого-то. Например <20. Тогда уже прихватит все и круглые и некруглые

[kacugu]

Сообщение от Borikv Честно говоря не понял разницы

можно настроить округление в размерном стиль так, что размер 43,67 будет отображаться как 44,0, а можно вписать 44,0 руками - разница принципиальна.

[Borikv]

А вообще аппликация уважаемого P_S из поста 12 прекрасно работает. Может быть её можно усовершенствовать ещё, для более глубокого распознавания величин, но для меня и имеющийся вариант вполне достаточен. Всем спасибо за участие.