公差标注移层设色成功，为何还报错？

arter_2006

            Set swgtol = swgtol.GetNext
( l3 B! w3 k1 y; |* _' t5 {' i
如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢


( m: u* c3 c6 d0 h+ }" R$ {& M
1 |2 T2 x+ n- a. T5 F( T
% y! d2 F. V' v7 U2 cConst toLayer4 As String = "符号"
8 c5 m# }0 D, F' J

Sub main()
. r- [! u3 |) R) R) `* m) n# R  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  Dim LyrMgr As LayerMgr
/ d4 j# l, K) W1 |& n! ^# a& y  Dim Layer As Variant
; J6 q9 {- I8 `. _2 p% v. u  Dim swDraw As SldWorks.DrawingDoc
# J5 K5 c4 g- R& b6 l5 k  Dim swView As SldWorks.View
2 {* s+ ~5 H( r, H. `& E9 s9 d: v  Dim swAnn As SldWorks.Annotation
  N2 D- }) f  d3 v, P" `7 g( x
Dim swgtol As SldWorks.gtol


  

  Dim numshts As Long
  Dim i As Long
1 m6 q  |' O9 r* Z: E. g' U/ A  Dim SheetName() As String
3 z; V# v/ ~2 s2 o) Y9 j  Set swApp = CreateObject("sldworks.Application")
1 S& o; ^* K: R  w. G  Set swModel = swApp.ActiveDoc
: s8 [9 q& ^/ u  G0 F( ~  Set LyrMgr = swModel.GetLayerManager
. F- q$ h1 A. K$ E/ e7 `/ B6 _  Set swDraw = swModel
# B$ D3 `6 N* F' Q% [: o  
! h3 `# }& `* r6 f3 q( _, ~! n  LyrMgr.DeleteLayer ("符号")
3 [8 w6 H# B5 V+ }& N9 a  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

3 u5 R1 y  o% N" f2 {   
  numshts = swDraw.GetSheetCount
# W2 T' M  Q! p& _2 b8 {* K# x' f  For i = 1 To numshts
    swDraw.SheetPrevious
; m! D2 _! N1 Q! \# G, E4 x, x  Next i
% w9 W9 j: g- F# m( C: B1 ]  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
    While Not swView Is Nothing
   

        Set swgtol = swView.GetFirstgtol
' V1 u& z, u9 L" g* v0 p) P3 c( \        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
            swAnn.Color = -1
6 w0 O2 c- i% @1 ~* `. }            swAnn.Layer = toLayer3
) B! W9 k# ?! q5 U. k3 p            Set swgtol = swgtol.GetNext
5 P$ D0 v4 ^$ ?8 e- F        Wend
" a! U/ r+ w, L8 r) V: }8 \

         
        Set swView = swView.GetNextView
    Wend
    swDraw.SheetNext
0 a; }/ Y% O" M7 A9 _3 V+ A9 ]    Dim swLayerMgr As Object
3 n' G& T5 q' E    Dim swLayer As Object
6 J* ~) |! K# r% w    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
  Next i
  SheetName = swDraw.GetSheetNames
  swDraw.ActivateSheet SheetName(0)
End Sub


4 ^% V% k6 }- ~) @
* ~* B( Q3 v% T, M( F% Q: w

鑫森淼炎垚

不能成功解压啊。

arter_2006

6 U0 D7 Z8 b' t" s, C; i8 j
+ W, y# M/ h: {5 ]* {4 T
' h$ P5 c; g7 A" _: [; t- t* c: K, _注：从新下载后把后缀改成swp,或直接复制上面的代码。