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

arter_2006

            Set swgtol = swgtol.GetNext

" ~8 e6 r. y0 h如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
  H  G$ l1 R' n* Q: e( v
! A5 Z+ m/ O" E
1 L) u1 E) A; x/ f/ S

5 \. a# ]' }' \Const toLayer4 As String = "符号"


Sub main()
  Dim swApp As SldWorks.SldWorks
* S& I% z" A( Q/ g  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
" S" b0 x' d- q9 H" S  u# @  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
, ^8 f4 h1 N  E8 a; H
Dim swgtol As SldWorks.gtol
: `; ]4 r3 L, Q6 L

  

  Dim numshts As Long
  Dim i As Long
' S, v  R. D  Z( X$ s  Dim SheetName() As String
, W  b2 h" ?+ X! h6 |# S4 P" u8 {  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
! O7 v- e) T% B6 z  Set LyrMgr = swModel.GetLayerManager
2 d, `% l: J7 Z: v( L& w6 J  Set swDraw = swModel
  
# R0 R& r  ]9 z; C) m" ^  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

( _7 Q7 _/ }+ ?   
7 Z3 b2 H4 P1 d. }2 R0 U  numshts = swDraw.GetSheetCount
8 `# }$ r2 Z2 b3 h+ s8 E& K  For i = 1 To numshts
) X( m3 j4 m3 t% m8 j    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
( M# V' f/ h: ?; X( L. S    While Not swView Is Nothing
   

1 Q5 p9 U1 U& X. S% K        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
$ R2 j! ^5 g" t9 U" W! z/ b1 G            swAnn.Layer = toLayer3
1 C$ E8 v( y, N7 f9 K7 J: M            Set swgtol = swgtol.GetNext
! V2 {+ E4 L4 l. `# R# Q        Wend
7 x" \; O* \, E: W

* c8 I+ F2 L6 Z1 [+ L         
        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
: F, C5 V9 p* R3 k0 B7 h    Dim swLayerMgr As Object
/ b3 r* E5 v) d    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
2 _, c7 D! u5 z2 N2 m    swLayerMgr.SetCurrentLayer ("")
( D- |6 b; _5 \5 A' ~  Next i
' ]) Q# Z+ ^; J2 D  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
" D, n- n- @3 _& k) y2 C0 g  BEnd Sub



# M7 `. }( E7 V3 |5 ?9 s" p

鑫森淼炎垚

不能成功解压啊。

arter_2006

" A; ^; Q" Z) G* T
. C. A$ z4 L0 B* Q
注：从新下载后把后缀改成swp,或直接复制上面的代码。