• Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Тема: Как обратиться к параметрам динамических блоков через VBA?

Добрый день. Обращаюсь ко всем с просьбой поделиться информацией об способах программного обращения к значениям параметров динамических блоков. Я искал эту информацию и на других форумах, и на информационных сайтах и в хелпе autocad, но все безрезультатно.

  • Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Re: Как обратиться к параметрам динамических блоков через VBA?

Стараюсь разобраться с методами программного взаимодействия с динамическими блоками. Обратиться к параметрам динамического блока  можно функцией
GetDynamicBlockProperties.
Меня заинтересовал метод связи значений параметров в блоке с текстовыми полями http://www.cadmaster.ru/articles/27_autocad_2006.cfm . В этой статье указывается о возможности связи значений параметров динамического блока с атрибутами блока. Изменение параметров блока приводит к изменению значения текстового блока.
Но не объясняется, как это сделать. В качестве примера они приводят создание таблицы с параметрами с помощью Мастера извлечения атрибутов. А мне нужно, чтобы атрибут находился в составе динамического блока, чтобы при изменении длины (величины параметра) динамического блока в атрибуте были внесены изменения.

  • Воха
  • Восстановленный участник
  • На форуме с 29 января 2006г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как обратиться к параметрам динамических блоков через VBA?

Вот пара кусков кода, они несколько корявые =) зато работают. Посмотри, может поможет.

    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET3")
    ssetObj.SelectOnScreen
For Each Item In ssetObj
    Attributes = Item.GetAttributes
    BlockProperties = Item.GetDynamicBlockProperties
    db.Execute " INSERT INTO Tabl1 " _
        & "(Name_block,Poz_block,Diam_block,Dlinna_block,Shirina_block,Shag_block,Kol_block) VALUES " _
        & "('" & Item.Name & _
         "', " & CLng(Attributes(0).TextString) & _
          ", " & CLng(Attributes(1).TextString) & _
          ", " & Round(CLng(BlockProperties(0).Value) / 10, 0) * 10 & _
          ", " & CLng(BlockProperties(6).Value) & _
          ", " & CLng(Attributes(2).TextString) & _
          ", " & Round(CLng(BlockProperties(6).Value) / CLng(Attributes(2).TextString), 0) + 1 & ");"
          '", " & CLng(Attributes(3).TextString) & ");"
Next
For Each Item In ssetObj
    s_011 = Item.Name
    Attributes = Item.GetAttributes
    BlockProperties = Item.GetDynamicBlockProperties
    Set rst1 = db.OpenRecordset("SELECT * FROM Tabl1 WHERE Name_block = '" & s_011 & "';")
    Attributes(0).TextString = "" & rst1.Fields(1)
    Attributes(3).TextString = "" & rst1.Fields(6)
Next

  • Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Re: Как обратиться к параметрам динамических блоков через VBA?

Большое Вам спасибо. Пока, я ждал помощи, я сумел разобраться с этой проблемой.
Думаю данную тему,  можно закрыть, хотя я надеялся, что вопрос программирования динамических блоков заинтересует многих.