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

arter_2006

            Set swgtol = swgtol.GetNext

% o0 c9 T5 E% {; b/ ~1 l如下所示代碼，能執行成功，但老是上面這句報錯，請大俠指點，謝謝
2 o8 `" k, _5 ^) D  P9 f( m
& X- z/ Q( @; t0 w) S
2 G, K& J! D" j5 A# W) U/ x

Const toLayer4 As String = "符號"

; n! q6 F: f  x7 p/ J
Sub main()
4 l& B, O2 U- z- c" J  Dim swApp As SldWorks.SldWorks
  n" @: C; f1 S8 S  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  b4 u5 K5 P2 g7 D* W% R/ `+ r  Dim swDraw As SldWorks.DrawingDoc
+ l( b9 L7 Z. m( ^  Dim swView As SldWorks.View
  Dim swAnn As SldWorks.Annotation

2 T+ c/ E( F8 y9 k6 i/ }% ~ Dim swgtol As SldWorks.gtol
# A- F1 n0 _# G
+ Y8 @) q, z3 p4 U5 B0 P9 Z
  

  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
9 |& w$ W) ~; e; |/ n) I9 b- t9 i  Set LyrMgr = swModel.GetLayerManager
* b- S- \- D; H0 y9 i$ b5 W: V0 k  Set swDraw = swModel
  
$ g% g: s5 L+ e6 v( ~  LyrMgr.DeleteLayer ("符號")
  Layer = LyrMgr.AddLayer("符號", "符號", RGB(0, 0, 0), 0, 0) '指定顏色
; ~& J* ]$ x& u0 U8 S
   
  numshts = swDraw.GetSheetCount
% N% I& @: u0 S0 A* B/ h  x: p2 P  For i = 1 To numshts
    swDraw.SheetPrevious
  Next i
, q- V6 U+ d' s# l  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
8 J2 C- I. K& a1 T$ I+ j# O    While Not swView Is Nothing
( q* T' ?5 Y9 U. ?. V+ s   

, J" }% D, b: t$ H        Set swgtol = swView.GetFirstgtol
9 g; c5 \2 S" ~  ]- }        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
            swAnn.Layer = toLayer3
6 o: j) X. q' z/ t- r5 P            Set swgtol = swgtol.GetNext
8 |; }% ]% q! Z1 ?; Y4 j9 c8 h        Wend

$ P5 J' n. {. M, x9 y
: Q( d& A2 ^' k4 ?) M2 q         
        Set swView = swView.GetNextView
    Wend
6 l8 h0 m) r. w% m0 U  [    swDraw.SheetNext
    Dim swLayerMgr As Object
6 V( z. N2 G+ G1 I8 T# x    Dim swLayer As Object
' z( M2 c4 h# L9 b# y9 L    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
! ~: f9 @# [$ [+ |5 H( o  Next i
0 ^8 b) h1 m& q) u  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
End Sub

/ E. K9 y8 [4 n
8 D- u% l3 ]# K) Z

鑫森淼炎垚

不能成功解壓啊。

arter_2006

& ]7 |: |+ W) D+ V0 d  R* q注：從新下載后把后綴改成swp,或直接復制上面的代碼。