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

arter_2006

            Set swgtol = swgtol.GetNext

如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢

2 c8 e4 p" S) h# k- y* x) D


/ R1 \. O% r, X# uConst toLayer4 As String = "符号"
4 a# L. J5 `6 b1 _2 B# a
3 C; z1 D8 H0 D  R5 M4 U
Sub main()
, ]- e1 i* y$ K" `. s8 Q2 M4 F' I  Dim swApp As SldWorks.SldWorks
% n2 B1 g% ]' H. r0 a1 [" K  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
4 u4 X% Q# ]5 v: P# E& w+ L  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
2 X1 c8 P$ L: R) ]# q7 H
Dim swgtol As SldWorks.gtol


5 _  J7 R8 \, n  

  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
% y& ^! N; ?) V3 }  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
/ n) t# S6 R' I$ b/ D( A  Set swDraw = swModel
  
  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

8 u; a7 r! y9 q   
  numshts = swDraw.GetSheetCount
, l- Q2 r7 c/ }  For i = 1 To numshts
    swDraw.SheetPrevious
; A5 `. x9 G; V9 E2 _, [  Next i
  For i = 1 To numshts
) g- u$ q9 K  c6 R    Set swView = swDraw.GetFirstView
6 j2 v& |" M2 P! f# Q; T; S    While Not swView Is Nothing
   
8 S; W: Y' o% ~
7 y3 V* y* C, E0 K6 \        Set swgtol = swView.GetFirstgtol
) g. t8 k# p  E1 G        While Not swgtol Is Nothing
0 ^4 u- i  k+ _1 |2 a* c& Y            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
        Wend
9 A0 X& [. H3 D' u# @* N

; \1 `/ _4 P2 c1 l$ V         
1 v* F  B8 w  _3 b- d/ t( c! I        Set swView = swView.GetNextView
    Wend
) B( c( i( M  n" M    swDraw.SheetNext
    Dim swLayerMgr As Object
    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
  Next i
" S% G; i6 r3 n+ B1 u& L  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
End Sub

  X6 k# k2 t- d+ L* t, B$ S" k

鑫森淼炎垚

不能成功解压啊。

arter_2006

6 ]: T" z0 Q+ r6 B9 E注：从新下载后把后缀改成swp,或直接复制上面的代码。