[求助]如果判断用户是否已经在屏幕上选择了几个对象？

zfbj

在程序中想实现“先选择、后操作”的方式，如果判断用户是否已经在屏幕上选择了几个对象？

zeng29

这里只贴上一段示例代码.

2. Sub GetOldSel()
   
3.     Dim SetObj As AcadSelectionSet
   
4.     Set SetObj = ThisDrawing.PickfirstSelectionSet
   
5.     Debug.Print SetObj.Count
   
6.     Debug.Print SetObj(0).ObjectName
   
7. End Sub

Sub GetOldSel()<br />     Dim SetObj As AcadSelectionSet<br />     Set SetObj = ThisDrawing.PickfirstSelectionSet<br />     Debug.Print SetObj.Count<br />     Debug.Print SetObj(0).ObjectName<br /> End Sub

zfbj

多谢曾版主

myfreemind

多学一招！

mccad

在二次开发栏目还有更详细的讨论：
http://www.mjtd.com/a2/list.asp?id=434