公差標注移層設色成功，為何還報錯？

arter_2006

            Set swgtol = swgtol.GetNext
: P/ H, z, X6 E6 A0 T
0 k' I( ^9 E- O) e' c如下所示代碼，能執行成功，但老是上面這句報錯，請大俠指點，謝謝

+ C5 c% m/ p4 j/ U
' _6 Z- F# q' X7 t0 c7 {7 l

* `, x' k! g( @7 gConst toLayer4 As String = "符號"
* l, Z6 @( u. d8 B

* u+ K6 _" J* c5 p9 CSub main()
/ p, B$ f/ V; G8 o& T. o  Dim swApp As SldWorks.SldWorks
- W; y" t) l) u& U" e* L  Dim swModel As SldWorks.ModelDoc2
6 G3 P, o# g' n3 E  Dim LyrMgr As LayerMgr
1 @, K$ o0 y. ~  Dim Layer As Variant
) u* _& Q( S1 I# }* Y  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation
  u/ Y% ?* T" n1 H2 r
6 e6 `3 D) }" S5 H+ R+ J  q7 x3 |7 W Dim swgtol As SldWorks.gtol

* G5 d% b1 U( O. w, @" s
- G" R3 [3 |6 V6 l1 Y  
( B* q# c- d+ S3 B
  Dim numshts As Long
2 ]7 {# r4 L$ w$ P  Q! m& g4 k  Dim i As Long
  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
+ c7 e+ C" Z0 |: B! _9 D  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
  
# p+ v+ j# y* R, v. k! K' E% b+ X  LyrMgr.DeleteLayer ("符號")
7 T1 z& b- Q( w" R  Layer = LyrMgr.AddLayer("符號", "符號", RGB(0, 0, 0), 0, 0) '指定顏色

   
  numshts = swDraw.GetSheetCount
+ D; \: r1 ^+ B, q0 \3 o  For i = 1 To numshts
5 o) q+ U8 }1 g0 Y8 c$ D    swDraw.SheetPrevious
" n6 N0 i7 ]% A! Q0 K. X9 i  Next i
9 w% _* V3 o4 p$ {( \  For i = 1 To numshts
7 `$ ~6 {( I4 }+ u! |  D2 F7 b0 M    Set swView = swDraw.GetFirstView
9 ]" ^9 @0 X* V& `/ B/ |2 {$ l    While Not swView Is Nothing
   

        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
( d* ?/ S$ y4 Y: l            swAnn.Color = -1
            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
/ |$ m: M4 q7 E& t7 m        Wend

) p8 V9 {% o  H/ T) Z
0 N$ h8 C8 v* }( r         
        Set swView = swView.GetNextView
8 A8 u# ^- ]0 E+ Q. p0 k    Wend
" M0 i% b) w7 _; Z; m8 G8 Z    swDraw.SheetNext
    Dim swLayerMgr As Object
+ ~0 p, b% _2 U: v( ?0 {' I    Dim swLayer As Object
2 c/ R! m0 n* I0 O+ z, e- x) w    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
2 w1 z0 \' ]. K$ _% W  Next i
# g' f% l; V! N( ~& D  SheetName = swDraw.GetSheetNames
- w, r9 B5 X) A& Z5 F! |  swDraw.ActivateSheet SheetName(0)
End Sub
% b( n6 M$ }# N+ h& d
/ c& @$ F0 s$ C. C2 a

( O9 u3 E+ \: J/ j+ y

鑫森淼炎垚

不能成功解壓啊。

arter_2006

  Y) E0 G/ Z1 t& m' V  N( p

注：從新下載后把后綴改成swp,或直接復制上面的代碼。
2 b% U' i% D- d# D; f0 S