ADN Club > VBA
Как изменить параметр видимости блока через VBA?
(1/1)
Slepovatiy:
Добрый день! Начал учиться VBA в связке Autocad и возник вопрос на который не могу который день найти ответ , как изменить свойства видимости блока.
Добавлю фото блока , и код пример который я начал разбирать. Пытался сделать автоматизированную однолинейную схему
--- Код - Visual Basic [Выбрать] ---Sub Vs() 'Прописываем переменные Dim blockref As AcadBlockReference Dim name As String Dim pp As Variant Dim AP As Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet On Error Resume Next 'Подкл к ексель Set AP = Excel.Application Set WB = AP.Workbooks.Open("D:\Odnolineyka.xlsm") Set WS = WB.Worksheets(1) 'Получаем точку вставки pp = ThisDrawing.Utility.GetPoint(, "Укажите точку вставки") 'Вставка блока name = "МультиФидер" Set blockref = ThisDrawing.ModelSpace.insertblock(pp, name, 1, 1, 1, 0) 'Получение атрибутов If blockref.HasAttributes = True Then att = blockref.GetAttributes For i = LBound(att) To UBound(att) If att(i).TagString = "НАИМЕНОВАНИЕ_ПОТРЕБИТЕЛЯ" Then att(i).TextString = Cells(12, 2) ElseIf att(i).TagString = "МАРКА_КАБЕЛЯ" Then att(i).TextString = Cells(13, 2) ElseIf att(i).TagString = "ДЛИНА_КАБЕЛЯ" Then att(i).TextString = Cells(14, 2) ElseIf att(i).TagString = "НОМИНАЛ_АВ" Then att(i).TextString = Cells(16, 2) ElseIf att(i).TagString = "НОМИНАЛ_МП_1" Then att(i).TextString = Cells(18, 2) ElseIf att(i).TagString = "НОМИНАЛ_МП_2" Then att(i).TextString = Cells(20, 2) End If Next End If AP.Quit End Sub
Сразу прошу прощения что может банальный вопрос.
Александр Ривилис:
BlockRef.GetDynamicBlockProperties возвращает динамические свойства, некоторые из них являются параметрами видимости.
Навигация
Перейти к полной версии