公差标注移层设色成功，为何还报错？

arter_2006

            Set swgtol = swgtol.GetNext

如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
' a" [2 }( B4 F0 l
" z: P* E  S: e, x7 D: s  L


Const toLayer4 As String = "符号"

2 a& J+ _+ y% E9 t$ N+ \
9 I& j; o6 k: P, ]Sub main()
  Dim swApp As SldWorks.SldWorks
5 @8 v: W; c* D  L! U' Z  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  k9 F' j  J" Q3 v3 d  Dim swDraw As SldWorks.DrawingDoc
3 O2 a9 ~4 |$ z* b  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

Dim swgtol As SldWorks.gtol
! |& K2 V( P+ {* Q) W, L( d# x
& ~5 j; W9 c" o3 R9 f
  

  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
5 `- I8 v" h4 n) e. Y  Set swModel = swApp.ActiveDoc
( Y8 J; e# P( b  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
' d. e2 x  R) B  
8 u5 X) A" E4 \; T" a' v8 U& B: t  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

) c  K) M- g5 c   
  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
. C" _+ k- l1 ~) }- l! I6 k' B- G    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
2 M6 T; v# P, Y4 d4 c) I    Set swView = swDraw.GetFirstView
5 P3 E( h( X& A    While Not swView Is Nothing
   
9 Y; _# r* u7 H+ O$ S2 w7 |/ ?
% E' d# t* I& w; `        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
% M  T6 [/ d7 h! A, ^/ A( y            swAnn.Color = -1
            swAnn.Layer = toLayer3
8 _" u- J2 z0 d) v# B1 x' i            Set swgtol = swgtol.GetNext
8 w+ }9 s9 i: S8 J6 F3 G, Z7 d% G" P        Wend
7 m$ t+ S0 W# J% p* u& z; {
; a2 J. H2 U: s7 ?4 Z: E) T
         
4 k5 m: C0 Z  p& W5 M/ ], w' J        Set swView = swView.GetNextView
0 i  b+ F$ ~5 c: t    Wend
. \: r0 j8 y$ G4 N) \9 J2 s    swDraw.SheetNext
    Dim swLayerMgr As Object
    Dim swLayer As Object
9 o1 J  g0 g6 R- q    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
. h& b# S: x& {- K) Z: [/ ^  Next i
  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
End Sub

& M2 C1 h2 q9 }( Z/ R

9 L# }% S, V8 m/ l# |

鑫森淼炎垚

不能成功解压啊。

arter_2006

6 t) }2 F* [4 A7 E% S$ s
* F% R0 L4 J3 D3 X: L
注：从新下载后把后缀改成swp,或直接复制上面的代码。