Объявление слоя autocad - VBA

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Объявление слоя autocad»

textual
Листинг программы
const countLayers as integer =100' количество слоев
Public layerobj(1 to countLayers) As AcadLayer
Private Sub UserForm_Initialize()
      dim i as integer
      for i= 1 to countLayers
          Set layerobj(i) = ThisDrawing.Layers.Item(cstr(i))
      next i
End Sub

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы