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

arter_2006

            Set swgtol = swgtol.GetNext

5 I% q: r# L$ U' C" W7 G如下所示代碼，能執(zhí)行成功,，但老是上面這句報(bào)錯(cuò)，請(qǐng)大俠指點(diǎn),，謝謝
' L5 e0 d0 T; `, c
+ R( u' p5 @1 p5 h
" w1 o1 E" Y3 A: K

Const toLayer4 As String = "符號(hào)"


# I; y; h1 z; ]/ M5 |# e8 u" KSub main()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
. ]: F8 d5 M- X  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

Dim swgtol As SldWorks.gtol


: h$ ~' ^* j) _' \6 n2 _/ `  

6 K0 `5 y% I% k% Q% |2 b& _; r0 |9 {  Dim numshts As Long
7 R/ U# {/ |2 O  Dim i As Long
  Dim SheetName() As String
1 I$ t) U& S) J2 A1 C, d0 s% X  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
. g7 X2 ?$ _2 h$ o6 S  Set LyrMgr = swModel.GetLayerManager
5 d# H( e: o( K/ B3 O3 ~8 r) ~9 _  Set swDraw = swModel
, E' z3 m1 ~8 w  
3 D7 O9 _# {+ J. Q, g  LyrMgr.DeleteLayer ("符號(hào)")
  Layer = LyrMgr.AddLayer("符號(hào)", "符號(hào)", RGB(0, 0, 0), 0, 0) '指定顏色
! J1 H9 a+ E7 T! k* W: m, b
   
  Y" O# V) Q; U! w) {' r  N  numshts = swDraw.GetSheetCount
) g# Q; D& e, v7 ~3 |+ b  For i = 1 To numshts
    swDraw.SheetPrevious
  Next i
% P% K, m' j6 q. o$ K- I4 j' }) ?  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
   

$ y; {6 j& ]4 X7 G, `        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
6 @9 \6 j- |0 T5 s$ a. D( H            Set swAnn = swgtol.GetAnnotation
8 _* @3 c5 t. n            swAnn.Color = -1
            swAnn.Layer = toLayer3
* a; W7 O% n' N4 C* A: `            Set swgtol = swgtol.GetNext
        Wend
# V2 \& M- M% v; k. y; Q$ V
) Z+ [; j/ a& k5 w
         
9 ^) _2 C; X: p4 p4 f, Y( t        Set swView = swView.GetNextView
    Wend
- Q8 I" B& B9 F( ^+ ]    swDraw.SheetNext
    Dim swLayerMgr As Object
" w' r6 K# }! G" Q    Dim swLayer As Object
  O* A& u' p& l) W- |3 S    Set swLayerMgr = swModel.GetLayerManager
+ D* u" ~8 g7 g0 x" J4 S/ S    swLayerMgr.SetCurrentLayer ("")
  Next i
# r* e. B$ d$ E% o  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
# W2 ?, P( Y& I  Z+ YEnd Sub

+ _) l/ H& p3 C
! e  R3 h4 S* n+ m' B

鑫森淼炎垚

不能成功解壓啊,。

arter_2006

1 g: F+ e& v- }2 ~* f2 ~! _
$ Q* L; y6 ]  n
' b8 h* c8 F- E+ Y1 k: ~4 n注：從新下載后把后綴改成swp,或直接復(fù)制上面的代碼,。