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

arter_2006

            Set swgtol = swgtol.GetNext
9 ^, [3 @7 k6 @# o& ~
如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
. `0 T0 }+ A. q2 N& T. B: K
% T+ E; H$ i, O
# Y8 D2 {2 K+ }7 }6 K+ s

' z6 H5 S" g. F( [' i; I3 aConst toLayer4 As String = "符号"
0 X* L3 C7 S& \) y9 c+ I, Q) S

. R, c4 W: Y- M, D) B+ D5 lSub main()
  \% d+ ^6 r4 G; q  p/ X& ?1 N  Dim swApp As SldWorks.SldWorks
2 |6 i& U+ P$ E, N- s+ {3 H  Dim swModel As SldWorks.ModelDoc2
7 F  P, q, x2 G1 [$ U  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
: M& R  ]; h3 [9 [' b  Dim swView As SldWorks.View
" ]/ T; U% P5 m7 P4 _& ?  Dim swAnn As SldWorks.Annotation

Dim swgtol As SldWorks.gtol
7 a) G  V& _4 @5 S7 ?

  

) l3 I  b9 j, T$ u  Dim numshts As Long
0 F/ H' F8 k3 J0 @! n: j+ o  Dim i As Long
& k+ {8 V; o$ m+ h# {  Dim SheetName() As String
( q8 e0 E/ z. x  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
5 _/ i6 I$ r1 F7 ~  Set swDraw = swModel
  
  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

) S( ~6 a' R0 C   
* [4 ]5 \* W, |& }6 t; ~% s  numshts = swDraw.GetSheetCount
. ]- s- q) _$ g! F% L6 u( i+ v  For i = 1 To numshts
4 m" o$ i  `5 z/ _  ~- y    swDraw.SheetPrevious
5 p' W) C* O# I: V; E  {) q% x  Next i
  For i = 1 To numshts
! g5 k6 w! Z5 W9 S    Set swView = swDraw.GetFirstView
! {2 X3 E  H$ F9 @% I    While Not swView Is Nothing
( N5 S) B( j- k' X   
6 a  W6 H! D9 n
        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
; u0 U  G% i/ X: b$ }  O            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
2 S$ M( {, _( G& g) Z            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
        Wend
# W, w5 H6 a1 r9 Y3 _
' a# c, g' J' s. ?7 }3 L
, o' q3 ~4 ^  c' _/ H( [% W         
        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
+ F, K; q- q! h  r8 @. h    Dim swLayerMgr As Object
; e3 v; q+ {: z# C! @8 @    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
( w8 j6 ^0 s9 L- h4 z    swLayerMgr.SetCurrentLayer ("")
  Next i
0 l, l4 N0 B2 Z4 f+ ]  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
* w. K" `; f  h: `+ t6 Q) ^3 r# AEnd Sub
$ Q* l5 G  L1 j) A8 d+ ?4 w5 ^
& A' _% S; w. D$ W
) A8 [* r' Y/ Q( ^% `' l
) y5 p; D3 t$ a; v: I/ F! e) x

arter_2006

# N* k1 F1 r0 \' u

注：从新下载后把后缀改成swp,或直接复制上面的代码。
; Y3 m9 o; e8 z8 F3 B3 ~9 S8 S# b

鑫森淼炎垚

不能成功解压啊。