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

Тема: Изменения значения параметра динамического блока

Добрый день! Подскажите пожалуйста! Имеется динамический блок, мне надо программно изменить его динамический параметр длины DISTANCE.
Программно узнать значения этого параметра я могу, но как изменить это значение????? Подскажите пожалуйста!!!!!
Привожу "кусочек" программы, в предпоследней строке я пытаюсь присвоить ему 222, но выдается ошибка.
Dim arDynProp, ss As Variant
Dim xx1, xx2 As String
arDynProp = ThisDrawing.ModelSpace.Item(номер блока).GetDynamicBlockProperties
For lCounter = LBound(arDynProp) To UBound(arDynProp)
xx1 = UCase(arDynProp(lCounter).PropertyName)
xx2 = UCase(arDynProp(lCounter).Value)
If xx1 = "DISTANCE" Then
UCase(arDynProp(lCounter).Value).String = "222"
End If
Next

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Изменения значения параметра динамического блока

> Андрей
Кажется должно быть так:

If xx1 = "DISTANCE" Then
arDynProp(lCounter).Value = 222#
End If

А лучше каждое свойство объявлять явно,
а потом менять для него значение
Если объявлять значение то тип его должен быть Variant
~'J'~

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Изменения значения параметра динамического блока

> Андрей
Вот залил сюда для примера рисунок и
модуль:

http://webfile.ru/1744683

Обрати внимание как строить фильтр для динамических блоков
а также как определяются параметры
~'J'~