如何得到当前选中的对象的handle信息?

twosun

我可以实现这样的功能，先点击“选择工具按钮”，再点击对象，按回车，则弹出窗口显示选中对象的handle。
vb.net代码如下：
Public Function GetSelectObject()
Dim sset As AutoCAD.AcadSelectionSet
Dim i As Integer On Error Resume Next
If Not IsDBNull(Glb_AcdDoc.SelectionSets.Item("SelectCurrent")) Then
sset = Glb_AcdDoc.SelectionSets.Item("SelectCurrent")
sset.Delete()
End If
sset = Glb_AcdDoc.SelectionSets.Add("SelectCurrent")
sset.SelectOnScreen() Dim entry As AutoCAD.AcadEntity
For Each entry In sset
'MyForm.ListBox1.Items.Add("")
FrmCls.addText(entry.Handle.ToString)
Next entry sset = Nothing
End Function 但不知道下面所述的功能怎样实现。
先选中对象，再点击“工具按钮”，则直接弹出窗口，显示选中的对象的handle？
还想请高手指点，谢谢！

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28516

twosun

多谢版主，正是我想要的。