soilidworks 图层设置宏总不成功

arter_2006

鄙人录制的图层设置宏总不成功，但录制的别的宏就可以，哪位高手能否指点下？非常感谢！
, Y  D. }! j3 w- M

' ******************************************************************************
Dim swApp As Object
0 D6 A. o0 l0 t) E9 g6 m8 a
" [' z4 f. P1 h: g, [Dim Part As Object
6 ]6 f4 A8 A% G4 Z# oDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
" R0 u1 I; X0 k9 t% O) C: x: K
( Q7 t! [$ R. l2 `0 Y1 q% tSet Part = swApp.ActiveDoc
) g0 i1 @- z1 X( }* `" I
' Zoom To Fit
Part.ViewZoomtofit2

' Zoom To Fit
Part.ViewZoomtofit2

, f; _0 A4 M: I  m: O' Zoom To Fit
3 s( x9 `/ q! G. V+ l( |% ~- kPart.ViewZoomtofit2

' Save
Dim swErrors As Long
! K6 `( i5 H: Z8 o' PDim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
3 O$ j- ^1 Y. b- |End Sub
/ K$ T, q) p3 E* w, F( ~( L
  C  c. B  I6 o; B$ b& v

( i, R) M& m. S# V! O2 T7 l9 Y

冷月梧桐

图层问题，明明可以把模板设置好就可以的了，为啥要多走弯路？？

2011ayoon

虽然不太懂，但是怎么看里面也不像有设置图层的语法

远祥

软件有问题了吧！