zfbj 发表于 2003-12-18 10:57:00

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

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

zeng29 发表于 2003-12-18 11:46:00

这里只贴上一段示例代码.
Sub GetOldSel()
    Dim SetObj As AcadSelectionSet
    Set SetObj = ThisDrawing.PickfirstSelectionSet
    Debug.Print SetObj.Count
    Debug.Print SetObj(0).ObjectName
End Sub

zfbj 发表于 2003-12-18 14:03:00

多谢曾版主

myfreemind 发表于 2003-12-18 18:32:00

多学一招！

mccad 发表于 2003-12-18 22:04:00

在二次开发栏目还有更详细的讨论：
http://www.mjtd.com/a2/list.asp?id=434
页: [1]
查看完整版本: [求助]如果判断用户是否已经在屏幕上选择了几个对象？