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

arter_2006

            Set swgtol = swgtol.GetNext

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



$ K5 B8 b! f1 h6 o  H
/ f7 E- }" r' g9 t; A: [1 wConst toLayer4 As String = "符號"


Sub main()
$ Y, e# d1 P5 t- U) Y6 j) t! v  Dim swApp As SldWorks.SldWorks
) s. t) T, @. C  Y1 T; z% O  Dim swModel As SldWorks.ModelDoc2
2 o; X4 l: h4 S6 _3 {) F* f  Dim LyrMgr As LayerMgr
1 b9 A7 `4 h! z$ I  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
6 c) X- T- |  @. F" x: _; V  Dim swAnn As SldWorks.Annotation

2 g' S) ~2 Q0 U, C" [ Dim swgtol As SldWorks.gtol
2 y1 b. I- p8 Y7 Z2 u

  
) t+ }" F0 g. H3 I; q
' o* N, \- Y! L. C; n- B  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
# \: f! G2 K" Y' B5 n9 l  Set swApp = CreateObject("sldworks.Application")
% {! [& \- k3 |% i3 y  Set swModel = swApp.ActiveDoc
( F( _6 [3 L- G  x9 ~  Set LyrMgr = swModel.GetLayerManager
2 S2 k  \1 \+ K/ |  Y" J  Set swDraw = swModel
+ \3 t3 c% O( \7 z3 v- l$ _  
: V# w5 G3 Q$ d  J9 y  LyrMgr.DeleteLayer ("符號")
) U$ L7 }$ d9 ~* v2 U3 g7 S2 W  Layer = LyrMgr.AddLayer("符號", "符號", RGB(0, 0, 0), 0, 0) '指定顏色

( K  b- l# r* ]   
  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
    swDraw.SheetPrevious
# G: y8 o' b6 e/ ~9 N; u  A9 b  Next i
  For i = 1 To numshts
1 w& [1 J0 k6 s( {' ^# p; d    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
$ X- ?1 C; \$ J' N, S0 i   

2 N7 [0 T9 M3 T        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
! {4 g, [- d8 C! z9 A8 L0 g            Set swAnn = swgtol.GetAnnotation
1 J  n* N2 b- O7 ~# c$ Y( P: Y; B& E            swAnn.Color = -1
% `. p7 ]: c- e* x7 o            swAnn.Layer = toLayer3
- H( P* u1 O: v& V$ M            Set swgtol = swgtol.GetNext
        Wend
$ f* f) j! h( @. w

         
8 m1 Z. D. D, X. G, {+ m        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
% ]' E& T8 a8 w# o- e    Dim swLayerMgr As Object
5 f. G- ~1 Q8 `8 T  }2 p    Dim swLayer As Object
, ~) c% `  H' B* X4 O- r    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
- K# ~& u: Q: W2 _2 O. X- n$ g  Next i
) D( ~# _+ |$ j  SheetName = swDraw.GetSheetNames
" t3 W- z* r, r  t1 q% Z  swDraw.ActivateSheet SheetName(0)
& \3 l* h- S+ o) l7 M* kEnd Sub


* t' n  e  N; |1 B

鑫森淼炎垚

不能成功解壓啊。

arter_2006

; [$ ]; g* \( u
1 M3 ~/ T1 T# h& Z6 ]注：從新下載后把后綴改成swp,或直接復制上面的代碼。
5 B7 w) F' d: Z* @" L