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

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

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

发表回复

精选推荐