再次在选择集上

PeterPan9720 · 发表于 2022-7-6 22:54:08

请有人知道从下面的代码中选择的对象的数量是否有限制？
如果我的报价超过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

rocheey · 发表于 2022-7-6 23:50:46

在我看到的代码中，我想说的是，您可以选择的最大项目数将为零。我没有看到任何类型的变量：它们都是变体吗？我不知道变量“I”在哪里被引用，所以它会被设置为零，所以“MyNome（I-1）”返回一个-1的数组索引。。。那就错了。

此外，在循环中继续设置错误陷阱“On error Resume Next”，而没有陷阱的匹配端（On error Goto 0）。这可能会在大型选择集中给您带来麻烦。

PeterPan9720 · 发表于 2022-7-7 00:02:26

感谢您的支持，
代码运行良好，即使没有很好地注释或未定义所有变量，主要问题是选择集函数可选择的最大项数。

如果您确信没有限制，我将深入研究代码。

当做

[编程交流] 再次在选择集上

发表回复

精选推荐