我可以实现这样的功能，先点击“选择按钮”，再点击对象，按回车，则弹出窗口显示选中对象的handle。
vb.net代码如下：
Public Function GetSelectObject()
Dim sset As .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？
还想请高手指点，谢谢！
置顶卡
