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

Тема: SelectionChanged

для чего можно использовать данную процедуру, кроме того, что оговорено в хелпе? Можно ли определить, что именно выбрано? Если можно - простенький пример, плз.

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: SelectionChanged

Для какого контрола нужны примеры?

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

Re: SelectionChanged

Пршу извинений за неккорректный вопрос. Меня интересует реактор AcadDocument_SelectionChanged()

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

Re: SelectionChanged

Private Sub AcadDocument_SelectionChanged()
    Dim sset As AcadSelectionSet
    Dim i As Integer
    Dim s As String
    Set sset = ThisDrawing.ActiveSelectionSet
    MsgBox sset.Count & " objects are selected"
    s = " Selected objects IDs: "
    For i = 0 To sset.Count - 1
        s = s & vbCrLf & sset.Item(i).ObjectID
    Next i
    MsgBox s
End Sub

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

Re: SelectionChanged

лучше бы вместо этого:

Set sset = ThisDrawing.ActiveSelectionSet

использовать

Set sset = ThisDrawing.PickFirstSelectionSet

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

Re: SelectionChanged

Да, Вы правы, действительно лучше

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

Re: SelectionChanged

Огромное спасибо всем!!!