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

arter_2006

            Set swgtol = swgtol.GetNext

; l) Z9 i0 X. z) O$ v$ `如下所示代碼，能執(zhí)行成功，但老是上面這句報錯，請大俠指點(diǎn)，謝謝
1 V/ L, j$ a' a, ]- y

* B4 c- U! d& o  Y6 ?2 {( t# g
! K9 n' f  g* B# ~0 T* i/ ^
9 ]1 ~7 p" \( |" \5 LConst toLayer4 As String = "符號"

0 \! o5 |3 K. ~  v0 \
Sub main()
  Dim swApp As SldWorks.SldWorks
" P, g, X4 z- T7 t$ s1 B+ f; ?/ v  Dim swModel As SldWorks.ModelDoc2
+ _# }# @/ X: G& R# a  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
+ J2 P$ A. F8 m$ I4 \+ m' i  Dim swDraw As SldWorks.DrawingDoc
  Dim swView As SldWorks.View
0 \' G$ |" V1 m! o) R& S- k  Dim swAnn As SldWorks.Annotation
+ h  b. f4 T, V0 M
* }4 k+ U' i2 B% u- e Dim swgtol As SldWorks.gtol
1 w3 r# C  Z2 c0 `' W

  
0 L# l2 P* R4 B
  Dim numshts As Long
  U& k7 J) R. Z, k2 z' y4 A- U  J  Dim i As Long
  Dim SheetName() As String
  Set swApp = CreateObject("sldworks.Application")
  Set swModel = swApp.ActiveDoc
  Set LyrMgr = swModel.GetLayerManager
9 q/ Q) Y/ t+ s  `) w9 J  Set swDraw = swModel
  
8 m) k% S  S. I, G) ]& u2 i3 a  LyrMgr.DeleteLayer ("符號")
% S4 @' p  B1 p+ {4 q/ ]  Layer = LyrMgr.AddLayer("符號", "符號", RGB(0, 0, 0), 0, 0) '指定顏色

   
  numshts = swDraw.GetSheetCount
7 ?3 \* J# |! n  For i = 1 To numshts
    swDraw.SheetPrevious
1 Q5 m% d& C1 l+ _  Next i
" m( |% C" }+ S* n: N" L3 }! s3 f  For i = 1 To numshts
! a7 _. V: j8 l+ D    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
% s, P$ ~( {- q; h; b/ w2 N0 j1 Q   

        Set swgtol = swView.GetFirstgtol
) \/ D2 w: h$ ^) h% f        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
: K% M8 [% b6 g            swAnn.Color = -1
0 L7 z; F; J+ R            swAnn.Layer = toLayer3
            Set swgtol = swgtol.GetNext
        Wend

& C$ |& K( D; F- r3 Y1 v
         
        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
    Dim swLayerMgr As Object
    Dim swLayer As Object
8 M) ^& ^0 g, p' a% l9 |' W    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
  Next i
  SheetName = swDraw.GetSheetNames
3 E/ S8 p8 \  a/ X8 m1 e& S# t  swDraw.ActivateSheet SheetName(0)
End Sub
8 ?  H+ d6 c* s$ |4 ~* E" i) X

鑫森淼炎垚

不能成功解壓啊。

arter_2006

2 e1 V- u! G: u1 g% i注：從新下載后把后綴改成swp,或直接復(fù)制上面的代碼。