公差標(biāo)注移層設(shè)色成功，為何還報錯？

arter_2006

            Set swgtol = swgtol.GetNext

如下所示代碼，能執(zhí)行成功，但老是上面這句報錯，請大俠指點，謝謝
  c' `+ f0 P& j: _9 L" M( t6 i% o' W3 T

2 }' r4 w4 c  g; ]% @9 }$ Q
9 O2 G! H2 e& @2 J# q$ K
; n) T1 Q6 u6 ?' WConst toLayer4 As String = "符號"
/ d5 T3 A% n2 o$ w

Sub main()
) C! `9 r/ _) k- y/ O: M( Y  Dim swApp As SldWorks.SldWorks
& K3 X* p) S  |7 |3 \  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
" \& F8 [  M$ K& T, r  Dim swAnn As SldWorks.Annotation

1 P! M7 W* T( t: }# \& |- g Dim swgtol As SldWorks.gtol

" L; \2 b3 z3 ^2 [
. R' V% `7 f2 W9 h4 @% V# x  
: G  a) w3 B9 b
  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
" M6 r2 w# F# E/ B; E4 }  Set swApp = CreateObject("sldworks.Application")
; O5 b+ V0 K! M/ w1 ~5 r5 R- f, |  Set swModel = swApp.ActiveDoc
8 y% i, l5 Y# Q0 A; r7 N  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
- `! }9 x% y6 n% t$ A9 y+ r) D  
# T) h- @( U8 J5 ?) z' t9 @* q  LyrMgr.DeleteLayer ("符號")
9 `! Q* W. K7 }, w8 U& \  Layer = LyrMgr.AddLayer("符號", "符號", RGB(0, 0, 0), 0, 0) '指定顏色
* Z% c6 ~* ?! c" x3 W) \1 q9 S: R7 `
; ~4 \/ w' x$ l2 F, G   
  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
5 E' g5 X% ~" Q0 V; c5 F    swDraw.SheetPrevious
: m2 |. y+ V8 d7 r" z7 W& m2 h  Next i
  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
+ \" j0 h6 s: L/ U& v3 d6 T    While Not swView Is Nothing
1 ~$ r4 O. z) g0 d! u   
  R  W) s3 z5 n. \
        Set swgtol = swView.GetFirstgtol
$ K! ^4 o+ y5 k. y8 Y) }& |        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
9 W7 A. W: w- g            swAnn.Color = -1
& R# S3 d3 K# ]. ^# M- _1 Q            swAnn.Layer = toLayer3
( c3 {* [5 y0 r5 _& T. U            Set swgtol = swgtol.GetNext
        Wend


3 @/ @/ a, i0 b- M         
        Set swView = swView.GetNextView
9 `8 S# D: O* p" o. m/ ^+ @" P4 P    Wend
, k, A9 }4 `8 f    swDraw.SheetNext
9 f' P! Z) J: Y    Dim swLayerMgr As Object
; _7 x: o( k2 w) g+ W& n( a4 L    Dim swLayer As Object
4 E" a3 y  y) Q" U3 [; [- \# q; ~    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
5 I+ x$ Z' _% n5 P  Next i
7 \6 K. d# \( y" G  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
1 u0 r6 t' i9 B- M  e% O2 EEnd Sub
1 z& s( P" ], D. y* U5 |

  Z+ p' ]0 [1 ]* l# v4 m* ~( D; C% @8 U
+ Z0 ~4 |6 B2 ^, r/ j

鑫森淼炎垚

不能成功解壓啊。

arter_2006

: x. ]# w' k9 I' R) m# z' l
注：從新下載后把后綴改成swp,或直接復(fù)制上面的代碼。