soilidworks 图层设置宏总不成功

arter_2006

鄙人录制的图层设置宏总不成功，但录制的别的宏就可以，哪位高手能否指点下？非常感谢！

7 ^& b, u( y" Z2 y2 p% h; s$ Y6 K6 E
+ X4 D y* [0 Z' ******************************************************************************
Dim swApp As Object
0 W0 s. q' |! Z4 K
: {( E4 s1 t6 u$ bDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
9 P2 {: g% n# q! ?& L; b
' M4 G0 }) x" G* ?1 ZSub main()

$ p. K+ G! n0 q- f: GSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
2 v1 {4 k9 d$ `6 \4 m7 k
' Zoom To Fit
/ `$ n4 E( w( F' Y; cPart.ViewZoomtofit2
5 J$ y' B4 ]6 {( D W+ z9 ?* e
% f% o/ |2 J; I' Zoom To Fit
Part.ViewZoomtofit2

/ D; \/ q& B9 h' Zoom To Fit
Part.ViewZoomtofit2

' Save
Dim swErrors As Long
8 V( p9 E3 Y" o8 Z2 \$ qDim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
% [' [8 M1 y- Q, n k( VEnd Sub



$ e0 R1 ~) v# h' n1 I! X ?! _
- `% f8 h8 x" w0 T: i
% ?. ]+ K' \+ j' j& ^

冷月梧桐

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

2011ayoon

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

远祥

软件有问题了吧！