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

arter_2006

            Set swgtol = swgtol.GetNext
1 A" T  ]. z0 V# `8 T9 g+ s! [2 r
如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
7 w" W6 T0 \) r8 a6 T. s/ e
1 F2 p3 `8 }$ |; d# U. j6 ?6 R

' {( T# {/ K5 H3 a6 t, @
Const toLayer4 As String = "符号"
$ t; o8 i/ q9 }+ l

Sub main()
  Dim swApp As SldWorks.SldWorks
1 l- w" r7 a3 F! H  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
6 c* b+ R& o8 ~% P" o  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

; n, S# ^+ q8 a4 m Dim swgtol As SldWorks.gtol

7 ^& J7 @" J. ?: W+ k0 M2 q
  

  Dim numshts As Long
- |/ R% n3 F& J+ R$ N/ }) a" b8 x  Dim i As Long
  Dim SheetName() As String
: B  S! l! Q* Z% n  p  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
6 }. @+ `5 X/ J% E% K+ G  Set swDraw = swModel
  
2 |, L% @$ d. d/ ]; \9 u/ T  LyrMgr.DeleteLayer ("符号")
9 Q9 Q, a3 o1 `; ]* Z, q  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色
/ \+ N1 N9 O  i% b6 O$ q( P6 D$ e" B
: [% @8 M! a, A& w   
! o* g2 u  a% M6 n; }  numshts = swDraw.GetSheetCount
1 Q; r0 U( u7 i0 V% L  For i = 1 To numshts
( J2 Z3 j/ s! |4 e+ l    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
& _+ h# t& }( s% p* P" @, t# A    While Not swView Is Nothing
# L0 o( T! G& [6 t" V1 ~   

        Set swgtol = swView.GetFirstgtol
) Y' L6 @+ R6 p' X8 F! K9 g        While Not swgtol Is Nothing
9 }  t1 \/ Z, T            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
. U0 j5 W8 u6 P3 Y            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
/ c( o. V: }6 \$ `        Wend

+ V+ M& o9 C  G4 {  [
         
        Set swView = swView.GetNextView
; n6 t2 D+ F. z1 H, H( M+ t    Wend
3 R" G' q% V- Y: w( ]    swDraw.SheetNext
    Dim swLayerMgr As Object
+ e3 q2 x0 k: M. V' L% I    Dim swLayer As Object
6 i8 E) h: T3 I/ x7 U4 S6 C    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
, L+ r  A: K8 i1 D/ j  ~9 O; w  Next i
  SheetName = swDraw.GetSheetNames
- p' P: y6 f* N4 j( ?  swDraw.ActivateSheet SheetName(0)
End Sub



% {" y5 X/ o. ~) u. N# `3 l1 `

鑫森淼炎垚

不能成功解压啊。

arter_2006

3 X) g+ c* W1 H0 t0 e

' ]* f( B  \  R注：从新下载后把后缀改成swp,或直接复制上面的代码。
* z0 a$ }, Y' k# E6 P' {