[d.mOnII]

Добрый день, коллеги!
Столкнулся со следующей проблемой
проектируем мы с использованием Xref, потом биндим и получаем чудо названия слоев по маске: {ИмяФайла}$0${СлойXref}
т.е. если Xref назывался ED_L1_0X
а слой в этом чертеже: EM5_CT
то по итогу после слияния мы получим чудо слой: ED_L1_0X$0$EM5_CT

Но тут Заказчик постебался и сказал что у него свои собственные стандарты, которые говорят о том что все слои должны быть названы по его хотелкам (собственно оно и правильно, наверно, он же платит - он и музыку заказывает), теперь необходимо ручками абсолютно все слои переименовать и все названия файла в имени слоя переименовать на EM либо AR

Можно ли как-то автоматизировать сие счастье?
в один чертеж могут быть подгружены файлы с разными именами:
ED_L1_CT0X
ED_L1_EQ0X
ED_L1_ER0X
ED_L1_EL0X
в каждом файле могут быть повторяющиеся слои, такие как:
ED_Eq
ED_Line
ED_Eq_Text

т.к. слои повторяются то желательно в результате переименования получить вместо:
ED_L1_CT0X$0$ED_Eq_Text -> -> -> EM_ED_Eq_Text$0$ED_L1_CT0X
ED_L1_CT0X$0$ED_Line -> -> -> EM_ED_Line$0$ED_L1_CT0X
ED_L1_CT0X$0$ED_Eq -> -> -> EM_ED_Eq$0$ED_L1_CT0X
ED_L1_EQ0X$0$ED_Eq_Text -> -> -> EM_ED_Eq_Text$0$ED_L1_EQ0X
ED_L1_EQ0X$0$ED_Line -> -> -> EM_ED_Line$0$ED_L1_EQ0X
ED_L1_EQ0X$0$ED_Eq -> -> -> EM_ED_Eq$0$ED_L1_EQ0X

т.е. перед названием слоя добавляем пользовательские символы ("EM_" - электроснабжение)
затем прописываем слой исходного Xref'a (ED_Eq_Text)
после этого пихаем имя исходного Xref'a (ED_L1_CT0X)
в качестве разделителя используем все тот же разделитель Акада ($0$)

можно имя опустить, но тогда должен быть счетчик слоев и если слои разных файлов одинаковы, то добавить индекс 01, 02, 03 и т.д. (в зависимости от одинаковых слоев в прикрепленных файлах)

[skkkk]

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

Но раз есть идеи (или предположения?) о том, что программно можно наладить в этом деле систему, то предложу один доступный вариант. Сохраняем файл в формате dxf, открываем его в текстовом редакторе, желательно, попродвинутей, например, Notepad++ или Sublime Text. Используем там механизмы поиска и замены (Ctrl+H), сохраняем. Затем открываем его опять а Автокаде и пересохраняем обратно в dwg.

[d.mOnII]

не вариант(((( комплект РД с такими файлами состоит из 40-50 листов.
Таких комплектов 8....
идея создать шаблон замен - и через лиспу загонять - это одно, а вот каждый слой в каждом файле - ....

файлов к примеру 40
разделов - 8
итого 320 чертежей
внешних ссылок в каждый файл подгружается минимум 5, а то и 10 - итого 320*5=1600
слоев минимум 6 (при этом в разных файлах есть помимо одинаковых - еще и разные слои...), в пределах одного комплекта - до 30 слоев разных, ну да ладно, остановимся на 6-ти)))
ИТОГО:
1600*6=9600 раз нажать поиск и замена
добавим открытие сохранение и пересохранение - пачка операций, которую необходимо повторить 320 раз

короче - проще заново создать файлы РД без внешних ссылок))))))))))))))))))
печатаю и плачу ;(;(;(

[Setvar]

За такие исходные названия слоев вообще надо контору разогнать.

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

Сообщение от d.mOnII Можно ли как-то автоматизировать сие счастье?

Можно. Командными методами, модификациями ename, изменением имени ActiveX-указателей. В чем собственно трудность?

[Boxa]

Сообщение от Кулик Алексей aka kpblc В чем собственно трудность?

В том, что судя по топикам автора, он не знает языков программирования и ищет доброго человека который сделает все за него. "Просто так"(с)

[Сергей812]

у заказчика стандарт вдруг появился - когда исполнители уже сделали сотни чертежей проекта?

[kp+]

Сообщение от Boxa В том, что судя по топикам автора, он не знает языков программирования и ищет доброго человека который сделает все за него. "Просто так"(с)

Есть такая партия такой человек. Гугль помог найти: http://forums.augi.com/showthread.ph...ifferent-names

[skkkk]

Массовое переименование слоев в группе файлов

Групповое переименование слоев (rename layers)

[koMon]

Сообщение от d.mOnII проектируем мы с использованием Xref, потом биндим и получаем чудо названия слоев по маске: {ИмяФайла}$0${СлойXref}

Так сказать Быстролисп, который переименует слои, удовлетворяющие вышеуказанному критерию, пропишет к объекту слоя старое и новое имена. Повторное переименование этим макросом не получится, поребуется удаление данных их объекта слоя. При добавлениии новых слоёв, которые должны быть переименованы согласно критерию и которые будут дублироваться, получают индексный указатель "_01/2..."

Код:

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

 
;*******************************************************************************************************
;
;                   				                          Written by koMon 17.11.2017
;
;*******************************************************************************************************

(defun c:Change_Custom_Layers_Names ()
	(setq acadObj (vlax-get-acad-object)
    	  doc (vla-get-ActiveDocument acadObj)
		  modelSpace (vla-get-ModelSpace doc)
		  dwg_Layers_Set (vla-get-Layers doc)
		  Dwg_Set_Items_number (vlax-get dwg_Layers_Set 'Count)
		  dwg_Layers_List '()
		  Set_index 0
	)
	(vlax-for set_Item dwg_Layers_Set
		(if (and
				(/= (vlax-get set_Item 'Name) "0")
				(/= (vlax-get set_Item 'Name) "Defpoints")
			)
				(setq dwg_Layers_List (cons (cons (vlax-get set_Item 'Name) set_Item) dwg_Layers_List))
		)
	)
	(if dwg_Layers_List
		(foreach dwg_layer dwg_Layers_List
			(setq Layer_Name (print (car dwg_layer))
				  Layer_Name_List (vl-string->list Layer_Name)
				  Layer_Ending_Part (vl-list->string (cdddr (member 36 Layer_Name_List)))
				  Layer_Starting_Part (vl-list->string (reverse (cdddr (member 36 (reverse Layer_Name_List)))))
				  New_Layer_Name (strcat "EM" "_" Layer_Ending_Part "$0$" Layer_Starting_Part)
			)
			(if (not (vlax-ldata-list (cdr dwg_layer)))
				(if (and
						(/= Layer_Starting_Part "")
						(/= Layer_Ending_Part "")
						(vl-string-search "$0$" (car dwg_layer))
					)
						(if (not (assoc New_Layer_Name dwg_Layers_List))
							(progn
								(vla-put-Name (cdr dwg_layer) New_Layer_Name)
								(vlax-ldata-put (cdr dwg_layer) "Was_Name" Layer_Name)
								(vlax-ldata-put (cdr dwg_layer) "Now_Name" New_Layer_Name)
								(princ (strcat "\nLayer Has Been Renamed to: \"" New_Layer_Name "\""))
							)
							(progn
								(setq Layer_Index 1
									  Layer_Index_Str "01"
								)
								(while (assoc (strcat New_Layer_Name "_" Layer_Index_Str) dwg_Layers_List)
									(setq Layer_Index (1+ Layer_Index)
										  Layer_Index_Str (if (< Layer_Index 10) (strcat "0" (itoa Layer_Index)) (itoa Layer_Index))
									)
								)
								(vla-put-Name (cdr dwg_layer) (strcat New_Layer_Name "_" Layer_Index_Str))
								(vlax-ldata-put (cdr dwg_layer) "Was_Name" Layer_Name)
								(vlax-ldata-put (cdr dwg_layer) "Now_Name" (strcat New_Layer_Name "_" Layer_Index_Str))
								(princ (strcat "\nLayer Has Been Renamed to: \"" (strcat New_Layer_Name "_" Layer_Index_Str) "\""))
							)
						)
				 	 	(princ "\nLayer Needs Not to Be Renamed!")
				)
				(princ "\nLayer Has Already Been Renamed!")
			)
		)
		(princ "\nNo Layers to Rename.")
	)
	(princ)
)