再次在选择集上
请有人知道从下面的代码中选择的对象的数量是否有限制？如果我的报价超过14600，有任何已知的限制吗？以后我要修改每一层！。
谢谢
ThisDrawing.SelectionSets.Add ("BOM1")
Set Ssnew1 = ThisDrawing.SelectionSets("BOM1")
Ssnew1.Select acSelectionSetAll
For Each Entity1 In Ssnew1
On Error Resume Next
If Entity1.Layer = MyNome(i - 1) Then
If Entity1.Layer <> "0" Then
Entity1.Layer = MyNome(i) 'array containing the list of array.
Debug.Print Entity1.Layer, Conteggio
Conteggio = Conteggio + 1
End If
End If
Next
在我看到的代码中，我想说的是，您可以选择的最大项目数将为零。我没有看到任何类型的变量：它们都是变体吗？我不知道变量“I”在哪里被引用，所以它会被设置为零，所以“MyNome（I-1）”返回一个-1的数组索引。。。那就错了。
此外，在循环中继续设置错误陷阱“On error Resume Next”，而没有陷阱的匹配端（On error Goto 0）。这可能会在大型选择集中给您带来麻烦。 感谢您的支持，
代码运行良好，即使没有很好地注释或未定义所有变量，主要问题是选择集函数可选择的最大项数。
如果您确信没有限制，我将深入研究代码。
当做
页:
[1]