Объявление слоя 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