• DEN
  • Восстановленный участник
  • На форуме с 20 сентября 2003г.
  • Сообщений: 34
  • Спасибо: 0

Тема: Редактирование атрибутов блока

Подскажите, pls, как в VBA отредактировать/изменить атрибуты уже существующего блока? В частности, атрибут Value.
Спасибо.

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

Re: Редактирование атрибутов блока

в общих чертах
Private Sub CommandButton1_Click()
Dim ent As AcadEntity
Dim blObj As AcadBlockReference
Dim ArrAttr
Me.Hide
ThisDrawing.Utility.GetEntity ent, 0
Me.Show
Set blObj = ent
ArrAttr = blObj.GetAttributes
ArrAttr(0).TextString = "new value"
End Sub