社区 › VB › 如何得到当前选中的对象的handle信息?

twosun 发表于 2005-5-25 16:00:00

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

我可以实现这样的功能，先点击“选择按钮”，再点击对象，按回车，则弹出窗口显示选中对象的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？
还想请高手指点，谢谢！

twosun 发表于 2005-5-26 09:27:00

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

查看完整版本: 如何得到当前选中的对象的handle信息?