soilidworks 图层设置宏总不成功

arter_2006

鄙人录制的图层设置宏总不成功，但录制的别的宏就可以，哪位高手能否指点下？非常感谢！
$ O, l& m9 k3 [* x4 `" z$ P
* T0 {( ~/ v" c+ G
$ ^! b5 o S8 Z5 m+ X( l' ******************************************************************************
0 c/ z" Z O" n! p, o3 l7 xDim swApp As Object
5 Z+ h: a0 R% t
Dim Part As Object
) |$ ^+ F. c) k/ B+ l' {Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
- l3 w& F5 r: _. e1 F, S4 R/ t5 a: l
Sub main()

* W7 g7 T- p+ F( a$ y2 P9 s6 ESet swApp = Application.SldWorks
4 s: n( o2 H) B2 P1 O. A; T" I
, f# ~) A* N( ~/ S2 {3 c3 pSet Part = swApp.ActiveDoc
, d+ O8 ] F- u6 c) d4 L* G W' p
' Zoom To Fit
; n5 i2 O% L* D DPart.ViewZoomtofit2

1 I7 I" ~% F& z9 [5 A' Zoom To Fit
0 C ^1 E b* M& LPart.ViewZoomtofit2
0 G; m' W, B; s, x8 X& E5 C' p$ s
' Zoom To Fit
8 n: ?. w" f- dPart.ViewZoomtofit2
# ?- H9 F2 K. @& ^! {' O% b" ?
' Save
' o& k: n6 z+ x) fDim swErrors As Long
Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
7 V- ?& v4 I: e) UEnd Sub
- l4 G8 ]" C K: k9 O


/ V: r6 i* c5 ~5 w2 ^, i
7 Z! N& y$ l6 y; a) c B

冷月梧桐

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

2011ayoon

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

远祥

软件有问题了吧！