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

arter_2006

            Set swgtol = swgtol.GetNext

3 G. U; J0 ]* c- }5 `7 G" g" ?  T8 P如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
, i' I2 {! u9 \) r



) Y7 M) A; v# l( [/ H! AConst toLayer4 As String = "符号"
- J5 W5 O  L3 w+ ?  s
8 D' |- J) a8 @$ o0 L2 P. }$ [& `
Sub main()
* R! B4 }# R% Z  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
8 r3 l( w& v. d  Dim LyrMgr As LayerMgr
# a( \1 D+ w* Z+ D$ t; @  Dim Layer As Variant
, e7 D) D2 d3 o/ Y- l  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

Dim swgtol As SldWorks.gtol
5 ^: B; {7 I; c* g/ l- h

/ f3 y  s0 ?# m6 W; E* I& N  _+ a  

& F/ n- D' d% a$ w& |* d  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
! f, ^* Z/ }8 W  F* z$ P/ u& ~  Set swModel = swApp.ActiveDoc
8 h' J" i- ]3 c  Set LyrMgr = swModel.GetLayerManager
% N! |1 T4 B) ]7 ^1 L; D  Set swDraw = swModel
0 M5 w) r# R* S  
" \4 O: P+ B/ R  V+ v5 o8 ]  LyrMgr.DeleteLayer ("符号")
3 f2 T  l% `' D8 }( @- S  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

   
  numshts = swDraw.GetSheetCount
8 v# D4 F+ S& B2 `  For i = 1 To numshts
5 a2 `- m4 q* W/ N! x2 c    swDraw.SheetPrevious
8 A8 r0 P4 H  q* A$ Z$ J  Next i
% n0 ]: ?  }" `  [3 p  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
2 b1 K2 `2 l- ~0 ?/ t% {   

9 M& \# k8 g- b/ x        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
! O/ W, {/ p9 _            swAnn.Color = -1
            swAnn.Layer = toLayer3
" M5 x0 p% s, j6 i            Set swgtol = swgtol.GetNext
3 d, c! y1 Y. F/ D        Wend
  F5 q2 W, z2 C% H4 g4 i1 F
2 a& T% Q& j/ p8 c3 K0 J4 n2 v
2 x4 U1 `$ v) c, @* ?         
  O  |7 X% j0 f' k; F7 y        Set swView = swView.GetNextView
    Wend
9 J% P2 B2 c3 _0 X    swDraw.SheetNext
- K" F/ L: V% L3 s. M0 A    Dim swLayerMgr As Object
# p* P; x; T5 `! h0 h1 f    Dim swLayer As Object
% a2 V8 q% ?9 e' k. K    Set swLayerMgr = swModel.GetLayerManager
5 y& z- u- R/ A    swLayerMgr.SetCurrentLayer ("")
( p% P3 _0 {$ i- L  Next i
' s" e8 U; [% h1 N) x  SheetName = swDraw.GetSheetNames
/ U  d- ^5 Z: K9 _  swDraw.ActivateSheet SheetName(0)
End Sub
4 b- @; E2 H: E
' F2 w$ c) Y# E

鑫森淼炎垚

不能成功解压啊。

arter_2006

6 G  x: v, q. T6 [+ g3 \" t
6 l9 C* \& u9 a注：从新下载后把后缀改成swp,或直接复制上面的代码。