[VBA函数]：向飞狐大哥请教关于"选择集名称无效"

luckyliya · 发表于 2006-4-13 14:10:47

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

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

×

我在编程时遇到以下问题: 在创建选择集前清空选择集,以免重名
但在程序运行中出现这样的问题
'清空选择集中已有的选择集,避免重名
  If ThisDrawing.SelectionSets.count > 0 Then
For i = 0 To ThisDrawing.SelectionSets.count - 1
   ThisDrawing.SelectionSets.Item(i).Clear
   ThisDrawing.SelectionSets.Item(i).Delete
Next
End If
当程序运行到ThisDrawing.SelectionSets.Item(i).Clear一段时
系统提示:选择集名称无效, 请问这是什么原因呢?
急盼回答!!!!在线等!!!!

雪山飞狐(lzh) · 发表于 2006-4-13 16:18:53

For i = 0 To ThisDrawing.SelectionSets.count - 1
ThisDrawing.SelectionSets.Item(0).Delete
Next

luckyliya · 发表于 2006-4-13 19:17:56

问题解决了,真心感谢飞狐大哥

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

[VBA函数]：向飞狐大哥请教关于"选择集名称无效"

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

相关帖子