• На форуме с 3 августа 2004г.
  • Сообщений: 20
  • Спасибо: 0

Тема: AcadDocument_SelectionChanged - получить выделяемый объект

Как в событии AcadDocument_SelectionChanged()
обратиться к последнему выделяемому объекту на чертеже?
Спасибо.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: AcadDocument_SelectionChanged - получить выделяемый объект

Const MY_SET As String = "127.0.0.1"
Private Sub AcadDocument_SelectionChanged()
    Dim ss As AcadSelectionSet
    Dim en As AcadEntity
    On Error Resume Next
    Set ss = ThisDrawing.PickfirstSelectionSet
    Set en = ss.Item(ss.Count - 1)
    MsgBox en.ObjectName
    ss.Clear
End Sub