[100рож]

Итак, задача. Дано: открыто несколько документов, в которых есть слой с определенным именем. Требуется: включить/отключить этот слой во всех открытых документах.
Вопрос: каким образом можно этот процесс автоматизировать? Файлов может быть открыто много, на переход от документа к документу тратится уйма времени
Поясню, для чего это мне понадобилось. Мы в организации делаем ПДФ с подписями не сканированием бумаги, а печатью из ДВГ. А в ДВГ у нас все подписи лежат на одном слое. При пакетной печати подлинников нужно отключать слой с подписями, при печати ПДФ - включать.

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

Замени LayerOff на Freeze / Lock (код не смотрел).

[allar8]

Сообщение от Кулик Алексей aka kpblc Замени LayerOff на Freeze / Lock (код не смотрел).

Там в коде вот такая строчка
layerObj.layerObj.LayerOn = False

layerObj.layerObj.LayerFreeze = True - не работает
layerObj.layerObj.LayerFreeze = Lock - ошибка

Подскажите плиз как вот эту строчку
layerObj.layerObj.LayerOn = False
поправить для заморозки разморозки

----- добавлено через ~5 мин. -----
layerObj.Freeze = True
layerObj.Freeze = False

Получилось
Спасибо большое!

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

Заморозить активный слой невозможно - ну так, для полноты картины.

[allar8]

Сообщение от Кулик Алексей aka kpblc Заморозить активный слой невозможно - ну так, для полноты картины.

Это я видел уже). Спасибо!

----- добавлено через ~7 мин. -----
А еще интересно конечно все проворачивать не открывая файлы. Но тут вроде был такой макрос - но у меня на 2017 не пошел.
А может можно как нить макрос layvisible_off.dvb гондобнуть, чтоб он не открывал замораживал сохранял закрывал, а просто есть куча открытых файлов и просто между
этими открытыми файлами перескакивать замораживать или размораживать без закрытия и сохранения?
Кодик то вроде не большой

Код:

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

 Sub layvisible_off()

Dim MyName As String
Dim MyPath As String
Dim sPath As String
Dim objShellApp As Object, objFolder As Object, ulFlags
On Error Resume Next

'Выбор папки
    Set objShellApp = CreateObject("Shell.Application")
    ulFlags = 0
    Set objFolder = objShellApp.BrowseForFolder(0, "Выбрать папку", ulFlags, "D:\")
    MyPath = objFolder.Self.Path & "\"
    
' проверка
    If Err.Number <> 0 Then
        MsgBox "папка не выбрана!"
        Else
        
'цикл перебора файлов Dir
        MyName = Dir(MyPath & "*.dwg")
            Do While MyName <> ""
            sPath = MyPath + MyName
            ThisDrawing.Application.Documents.Open (sPath)
            
'выполнение команды
             Set layerObj = ThisDrawing.Layers("Подписи")
             layerObj.Freeze = True
             ThisDrawing.Regen acActiveViewport
            
        MyName = Dir
        
'закрытие файлов (кроме начального)
        If ThisDrawing.Application.Documents.Count > 1 Then
        ThisDrawing.Application.Documents.Item(1).Close
        End If
            Loop
    End If
'(с)v.psk
End Sub

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

Можно. Открывай документы через ObjectDBX, например - правда, там своих приколов полно. Ну или вообще добро пожаловать в NET

[allar8]

Сообщение от Кулик Алексей aka kpblc Можно. Открывай документы через ObjectDBX, например - правда, там своих приколов полно. Ну или вообще добро пожаловать в NET

Я почему то так и думал). Но как всегда некогда, думал может тут просто 'цикл перебора файлов Dir чуть чуть почикать - но видимо ан NET)))

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

Как капитальный костыль - создавай новый экземпляр приложения, ему Visible = False, и уже в нем открывай документы и делай чего возжелает левая пятка ))

[allar8]

Сообщение от Кулик Алексей aka kpblc Как капитальный костыль - создавай новый экземпляр приложения, ему Visible = False, и уже в нем открывай документы и делай чего возжелает левая пятка ))

Спасибо, но нпнм)

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

Че?

[koMon]

Сообщение от Кулик Алексей aka kpblc через ObjectDBX

НЕ открытые документы
(odbx_layers_off '("Layer_Off_1" "Layer_Off_2"...)

[GogMagog]

Сообщение от koMon НЕ открытые документы (odbx_layers_off '("Layer_Off_1" "Layer_Off_2"...)

Прошу прощения за глупый вопрос На каком языке вы такую красоту сделали? На си++?

[мозголом из Самары]

Сообщение от koMon (odbx_layers_off '("Layer_Off_1" "Layer_Off_2"...)

Очень круто!!!! Спасибо!!!
А не могли бы вы дополнить функцию включить слои???

[koMon]

Сообщение от GogMagog На каком языке вы такую красоту сделали?

исключительно на лиспе

Сообщение от мозголом из Самары дополнить функцию включить слои

надо поднять и посмотретью. я думаю можно.

[GogMagog]

Сообщение от koMon исключительно на лиспе

подскажите, мне в этом направлении смотреть
https://autolisp.ru/2010/04/08/proce...tive-document/
спасибо!

[koMon]

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

@мозголом из Самары, odbx_layers_off_on.fas.rar

[Vadim_EC]

Для VBA получаете все открытые документы через коллекцию set oDocs=Documents циклом for each oDoc in oDocs проходите их все и отключаете слой.

Вот как пример очистка от SelectionSets во всех открытых документах:

Код:

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

Function pf_SelectionSets_DeleteInAllDocuments()
    Dim i As Integer
    Dim oSelectionSets As AcadSelectionSets, oSelectionSet As AcadSelectionSet
    Dim oDocuments As AcadDocuments, oDocument As AcadDocument
    Set oDocuments = AcadApplication.Documents
    For Each oDocument In oDocuments
        Set oSelectionSets = oDocument.SelectionSets
        
        Do Until oSelectionSets.Count = 0
            Set oSelectionSet = oSelectionSets.Item(0)
            oSelectionSet.Delete
        
        Loop
    
    
    Next
End Function