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

arter_2006

            Set swgtol = swgtol.GetNext

如下所示代碼，能執行成功，但老是上面這句報錯，請大俠指點，謝謝

6 L4 k% T5 ?4 m' |5 {8 `  p; l
* s- @% N: F6 M( I
6 C7 C5 C% n7 ~8 R" r) r2 Y  [4 u
7 l/ q. V6 e" f' t1 ?; PConst toLayer4 As String = "符號"

: H, x! ^3 F: J! U
Sub main()
5 l. J/ A& A! y  Dim swApp As SldWorks.SldWorks
$ o5 a. p- ], O5 T+ C0 m  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
9 K, f+ g8 x& E' {. `& f  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

Dim swgtol As SldWorks.gtol
4 V( X1 y1 \, ]1 e( Q
5 p0 R) {) }, [6 @2 x8 E. j
  

  Dim numshts As Long
  Dim i As Long
% ^( z; \$ p! B2 ]. u' s  Dim SheetName() As String
, C0 Z6 c% T! a" g' H+ S% z8 M  Set swApp = CreateObject("sldworks.Application")
7 N! L" A5 z3 K$ _) t  |4 m! U, A  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
% p0 [; _9 v5 \) s" G) P$ k  Set swDraw = swModel
" {; `! x! Z  |  L2 p# V* P$ z7 m  
. \# I, g( R. u8 B3 R% Z  LyrMgr.DeleteLayer ("符號")
# E# V8 P7 o7 e! S; y6 y  Layer = LyrMgr.AddLayer("符號", "符號", RGB(0, 0, 0), 0, 0) '指定顏色
6 P* x! M: Q/ E+ s6 R; g' ?
   
  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
    swDraw.SheetPrevious
& ]" `% C# X1 Y. d/ n# j+ K  B* J( K6 ^  Next i
6 K$ [6 s& u( @& k  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
% Q. H+ @! H% p; N   

% t8 i& Y5 X6 C5 b6 Y        Set swgtol = swView.GetFirstgtol
) k' b) |: _+ ?# H, v5 Y        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
$ E$ b' l. ?5 c/ b, A( F: N            swAnn.Color = -1
            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
        Wend
* B8 X! F5 H7 B$ V' f4 z% {  e
( J4 V/ r" q- n( O  ?8 Q7 R
         
4 v6 ~! I+ e" ?        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
# h/ y9 u7 L. e4 y    Dim swLayerMgr As Object
    Dim swLayer As Object
* ^& M, _6 N0 K/ D' s; A; [7 G    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
2 @( T6 g9 n9 C- [4 q  Next i
# }; p$ u/ a, U3 i  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
) e7 t( }$ ^/ f- N( bEnd Sub
* z* |6 u) y( V+ q

/ Y/ {3 {2 {1 r0 V7 y. i( }2 L

鑫森淼炎垚

不能成功解壓啊。

arter_2006

8 M: n$ C2 s/ m% e, O* J

注：從新下載后把后綴改成swp,或直接復制上面的代碼。