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 возвращает динамические свойства, некоторые из них являются параметрами видимости.

Навигация

[0] Главная страница сообщений