[sergtranes]

добрый всем день
написал две функции вставки дин. блоков:
1. вставляет блок с параметром "Point" и акцией "Strech" - работает нормально.
2. вставляет блок с параметром "Distance" и акцией "Strech"

Код:

[Выделить все]

Set oBlock = ThisDrawing.ModelSpace.InsertBlock(InPo, "PitVV2", 1#, 1#, 1#, 0#)
dynProps = oBlock.GetDynamicBlockProperties
dynProps(0).Value = CDbl(Dept)

- результат после вставки нет доступа к параметру (как будто его и не было и в пропертиc не видно) и значение параметра странное : -5.123...**14
м.б. кто-нибудь уже попадал ?
спасибо

[Олег (jr.)]

А так?

Код:

[Выделить все]

dim dist as variant
dist=1.2345
  Dim props() As AcadDynamicBlockReferenceProperty
  Dim i As Integer
  props = blkRef.GetDynamicBlockProperties
  Dim prop As AcadDynamicBlockReferenceProperty
For i = LBound(props) To UBound(props)
Set prop = props(i)
If prop.PropertyName = "Distance"  Then
prop.Value = dist
End If
Next i

[sergtranes]

добавить
Dim prop As AcadDynamicBlockReferenceProperty
...?
все остальное делал так же.
..попробую
/
/
Олег, спасибо
работает !!!
жаль только бесцельно прожитую неделю!
еще раз спасибо
/
нашел настояшую причину проблемы:

Код:

[Выделить все]

Set oBlock = ThisDrawing.ModelSpace.InsertBlock(InPo, "PitVV2", 1#, 1#, 1#, 0#)
dynProps = oBlock.GetDynamicBlockPropertiesdyn
Props(0).Value = CDbl(Dept)
.
.
oBlock.YScaleFactor = piDia

изменение масштаба отменяет динам параметр "Distance"!
Олег, все равно спасибо -вывел на мысль