[Borikv]

Имеется чертёж с огромным наследством от бывших XREF блоков - куча одинаковых слоёв с разными названиями. Например Wall, Plan1$0$Wall, Plan2$0$Wall и т.п. Привести все эти слои к одному Wall для не блоков вроде несложно. А есть ли возможность привести к одному теже слои, содержащиеся в блоках? Разных блоков много, все нужные и удаляться не могут.

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

laywalk?

[Borikv]

Сообщение от Кулик Алексей aka kpblc laywalk?

Так это же вроде только для просмотра слоёв?

[Хмурый]

_laymrg

[Borikv]

Сообщение от Хмурый _laymrg

А как это для блоков без их разборки?

[Хмурый]

слой по имени называй

_laymrg Select object on layer to merge or [Name]: _n

появится оконце...

[Borikv]

Интересно, что в одних чертежах laymrg срабатывает, а в других нет. Отчего это зависит?

[Хмурый]

выложи чертёж, в котором не срабатывает

[Borikv]

Со срабатываним немного разобрался. Тут появляется другой вопрос: -Как сделать выбор удаляемых слоёв более удобным? Ползти в стандартном окошке по сотне строк в поиске нужных довольно муторно, а какие-то фильтры или перегруппировки в этом окошке вроде не предусмотрены.

[VVA]

Сообщение от Borikv Как сделать выбор удаляемых слоёв более удобным?

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

[Vova]

Сообщение от VVA Нарисуй в сторонке отрезки, и назначь им удаляемые слои. Потом выбирай не по имени, а объекты

Но сначала Layiso чтобы убедиться, что ничего нужного в удаляемые слои не попало

[Borikv]

Сообщение от VVA Нарисуй в сторонке отрезки, и назначь им удаляемые слои. Потом выбирай не по имени, а объекты

Во многих случаях несомненно поможет. Но в моём 469 слоёв ........

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

Тогда уж искать тему "НОрмализация блоков"

[VVA]

Сообщение от Borikv Например Wall, Plan1$0$Wall, Plan2$0$Wall и т.п. Привести все эти слои к одному Wall для не блоков вроде несложно. А есть ли возможность привести к одному теже слои, содержащиеся в блоках?

Сообщение от Borikv Но в моём 469 слоёв ........

_LAYTRANS (Транслятор слоев) тебе в руки

Есть еще это Массовое переименование слоев в группе файлов

[koui]

Сообщение от Borikv Во многих случаях несомненно поможет. Но в моём 469 слоёв ........

так как решить задачу с учетом вот этого? у меня 22 блока XREF1...22, в каждом 34 слоя, то есть, 748 слоев. Слои отличаются первыми 5-6 символами, остальное всё одинаковое. Как объединить эти слои, что о сталось 34?

----- добавлено через ~2 мин. -----

Сообщение от Хмурый _laymrg

700+ кликов - дело неблагодарное

----- добавлено через ~3 мин. -----

Сообщение от Кулик Алексей aka kpblc Тогда уж искать тему "НОрмализация блоков"

https://forum.dwg.ru/showthread.php?t=21492 - вот эта тема? ничего полезного не нашёл (((

----- добавлено через ~4 мин. -----

Сообщение от VVA _LAYTRANS (Транслятор слоев) тебе в руки Есть еще это Массовое переименование слоев в группе файлов

опять же, не для 700+ слоев, которые различаются "префиксами", когда нужно сохранить "суффикс"

[AMDen]

https://forum.dwg.ru/showthread.php?t=66355&page=15

[koui]

Сообщение от AMDen https://forum.dwg.ru/showthread.php?t=66355&page=15

отличная вещь, уже давно пользуюсь, и именно в моём файле я использовал "BGBLXCLIPEXP - взорвать подрезанный блок". но дальше-то что делать? или что-то до взрыва нужно было сделать? никак не допру.

[AMDen]

BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)

[koui]

Сообщение от AMDen BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)

не могу найти. у меня должно остаться 34 слоя, по крайней мере, очень желательно, что б осталось 34. это - планы, которые иногда обновляются. и в них множество "вредной" информации. но есть и много полезной. часть приходится удалять слоями, часть через поиск (например, слой с экспликацией помещений совпадает с слоем с экспликацией полов, первое мне нужно, а второе - нет).

вообще, если я пытаюсь что-то сделать этой командой со всеми слоями, то окошко закрывается "Команда: BGBLFIX Настройка переменной AutoCAD отвергнута: "CMDECHO" nil" что-то делать частями - можно, если этих частей будет мало.

[AMDen]

Может это поможет?
http://www.lee-mac.com/pslay.html

[Dinoxromniy]

Сообщение от koui 700+ кликов - дело неблагодарное

Подумал, что достаточно просто можно переименовать слои через экспорт названий в эксель, вроде как логика работает, но столкнулся со следующей сложностью:

если запустить команду rename через минус:
-ren LA
то Акад ждет ввода имени слоя, и все известные мне знаки энтера (типо пробела, точки с запятой или символ(10) из экселя) он не воспринимает как завершение ввода.

Штудировать книгу Света "Язык макрокоманд" ни времени, ни желания нет. Коллеги, подскажите, можно ли что-то подставить в текстовую строку, чтобы акад воспринял этот символ в данном случае как энтер?

[koui]

Сообщение от AMDen Может это поможет? http://www.lee-mac.com/pslay.html

пробую. немного странная логика лиспа - он переименовывает слои, но нужно выбирать объекты. но! при это маски в стиле #?* не работают. странно, очень.

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

[engngr]

Сообщение от koui 700+ кликов - дело неблагодарное

В самом менеджере слоев сделать фильтр, и объединять выбранные слои в один?

[Dinoxromniy]

koui, можете попробовать жутко колхозное, но вроде бы рабочее решение.
Суть в получение двух готовых сформированных команд, которые нужно просто вставить в командную строку.
У меня вся эта страсть сработала, но акад должен быть английским. Копировать и вставлять нужно очень четко, именно теми сочетаниями, которые указаны ниже (это не всегда принципиально, но иногда - важно не упустить ни одного энтера).
Для этого:
1. Открываете менеджер слоев по Layer, выделяете все слои ctrl+a , копируете ctrl+c
2. Вставляете в любой пустой лист экселя, копируете из него только столбик с названиями слоев, вставляете этот столбик в приложенную таблицу в красный столбик, все остальные названия слоев, которые для примера - удаляете
3. Отфильтровываете желтый столбик, оставив только непустые ячейки, копируете этот столбик в Word, в Word заменяете через ctrl+h символ кавычки " на пустую строку.
4. То, что получилось в Word, выделяете через ctrl+A, затем ctrl+c и вставляете в командную строку автокада. На этом действии каждый первый экземпляр слоев из вставленного xref, которого еще не было в исходном файле, будет переименован (т.е. из названия будет убран префикс).
5. Убираем фильтр из желтого столбца.
6. Аналогичные действия выполняем с зеленым столбцом - фильтруем непустые, копируем отфильтрованное в Word, в Word заменяем кавычку " на пустую строку, выделяем все через ctrl+A (тут важно выделить все знаки), копируем и вставляем в автокад, идем пить чай, ибо процесс идет не так уж быстро.

В моем файле вся эта страсть успешно устранила все слои без видимой потери примитивов, но проверял я бегло, так что лучше потестируйте.

[doctorraz]

Возможно поможет
https://doctorraz.blogspot.com/2016/...ename.html?m=1

[koui]

Сообщение от engngr В самом менеджере слоев сделать фильтр, и объединять выбранные слои в один?

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

[Dinoxromniy]

koui, переложил логику из файла эскселя в VBA, на моих файлах сработало - одноименные слои из разных вставленных xref объединяются.

Код:

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

Sub lr_xref_mrg()
Dim strLay() As String, i As Long, j As Long, k As Long, P  As Boolean
Dim strCom As String

ReDim strLay(ThisDrawing.Layers.Count - 1)
For i = LBound(strLay) To UBound(strLay)
strLay(i) = ThisDrawing.Layers.Item(i).Name
Next i
For i = LBound(strLay) To UBound(strLay)
P = True
    If strLay(i) Like "*$0$*" Then
        For j = LBound(strLay) To UBound(strLay)
            If LayNameWanted(strLay(i)) = strLay(j) Then
                 P = False
                 Exit For
            End If
        Next j
        If P Then
            ThisDrawing.Layers.Item(strLay(i)).Name = LayNameWanted(strLay(i))
            strLay(i) = LayNameWanted(strLay(i))
        End If
    End If
Next i

For i = LBound(strLay) To UBound(strLay)
    If strLay(i) Like "*$0$*" Then strCom = strCom & "-laymrg" & Chr(10) & "n " & strLay(i) & Chr(10) & Chr(10) & "n " & LayNameWanted(strLay(i)) & Chr(10) & "Y "
 
Next i
ThisDrawing.SendCommand strCom
End Sub
Function LayNameWanted(ByVal strLr As String) As String
    LayNameWanted = strLr
    If strLr Like "*$0$*" Then LayNameWanted = Mid(strLr, InStr(strLr, "$0$") + 3)
End Function

[koui]

Сообщение от Dinoxromniy koui, переложил логику из файла эскселя в VBA, на моих файлах сработало - одноименные слои из разных вставленных xref объединяются. Код: [Выделить все] Sub lr_xref_mrg() Dim strLay() As String, i As Long, j As Long, k As Long, P As Boolean Dim strCom As String ReDim strLay(ThisDrawing.Layers.Count - 1) For i = LBound(strLay) To UBound(strLay) strLay(i) = ThisDrawing.Layers.Item(i).Name Next i For i = LBound(strLay) To UBound(strLay) P = True If strLay(i) Like "*$0$*" Then For j = LBound(strLay) To UBound(strLay) If LayNameWanted(strLay(i)) = strLay(j) Then P = False Exit For End If Next j If P Then ThisDrawing.Layers.Item(strLay(i)).Name = LayNameWanted(strLay(i)) strLay(i) = LayNameWanted(strLay(i)) End If End If Next i For i = LBound(strLay) To UBound(strLay) If strLay(i) Like "*$0$*" Then strCom = strCom & "-laymrg" & Chr(10) & "n " & strLay(i) & Chr(10) & Chr(10) & "n " & LayNameWanted(strLay(i)) & Chr(10) & "Y " Next i ThisDrawing.SendCommand strCom End Sub Function LayNameWanted(ByVal strLr As String) As String LayNameWanted = strLr If strLr Like "*$0$*" Then LayNameWanted = Mid(strLr, InStr(strLr, "$0$") + 3) End Function

пожалуй, это будет самый глупый ответ: мне сисадмин не одобрил установку VBA для АвтоКад)

[doctorraz]

Сообщение от koui сисадмин не одобрил установку VBA для АвтоКад)

Эксель или ворд стоит жэж, там есть vba

[Dinoxromniy]

Сообщение от koui мне сисадмин не одобрил установку VBA

Какой важный курица.

koui, у вас акад русский или английский? Команды для них нужны разные.
Что касается VBA - можно админа попросить временно поставить VBA, можно поставить VBA сисадмину, можно взять работу флешку и сделать это дома, можно приложить на форум перечень ваших слоев и получить взамен текст двух команд, которые нужно просто вставить в комстроку.

Вы то сами заинтересованы не щелкать мышкой 700 раз?

[koui]

Сообщение от Dinoxromniy Какой важный курица. koui, у вас акад русский или английский? Команды для них нужны разные. Что касается VBA - можно админа попросить временно поставить VBA, можно поставить VBA сисадмину, можно взять работу флешку и сделать это дома, можно приложить на форум перечень ваших слоев и получить взамен текст двух команд, которые нужно просто вставить в комстроку. Вы то сами заинтересованы не щелкать мышкой 700 раз?

я - заинтересован. сисадмин заинтересован не делать ни одного лишнего клика мышью.

[Dinoxromniy]

Сообщение от koui я - заинтересован.

Замечательно. Тогда дайте ответ на вопрос: какой у вас акад - русский или английский?

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

Сообщение от Dinoxromniy Команды для них нужны разные.

Не совсем: https://autolisp.ru/2010/03/04/localization/

[Dinoxromniy]

Кулик Алексей aka kpblc, благодарю, не знал, что параметры команды тоже успешно локализуются через "_".