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

arter_2006

            Set swgtol = swgtol.GetNext
1 y( C0 V  t/ P0 v
" C& O# p0 p+ F1 ]- s. s如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
2 Z! T- Z* d3 b" X# b; J2 R
$ w3 m& _, h7 F; N
1 X$ H; g. U+ P  R. X7 R

$ ^/ D! Z( I; }! G! r7 DConst toLayer4 As String = "符号"


- r. w7 g9 z3 f# vSub main()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
$ C3 v: I. ~0 d3 d: G) M! U  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
5 h9 z2 @$ y* [6 j5 J
Dim swgtol As SldWorks.gtol


  
3 `0 o- |. U& \9 \: `& z
  Dim numshts As Long
9 Q8 }8 w4 N4 H  Dim i As Long
  P/ J  V9 f( Z* R* c3 y  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
. V! D5 r% `1 y; a9 }  Set swModel = swApp.ActiveDoc
: {8 F$ n; D" W  E. E- ?, T( W) a  p  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
  
8 }2 r- H- S( s  z4 i% I0 W% g  LyrMgr.DeleteLayer ("符号")
4 L0 B9 U$ J( j  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色
3 y; I7 a+ n* I+ Q' H9 a+ _( \
   
  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
    swDraw.SheetPrevious
2 G% ?9 m0 w8 @# |& g7 M  Next i
3 L) E' w" d* h% ^) x  For i = 1 To numshts
: U7 |2 `8 ?7 C# C. I* N- _    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
2 |8 `2 j4 B. i" s% r  p# P   

        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
( E3 G$ M  _. A% J            Set swAnn = swgtol.GetAnnotation
$ s$ Z) w1 x# p- X            swAnn.Color = -1
            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
        Wend
: X+ m5 d% l/ c& x, Z* A

         
  ~5 i) j& |$ d! @" i" m* D+ S        Set swView = swView.GetNextView
) J5 }% m- v  F# K5 h* o    Wend
1 D  P% S2 o' d8 f2 {. F# X( Q    swDraw.SheetNext
    Dim swLayerMgr As Object
    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
" g5 h. N9 a# ^7 O    swLayerMgr.SetCurrentLayer ("")
" T% U. M+ Y8 [' V  Next i
% h# m9 a. p& X; {; Q  SheetName = swDraw.GetSheetNames
, b  H+ z$ ~/ B# T8 U  swDraw.ActivateSheet SheetName(0)
4 y. @; ?: @' V* V5 e/ ^* }End Sub
* }" {( }9 O. N$ q% W  r5 l

  o# P1 p2 |: I! W9 m* O
/ Y. l; ]/ Z9 k: C2 W/ q0 X

鑫森淼炎垚

不能成功解压啊。

arter_2006

' @" ?, t8 e) n1 {8 S注：从新下载后把后缀改成swp,或直接复制上面的代码。
2 a+ L" b! P& Z' r5 X; ~5 c  n8 k# Z