[Composter]

Добрый день. Написал небольшой лисп для объединения слоев. А то после x-ref остается много одинковых, но в имени немного различаются.
Вопрос можно ли чем нибудь заменить VL-CMDF "_.-LAYMRG"

Код:

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

 ;Убирает в названиях слоев все слева до символов $0$
(defun Zd131 (  / newnamelayer  posit_1 poisk_simv layer_name02)
(princ "\n Убирает в названиях слоев все слева до символов $0$")
(setq poisk_simv "$0$")
(vlax-for layer_name01 (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))
	(if	(setq posit_1(vl-string-search poisk_simv (vla-get-name layer_name01)))
		(if (vl-catch-all-error-p(vl-catch-all-apply 'vla-item(list (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) (setq layer_name02(substr (vla-get-name layer_name01) (+ 4 posit_1))))))
			(vl-catch-all-apply 'vla-put-Name(list layer_name01 layer_name02))
			(VL-CMDF "_.-LAYMRG" "_Name"(vla-get-name layer_name01)"" "_Name" layer_name02 "_Yes")
		)
	)
);_end_of_vlax-for
(princ)
)
(defun C:Zd131()(Zd131))

[kp+]

Сообщение от Composter Вопрос можно ли чем нибудь заменить VL-CMDF "_.-LAYMRG"

Поискать старую версию Express, эта команда перешла в базовую комплектацию Акада именно оттуда. Там это все было реализовано именно на LISP.
Другой вариант - написать собственный вариант на базе ssget и vla-put-layer. Но там можно задолбаться в обработке хитровмазанных вариантов и исключений типа "атрибут динамического блока вложенного в безымянный блок вложенный в обычный блок".
Offtop: Вопрос "а надо ли уходить от "командного" метода для такой простой задачи" не задаю

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

Технически можно: получаешь новое имя слоя, проверяешь - если слоя с таким именем нет, то просто задаешь ему новое имя. Если есть, то проходишь по всей коллекции блоков и их составляющих и меняешь имя слоя.
Несколько подводных камней:
1. Состояние слоев придется запоминать, потом их разблокировать и размораживать, а в конце восстанавливать исходное состояние
2. На слои могут быть ссылки в расширенных данных и/или словарях.

[Composter]

я не хочу полнстью переписывать это комманду, просто есть функции тиапа ACET-LIST-TO-SS, ACET-CURRENTVIEWPORT-ENAME о которых фиг найдешь информациюю. Вот я и спрашиваю мож есть есть простой способ о котором я не знаю.

[RAD24]

Расшифруйте пожалуйста как пользоваться приведенным кодом. Куда вписывать слои. Не получается заменить свои слои.

----- добавлено через ~2 ч. -----
Все, разобрался