• На форуме с 7 июня 2004г.
  • Сообщений: 12
  • Спасибо: 0

Тема: AutoCAD 2006. Как получить доступ к данным блока?

Подскажите , как програмно добавить в блок (или взять) из блока различные данные .

  • На форуме с 7 июня 2004г.
  • Сообщений: 12
  • Спасибо: 0

Re: AutoCAD 2006. Как получить доступ к данным блока?

Добавляю.Относится только к v.AutoCAD 2006.

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: AutoCAD 2006. Как получить доступ к данным блока?

По точнее опиши проблему. Какие данные нужно добавлять?

  • На форуме с 7 июня 2004г.
  • Сообщений: 12
  • Спасибо: 0

Re: AutoCAD 2006. Как получить доступ к данным блока?

Различные данные к динамическим атрибутам.

  • Gogi
  • Восстановленный участник
  • На форуме с 25 мая 2004г.
  • Сообщений: 136
  • Спасибо: 0

Re: AutoCAD 2006. Как получить доступ к данным блока?

методом
GetDynamicBlockProperties
для  BlockReference
получиш коллекцию  DynamicBlockReferenceProperty.
У каждого из членов коллекции есть своиства. Посмотри в хелпе на  DynamicBlockReferenceProperty

  • Glot
  • Восстановленный участник
  • На форуме с 27 июня 2005г.
  • Сообщений: 11
  • Спасибо: 0

Re: AutoCAD 2006. Как получить доступ к данным блока?

Две функции:

Public Function ВзятьПараметр(ByVal Объект As IAcadBlockReference2, ByVal ИмяПараметра As String) As Variant
Dim Параметр As Variant
Dim Параметры As Variant
    Параметры = Объект.GetDynamicBlockProperties
    For Each Параметр In Параметры
        If UCase(Параметр.PropertyName) = UCase(ИмяПараметра) Then
            ВзятьПараметр = Параметр.Value
        End If
    Next Параметр
End Function
Public Sub ПоложитьПараметр(ByVal Объект As IAcadBlockReference2, ByVal ИмяПараметра As String, ByVal ЗначениеПараметра As Variant)
Dim Параметр As Variant
Dim Параметры As Variant
    Параметры = Объект.GetDynamicBlockProperties
    For Each Параметр In Параметры
        If UCase(Параметр.PropertyName) = UCase(ИмяПараметра) Then
            Параметр.Value = ЗначениеПараметра
        End If
    Next Параметр
End Sub