[MorganSpb]

Товарищи, можно ли сделать с помощью команды или лиспа, чтоб при выборе рамкой нескольких/всех объектов у них делались: цвет по блоку, вес по блоку, прозрачность по блоку, тип линий по блоку или непрерывный, но чтоб не трогались слои? Через быстрые свойства долго выбирать каждый пункт, а когда объектов очень много то быстрые свойства уже не работают.

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

Ну выдели руками, и через панель свойств устанавливай чего надо.

[Cfytrr]

MorganSpb,
Если Вам нужно нормализовать все примитивы в блоке, то вот этот лисп может помочь:

[MorganSpb]

Сообщение от Кулик Алексей aka kpblc Ну выдели руками, и через панель свойств устанавливай чего надо.

Это долго получается и замирает автокад, в зависимости от количества выбранного, после каждого назначения. Хотелось бы 1 операцией ограничиться

[MorganSpb]

Сообщение от Cfytrr MorganSpb, Если Вам нужно нормализовать все примитивы в блоке, то вот этот лисп может помочь:

Что то не работает данный лист, с ошибкой вываливается. Автокад 2024

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

Сообщение от MorganSpb Это долго получается и замирает автокад, в зависимости от количества выбранного, после каждого назначения. Хотелось бы 1 операцией ограничиться

ИМХО встроенных вариантов нет.

[name02]

Меняет тип линий, вес линий и цвет на "ПоБлоку". Прозрачность надо вручную менять - там все как-то https://autolisp.ru/2015/01/12/acad_transparency/

Код:

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

 (defun c:test (/ ss acadDoc layers ctr obj)

  (if (setq ss (ssget))
    (progn

      (setq acadDoc (vla-get-activedocument (vlax-get-acad-object)))
      (setq layers (vla-get-Layers acadDoc))

      (setq ctr 0)
      (repeat (sslength ss)

	(setq obj (vlax-ename->vla-object (ssname ss ctr)))

	(if (and (vlax-property-available-p obj 'Color T)
		 (vlax-property-available-p obj 'LineType T)
		 (vlax-property-available-p obj 'LineWeight T)
		 (vlax-property-available-p obj 'LineTypeScale T)
	    )
	  (progn
	    (vlax-put-property obj 'Color 0)
	    (vlax-put-property obj 'Linetype "ByBlock")
	    (vlax-put-property obj 'LineWeight acLnWtByBlock)
	  )
	);if prop available

	(setq ctr (1+ ctr))
      )	;repeat

    )
  );if ss
  (princ)
);defun

[doctorraz]

См. bgtools
https://forum.dwg.ru/showthread.php?t=66355