[Конструктор-ППРщик]

Добрый день! Много сил и времени нашего отдела тратится на корректировку чужих чертежей (приведение толщин линий в соответствие с внутренними стандартами: Толстая 0,4мм; Тонкая и размеры 0,18мм; Текст, Мтекст 0,2мм). Возможно ли в принципе написать Lisp, меняющий толщины линий следующим образом:
- Все толщины линий до 0,25 включительно преобразовывались бы в 0,18мм.
- Все толщины линий свыше 0,25 преобразовывались бы в 0,4мм.
- Все толщины линий текста и Мтекста преобразовывался в 0,2мм.
- Все толщины линий размеров (параллельные, угловые и т. д. ) - в 0,18мм.

и дополнительно - в слоях - до 0,25 и "по умолчанию" =0,18мм, свыше 0,25 = 0,4мм;
блоки в составах чертежа так же корректировались.
Возможно ли это нажатием одной кнопки?

[VVA]

Сообщение от detrah Подскажите, как модернизировать код, чтобы можно было редактировать сразу целый набор?

Код:

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

(defun c:lw05 ( / ss)
(vl-load-com)
  (and
    (setq ss (ssget "_:L"))
    (
    (lambda ( i / e )
      (while (setq e (ssname ss (setq i (1+ i))))
        (vla-put-lineweight (vlax-ename->vla-object e) aclnwt050); вес 0.5
        )
    )
    -1
    )
   )
  (princ)
  )

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

Вариантов уже до дури - забирай любой и допиливай под свои нужды.