[sanok7]

Добрый день! Помогите пожалуйста!
В Интернете много лиспов для задания свойств слоев, и как идентификатор используется название слоя. У меня немного иная ситуация - необходимо задать параметры слоев содержащих в названии определенный текст(фильтр).

Например, есть файл с 100500 тыщ слоев:
Список слоев:
1-F-1
1-F-2
...
8-C-1
8-C-2
...etc.

И для всех слоев содержащих в названии *-F-* изменить цвет на красный, а для *-С-* - на зеленый....и т.д..

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

Поскольку вопрос не в программировании, то: создавай фильтр слоев, выделяй слои, попадающие в нужный фильтр, и меняй как душе угодно.

[sanok7]

Сообщение от Кулик Алексей aka kpblc Поскольку вопрос не в программировании, то: создавай фильтр слоев, выделяй слои, попадающие в нужный фильтр, и меняй как душе угодно.

Много фильтров и файлов тоже (( Нужен lisp однозначно

[pan]

Сообщение от sanok7 Нужен lisp однозначно

Лисп обычно используется, когда задача повторяется время от времени.
А у тебя, скорее всего, лисп будет одноразовый, времени на него потратишь больше, чем сделать вручную.

Сообщение от sanok7 Много ... файлов

Есть еще транслятор слоев и файл стандарта, с помощью которых ты сможешь сделать вручную один раз то, что нужно, а затем в остальных файлах получить тоже самое в полуавтоматическом режиме

[sanok7]

Сообщение от pan Лисп обычно используется, когда задача повторяется время от времени.

Именно так и есть, геометрия и слои постоянно обновляются по ходу работы с файлами, к тому же, в разных файлах - разные названия слоев, подключить шаблон стандарта оформления не получится.

[sanok7]

Нашел решение. Грубовато, но задачу выполняет.

Повесил на кнопку

Код:

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

^C^C(command "_.layer" "_color" 1 "*-AAA-*" "")
(command "_.layer" "_color" 2 "*-BBB-*" "")
(command "_.layer" "_color" 4 "*-CCC-*" "")

[frostmourn]

Без проверок. Часть имени, по которой фильтровать, вводить без звездочек.

Код:

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

 
(defun c:ChangeColor (/ obj lay_coll color lay_name)
	(setq obj (vlax-get-acad-object) lay_coll (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
	(while
		(setq color (acad_colordlg 1 nil))
		(setq lay_name (getstring "\nФильтр имени: "))
		(vlax-for lay_def lay_coll
			(if (wcmatch (vla-get-name lay_def) (strcat "*" lay_name "*"))
				(vla-put-color lay_def color)
			)
		)
		(vla-update obj)
		(princ "\nСледующая группа слоев:")(princ)
	)
)

Специально для внимательно читающих ещё разок - Без проверок.

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

Ага, но как только появятся внешние ссылки, станет значительно веселее..