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

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

我可以实现这样的功能，先点击“选择工具按钮”，再点击对象，按回车，则弹出窗口显示选中对象的handle。<BR>vb.net代码如下：<BR>Public Function GetSelectObject()<BR>                                                       Dim sset As AutoCAD.AcadSelectionSet<BR>                                                       Dim i As Integer


                                                       On Error Resume Next<BR>                                                       If Not IsDBNull(Glb_AcdDoc.SelectionSets.Item("SelectCurrent")) Then<BR>                                                                                       sset = Glb_AcdDoc.SelectionSets.Item("SelectCurrent")<BR>                                                                                       sset.Delete()<BR>                                                       End If<BR>                                                       sset = Glb_AcdDoc.SelectionSets.Add("SelectCurrent")<BR>                                                       sset.SelectOnScreen()


                                                       Dim entry As AutoCAD.AcadEntity<BR>                                                       For Each entry In sset<BR>                                                                                       'MyForm.ListBox1.Items.Add("")<BR>                                                                                       FrmCls.addText(entry.Handle.ToString)<BR>                                                       Next entry


                                                       sset = Nothing<BR>                       End Function


但不知道下面所述的功能怎样实现。<BR>先选中对象，再点击“工具按钮”，则直接弹出窗口，显示选中的对象的handle？<BR>还想请高手指点，谢谢！

雪山飞狐_lzh 发表于 2005-5-25 21:11:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28516" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28516</A>

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

多谢版主，正是我想要的。
页: [1]
查看完整版本: 如何得到当前选中的对象的handle信息?