• Forester
  • Восстановленный участник
  • На форуме с 26 ноября 2007г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Назначение переменной на параметр динамического блока с помощью VBA

Здравствуйте, Уважаемые. Извиняюсь, если случайно продублировал тему, но в поиске нашел решение только посредством LISP (пока не разбираюсь). Меня интересует решение в ВБА. Хочу программно при вставке динблока задавать его длину. Никак не могу найти свойство, на которое назначить переменную.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Назначение переменной на параметр динамического блока с помощью VBA

Public Function SetDynProperty(objBlock As AcadBlockReference, _
                              PropertyName As String, _
                              PropertyValue As Double)
Dim lCounter As Long, arDynProp() As Object
On Error Resume Next
  If objBlock.IsDynamicBlock Then
    arDynProp = objBlock.GetDynamicBlockProperties
    For lCounter = LBound(arDynProp) To UBound(arDynProp)
      If UCase(arDynProp(lCounter).PropertyName) = UCase(PropertyName) Then
        arDynProp(lCounter).Value = PropertyValue
        Exit For
      End If
    Next lCounter
  End If
End Function

Примерно так...

  • Forester
  • Восстановленный участник
  • На форуме с 26 ноября 2007г.
  • Сообщений: 9
  • Спасибо: 0

Re: Назначение переменной на параметр динамического блока с помощью VBA

Огромное спасибо, Алексей, сейчас попробую!