[VBA]求助：怎么选择集中的总数和实际总数对不上呢？？

胡说 · 发表于 2006-1-19 21:33:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET_OBJ")
If Err Then
Err.Clear
Set ssetObj = ThisDrawing.SelectionSets("SSET_OBJ")
End If

' Add objects to a selection set by prompting user to select on the screen
' ssetObj.Clear
ssetObj.Clear
FilterType(0) = 0

FilterData(0) = "CIRCLE"

ssetObj.SelectOnScreen FilterType, FilterData
sngSum = ssetObj.Count

通过以上代码选中的16个圆，而sngSum却等于50？？

雪山飞狐(lzh) · 发表于 2006-1-29 21:57:00

把你的文件传上看看？

macula55 · 发表于 2006-2-12 21:58:21

不可能吧！是点选还是框选？检查一下有的圆是不是隐藏了。

qiaqiadeng · 发表于 2006-2-28 14:53:19

如此这般即可：
zoomall
On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET_OBJ")
If Err Then
Err.Clear
Set ssetObj = ThisDrawing.SelectionSets("SSET_OBJ")
End If

' Add objects to a selection set by prompting user to select on the screen
' ssetObj.Clear
ssetObj.Clear
FilterType(0) = 0

FilterData(0) = "CIRCLE"

ssetObj.SelectOnScreen FilterType, FilterData
sngSum = ssetObj.Count
ZoomPrevious

账号		自动登录	找回密码
密码			立即注册

[VBA]求助：怎么选择集中的总数和实际总数对不上呢？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子