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

arter_2006

            Set swgtol = swgtol.GetNext
( ~+ Y( q! A: u% s+ i& X5 Y8 A; l2 v
/ p. [8 P2 ?* D' l# r) s如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢
2 f, T& |2 S! P
; d# w" ^) X$ b  Q- ?% [
8 K# `  ?7 X; K8 e# \' U
, l7 v3 I# J5 V
Const toLayer4 As String = "符号"
. l5 d8 l9 B& D5 w- {$ G: o

& R# H. L5 u% `Sub main()
1 K5 N4 r; Y; `+ ?  Dim swApp As SldWorks.SldWorks
& r% ^3 {. Q: e% m4 d1 U  Dim swModel As SldWorks.ModelDoc2
1 r. q* N9 Q# Q4 u4 R& l; C9 [/ k  Dim LyrMgr As LayerMgr
" k. G- W5 S3 f' l- m7 R$ ^  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
1 k' W7 L1 q: s0 @; ]1 h
1 T9 x3 ^6 w! y4 ?" ^2 d Dim swgtol As SldWorks.gtol
1 i6 D/ R, d, }
1 N/ A5 K' K7 h  |( L# \4 ^% e
1 f$ ?# C" a; Y8 X( {4 d5 v/ i3 W  
8 c+ t7 r) E2 V/ D- O* i3 x& V2 P
9 c: J' w( ^) L8 j) {, R; x6 M  Dim numshts As Long
  Dim i As Long
3 ]9 Q5 r0 K& ~6 k+ d  Dim SheetName() As String
, `8 y0 Y7 |: P4 R- R$ }: H  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
# f* ]. c* h' s; ~, |5 Z& H5 t  
  X6 D+ B' |7 d5 \) }0 q  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

  p5 d! a8 ]& n* I- u) p   
6 ?' r/ R: E/ {: `# U  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
" }1 `8 F7 P$ i: W3 |8 a2 T5 Y" r    swDraw.SheetPrevious
8 M( I8 [2 y: y; F/ ^( a  Next i
) \3 B* O: F6 @% U: w9 j3 N$ b  For i = 1 To numshts
1 r) d& i0 p+ M9 H    Set swView = swDraw.GetFirstView
7 x1 Q: t9 f4 U+ \    While Not swView Is Nothing
   

& u2 @) D$ u) T' V1 M* g9 J        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
3 F) c8 ]9 ^' k6 i$ z; ]  O) U            swAnn.Color = -1
2 Z5 m" G; [1 \            swAnn.Layer = toLayer3
( x4 ]+ K7 |6 J- e            Set swgtol = swgtol.GetNext
        Wend
" E8 B# W" R, [
+ W6 a% W: q4 v7 K$ ?2 u
3 \5 q! Q) \8 |         
; h( k& x& k4 k2 N* e        Set swView = swView.GetNextView
, u7 Q4 q; ^7 j    Wend
    swDraw.SheetNext
( S4 g+ X8 B+ E, H: f7 M, ]) c    Dim swLayerMgr As Object
: g* w$ z6 _8 A8 s8 {8 S    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
  Next i
: @6 T8 `9 @; Y  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
End Sub

8 b( D$ \9 X* t7 l8 m3 w# _

) F1 |# E$ ]% Y% N' |6 d  H

鑫森淼炎垚

不能成功解压啊。

arter_2006

1 i/ [$ Q" L" ~5 W注：从新下载后把后缀改成swp,或直接复制上面的代码。
3 B' B1 V& A( ]* ~8 q, n