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

arter_2006

            Set swgtol = swgtol.GetNext

) Q2 Q1 r' m" _. m# ?如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
. D: x. X: X4 f6 r
* k0 ~9 K% J8 U1 z* s/ U4 @# p% q/ a

" E6 h8 u% `! T- R& R/ s9 q8 S
Const toLayer4 As String = "符号"
4 g' D0 p6 C+ v6 N, I+ B- J# o
2 n# ?8 X( ~9 i+ s- ~3 D5 d' p
4 f: e) ?8 g1 C) t5 ^: jSub main()
+ T2 L% n- ^$ A- V  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

Dim swgtol As SldWorks.gtol
* {- E/ `( P, U, n6 `' X

$ K8 s9 U! K" c" b: G( e5 M  

  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
; s# K; z' I% ?. J/ B$ T% b' _8 X% G  Set swApp = CreateObject("sldworks.Application")
$ |: O4 S6 R( B, z# J5 q  Set swModel = swApp.ActiveDoc
0 S# N) A$ H" U( I; K  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
, o" P+ M) J, i. U4 W0 e% V$ O  
1 w% v4 Q; P- Q9 o% @# A  LyrMgr.DeleteLayer ("符号")
3 Z. l2 R% ~$ N7 B/ k  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

/ W. e7 |! U  {1 p- s0 S! h  ?* r   
  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
* c  Z2 j  `: m7 c8 z* N9 y4 P    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
* ?% Y( b- N# Z+ Y    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
/ v- X1 i' |- C0 k% L   
0 N1 J, L+ d+ S/ a
& m: R* _% m9 a3 @" b' }7 R- z; b+ `        Set swgtol = swView.GetFirstgtol
; C& A+ r* m3 J2 f6 N( {        While Not swgtol Is Nothing
% B: X8 N, O; ^) x# d. K8 P0 o* p7 B            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
* {. [' ~. R2 _' d7 T5 U+ I            swAnn.Layer = toLayer3
  ~5 ^8 j& U7 P* N. z# l            Set swgtol = swgtol.GetNext
) `; E$ _/ S* t: L        Wend

  p$ |" Q% [3 f. ?% M4 e( j9 u
         
        Set swView = swView.GetNextView
    Wend
0 P  y- Y7 Y4 |/ R' u! s, i    swDraw.SheetNext
& O8 `8 I, F  S' [5 g5 \) L    Dim swLayerMgr As Object
    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
5 m- w! f: d' N/ @4 u, r    swLayerMgr.SetCurrentLayer ("")
  Next i
  SheetName = swDraw.GetSheetNames
8 t% u( j9 E6 Q: t" a, A7 k  swDraw.ActivateSheet SheetName(0)
End Sub
0 R1 \4 O5 B7 T- Z


, T% z$ m6 K. v$ r  l

鑫森淼炎垚

不能成功解压啊。

arter_2006

! e& W; D( _) H. ^$ Y! X
0 [" M( `- O/ u7 u
注：从新下载后把后缀改成swp,或直接复制上面的代码。