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

arter_2006

            Set swgtol = swgtol.GetNext
4 e* W/ f$ j' ?8 J" ?2 m+ x" B* [, ?
: W+ ~6 J3 j# d' `/ k, L0 b6 o如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢



/ S# U5 Y0 l; X* B4 j; }
: m+ u1 D( O, n" _" pConst toLayer4 As String = "符号"

) U  q( F& r% }
1 g* h8 [7 Z$ b2 b4 pSub main()
- i$ A% P$ c$ B7 ~  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
$ m4 ]  G+ n) e3 K: q& [: t  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
6 P0 p7 Y9 T1 K5 p1 X  Y3 H: N
7 [. t( ^- W6 l- ` Dim swgtol As SldWorks.gtol

$ g2 S6 P  V  I8 A5 G2 }
  
- u- b( h5 B: l* z
8 t. E5 t# I+ _! J' ]: r  Dim numshts As Long
/ A+ m, E2 T, \& {0 w& G8 @  Dim i As Long
' V: a: C8 X* c+ x( A) s+ X# v  Dim SheetName() As String
) I+ |) i9 i* R$ r& I  Set swApp = CreateObject("sldworks.Application")
8 w- y: p- v5 e6 ]  K  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
' {$ U  ~: F! J6 [& R! S& R9 \" L1 n  
  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色
+ M8 H  _( o3 \9 ~  n
   
6 r% S7 }6 n% R) c0 e( L  numshts = swDraw.GetSheetCount
) I0 x& X2 C3 y  For i = 1 To numshts
    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
2 x0 ?6 h/ Z4 `: I    While Not swView Is Nothing
   
9 l$ f. N5 q; l2 f
        Set swgtol = swView.GetFirstgtol
8 q% K5 P% s" y' o. ?" ?+ ^        While Not swgtol Is Nothing
! K) U% d" c& K) Q$ @* k4 m            Set swAnn = swgtol.GetAnnotation
$ O) q% b% z' Y            swAnn.Color = -1
            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
( R2 g% ?8 A$ u' y& M        Wend

' q* t7 F% L" _( e8 f! l! E
         
3 Q" q* L  C" B0 y! ~, Y! W& H        Set swView = swView.GetNextView
& F  D7 L- \0 C    Wend
    swDraw.SheetNext
    Dim swLayerMgr As Object
    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
  Next i
9 ?0 y4 V8 B  }0 D, w6 z! g/ c1 h  SheetName = swDraw.GetSheetNames
4 W% _, g' A3 R' k8 A  swDraw.ActivateSheet SheetName(0)
End Sub
5 ^5 J+ c7 |6 }! g2 e

3 u5 n  f7 G0 q  X9 E& b7 p

鑫森淼炎垚

不能成功解压啊。

arter_2006

  F2 _3 [9 c7 G. v# d: `" h
9 \( h6 f% V+ R2 D$ p, N
4 }8 J; `% h0 V8 U) j注：从新下载后把后缀改成swp,或直接复制上面的代码。