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

arter_2006

            Set swgtol = swgtol.GetNext

! S# r( _3 p9 @4 Q5 ^如下所示代码，能执行成功，但老是上面这句报错，请大侠指点，谢谢



! T6 @& z4 c+ B! f2 n6 M+ P5 `
Const toLayer4 As String = "符号"


Sub main()
: v$ S: f: z/ K: n  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
$ M4 U9 e" x1 R" Q0 I4 X  Dim LyrMgr As LayerMgr
" ~4 z; r$ E2 ]" b/ ]- t3 v7 M  Dim Layer As Variant
! X# \3 k5 P( S- t) Z* a( n. a  Dim swDraw As SldWorks.DrawingDoc
7 z5 n7 `" \3 l0 i$ N1 V/ ^  Dim swView As SldWorks.View
9 F6 L9 u" |2 L6 g9 j" p0 b  Dim swAnn As SldWorks.Annotation
9 c6 _- I- w' g" ]
Dim swgtol As SldWorks.gtol


4 _( }) O0 I% }6 H  

# S( O+ v. G- W) Y6 |  Dim numshts As Long
  Dim i As Long
  Dim SheetName() As String
: K) F# d4 f" @) ]5 H: b  Set swApp = CreateObject("sldworks.Application")
: e# t; K5 U* m# t5 ]3 l. b  Set swModel = swApp.ActiveDoc
: d1 v2 f9 k9 Q  Set LyrMgr = swModel.GetLayerManager
  Set swDraw = swModel
  
. V9 A! Z+ e: P3 D. B; R# r  LyrMgr.DeleteLayer ("符号")
  Layer = LyrMgr.AddLayer("符号", "符号", RGB(0, 0, 0), 0, 0) '指定顏色

   
+ t8 \; k% D5 h$ [+ a. `  numshts = swDraw.GetSheetCount
  For i = 1 To numshts
( e' d  Q- J' e4 x$ c8 P. G' T    swDraw.SheetPrevious
  Next i
  For i = 1 To numshts
    Set swView = swDraw.GetFirstView
5 o. E# f( j/ O6 z5 M    While Not swView Is Nothing
   
: z/ v1 X8 M  |, q' ?9 O& ~
        Set swgtol = swView.GetFirstgtol
' }# X" W- y4 S; g" z        While Not swgtol Is Nothing
            Set swAnn = swgtol.GetAnnotation
% @- ]( L* X; l. R6 h( P            swAnn.Color = -1
4 \. _6 r& ^% j) g8 W8 A% ]( A            swAnn.Layer = toLayer3
# |. [* e4 C4 r5 r8 b            Set swgtol = swgtol.GetNext
; v) ?/ m  p# v) Q$ {' W' A        Wend

/ W9 m( z3 H$ j9 a8 [6 C! W8 E
. ]; `& h3 s5 X8 _8 E1 v1 ~. C         
: D. a$ X1 A( O/ D5 r* ]        Set swView = swView.GetNextView
1 H5 \6 }" o; {) s: l/ T2 L    Wend
( S2 Q5 d; \0 N2 }    swDraw.SheetNext
3 g2 S5 v/ Z1 A& o9 R. m    Dim swLayerMgr As Object
. R! C$ |7 V' |; k% E    Dim swLayer As Object
3 D7 \- ~% ]/ C" q* g    Set swLayerMgr = swModel.GetLayerManager
    swLayerMgr.SetCurrentLayer ("")
  Next i
9 B2 ?  O9 ]1 a  C/ P) X& Q& v  I  SheetName = swDraw.GetSheetNames
( D* ^4 L7 E+ ]% R  swDraw.ActivateSheet SheetName(0)
End Sub



$ y( [* ?  w: Z: Y1 G

鑫森淼炎垚

不能成功解压啊。

arter_2006

注：从新下载后把后缀改成swp,或直接复制上面的代码。
2 ^' J5 j$ B: m) _3 Z) y4 w