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

Тема: Объекты "только для чтения" в обработчиках ObjectAdded, ObjectModified?

На событие ObjectAdded вешается обработчик:

Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
  Dim Entity As AcadEntity
  Dim Line As AcadLine
  If TypeName(Object) = "IAcadLine" Then
    Set Line = Object
    Line.Color = acRed
  End If
End Sub

На строке 

Line.Color = acRed

ошибка "Object was open for read", т.е. получается что свойства добавляемого объекта нельзя изменить? Как это лечить?

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

Re: Объекты "только для чтения" в обработчиках ObjectAdded, ObjectModified?

во-первых, при входе в обработчик взвести флаг, что это именно мы ковыряем объект
во-вторых, перенести собственно модификацию объекта в обработчик события CommandEnd
по завершение манипуляций в этом обработчике флаг сбросить.
у меня работает сто пудов такая конструкция