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

arter_2006

            Set swgtol = swgtol.GetNext
6 n4 h& c: C. |$ l- O: ^& A
如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
; M0 q" v, ?0 Y/ D6 H5 C4 d



1 T3 K+ F5 p7 ?7 T/ v; H$ JConst toLayer4 As String = "符号"


Sub main()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
( C2 b" h2 m3 w5 i( b  Dim Layer As Variant
- y2 x9 x" u+ H  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
+ \. m6 @" l/ T, B2 u4 P
( i+ ]7 x3 g. c" ^/ @ Dim swgtol As SldWorks.gtol


  
5 x& K" V  m$ P4 K  w
  Dim numshts As Long
; F) G- N5 V4 u8 a1 m9 J0 d6 A& [  Dim i As Long
. c: [3 `/ G; ~$ t2 U0 D  Dim SheetName() As String
; f; Y/ T. l9 J1 X& T  Set swApp = CreateObject("sldworks.Application")
+ e0 `/ D+ s* O4 ~, J6 d7 T  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
& V$ n. R# o' E. u' E. `  
% {" V& m: ~8 z; q, `+ G  LyrMgr.DeleteLayer ("符号")
2 K  M2 F3 i( i; O+ L  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色
6 w' z6 X2 n& t' z0 j# u
& a" ^  y' z6 u, P   
1 N6 }. o6 P. u9 m  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
+ r' y" r' b8 a# W    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
. u7 U, `7 \3 A% N1 j, \3 {% E   
+ |! k* _- q& Z' J+ ?
8 ~- H. K' W( M8 B) N* b        Set swgtol = swView.GetFirstgtol
2 G8 y; b6 I3 Z$ Z/ F+ A        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
  ?0 ?5 o2 l9 s3 E& J7 B9 l            swAnn.Color = -1
            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
        Wend

3 t& o& }) x0 c+ x
4 S/ H% Z1 U& T         
! _5 I" H6 H' b+ _% Q. ]" Z. c2 V        Set swView = swView.GetNextView
7 v) \) b1 i0 W* I2 C' [    Wend
( \3 R% R2 M% Y, [    swDraw.SheetNext
# w9 y, P7 R3 H, z/ W2 h    Dim swLayerMgr As Object
. v2 B. x; g& r: S+ c) ]" R) h6 t+ R0 {    Dim swLayer As Object
4 {. n' a- E; h& {7 [    Set swLayerMgr = swModel.GetLayerManager
/ D; W+ C3 S: ]- n0 B    swLayerMgr.SetCurrentLayer ("")
  Next i
  SheetName = swDraw.GetSheetNames
- J/ Z' ]5 D( O0 B8 X8 j+ g  swDraw.ActivateSheet SheetName(0)
End Sub
9 F) _( K1 F6 ~$ p- s( R  a


* B9 [0 L  ?+ p) L. m/ j

鑫森淼炎垚

不能成功解压啊。

arter_2006

4 ^* s5 N' |! g) A

注：从新下载后把后缀改成swp,或直接复制上面的代码。