[Borikv]

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

[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, благодарю, не знал, что параметры команды тоже успешно локализуются через "_".