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

arter_2006

            Set swgtol = swgtol.GetNext

如下所示代碼,，能執(zhí)行成功，但老是上面這句報(bào)錯(cuò),，請(qǐng)大俠指點(diǎn)，謝謝
! ?0 T( F# E4 E# C# o! T& ]


% e# V0 X, S) W# O$ G) y- D1 W
Const toLayer4 As String = "符號(hào)"
6 j  E9 |  S: y, p, v

6 q. J; C4 H/ }% P; a( zSub main()
4 M5 _/ s8 _+ S6 z, X- ~' ^* T  Dim swApp As SldWorks.SldWorks
5 S# ?4 O" }3 \4 r" g0 b  Dim swModel As SldWorks.ModelDoc2
* ]' b# ?5 V+ h1 G! v" W  Dim LyrMgr As LayerMgr
  Dim Layer As Variant
  Dim swDraw As SldWorks.DrawingDoc
6 A! a1 W" Q& p7 ?& e0 V  Dim swView As SldWorks.View
0 m6 t4 C2 K0 R* J/ v4 m1 [  Dim swAnn As SldWorks.Annotation
7 j, C! M6 @3 C  J) f! t+ L* r
7 }  k" f3 {" V& [0 l! U: Q Dim swgtol As SldWorks.gtol
: v8 X, ~4 l4 A5 I) r0 C* s$ P
* k; I" h+ l( L4 m: W
  
  d+ X5 K" x" G6 C$ v3 N% N2 W# I
  Dim numshts As Long
" m. [' G5 h1 r0 @  I  Dim i As Long
  Dim SheetName() As String
/ M6 G# |8 Y* t  K" p  Set swApp = CreateObject("sldworks.Application")
( j8 V9 y# d/ K8 m- |9 ]' w- Z6 B  Set swModel = swApp.ActiveDoc
! U9 P8 }* v" s6 N  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
. z9 C$ c3 M) P+ E) \" S& q) a6 s  
5 F, |* \1 j; b4 \" k3 M+ |& b  LyrMgr.DeleteLayer ("符號(hào)")
8 q; }0 s! Q6 c' p. R  Layer = LyrMgr.AddLayer("符號(hào)", "符號(hào)", RGB(0, 0, 0), 0, 0) '指定顏色

( }6 s: C% j* c4 C: x" [# d   
+ u' N# r4 M$ c5 E, i  Z' ~% ~  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
& i& R2 z6 s2 P/ I2 z    swDraw.SheetPrevious
  Next i
0 U& J& ]1 p, L# T! y) Z  For i = 1 To numshts
4 O- n6 A! V0 L  {: X* X: g    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
9 G! e7 M9 t- P) B. Y0 x4 p   

% Z, v, H7 Z* ^1 }& k* P# f0 n        Set swgtol = swView.GetFirstgtol
        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
+ G8 a# m% Q6 r  I  ]8 x            swAnn.Layer = toLayer3
$ x  Q) A9 g5 t, X            Set swgtol = swgtol.GetNext
        Wend
! H2 c- t6 e) j+ y  j- f$ \9 J- x
  D' T* B& x& ]' J2 F
         
        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
    Dim swLayerMgr As Object
. l4 m7 l" ]5 m# L    Dim swLayer As Object
    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
4 y5 ?( m2 o/ [- `  Next i
  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
End Sub


4 z+ }* [) L+ t, X* H

鑫森淼炎垚

不能成功解壓啊。

arter_2006

注：從新下載后把后綴改成swp,或直接復(fù)制上面的代碼。
/ C( O, d' V+ d