[vaxo55]

объявляю слой:

Код:

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

Public layerobj1 As AcadLayer
Public layerobj2 As AcadLayer
Public layerobj3 As AcadLayer
Public layerobj4 As AcadLayer

' стартует форма и сразу принимаем объекты коллекции:

Код:

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

Private Sub UserForm_Initialize()
Set layerobj1 = ThisDrawing.Layers.Item("1")
Set layerobj2 = ThisDrawing.Layers.Item("2")
Set layerobj3 = ThisDrawing.Layers.Item("3")
Set layerobj4 = ThisDrawing.Layers.Item("4")
End Sub

дальше идёт обработка данных
что сделать если количество слой очень много? есть способ объявлять слой или лучше по другому решать вопрос?
спасибо за ранее

[Boxa]

Массив + Цикл.

[Сергей812]

И не совсем непонятно, зачем из совокупности объектов ThisDrawing.Layers вы создаете множество копий. Во многих случаях можно работать со свойствами слоя через Item напрямую, насколько помню VBA)