soilidworks 图层设置宏总不成功

arter_2006

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


4 i$ s( X: [0 T0 Q' ******************************************************************************
: s( {) U+ h' z% o" T! LDim swApp As Object

* r2 l4 z) Y( HDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
G3 e0 T0 M0 y) W
Sub main()
$ }3 B! y7 t2 C/ k, Y: \
; t6 T6 s% s6 I! S& H3 |6 ESet swApp = Application.SldWorks
' W* I2 B) l. [* N" q
Set Part = swApp.ActiveDoc

* M( e: V& C5 n2 w# r* h' Zoom To Fit
Part.ViewZoomtofit2

$ k3 p) {. A( M6 V' Zoom To Fit
Part.ViewZoomtofit2
% w9 ^" Z/ V# y& w9 t
) c! M$ _9 x2 T: X; }' Zoom To Fit
* W; |: H) g4 e$ p% M' WPart.ViewZoomtofit2
( F9 ]" u- [# A# G$ w8 s
' Save
' x8 k' C* p& Q) v) T+ SDim swErrors As Long
3 P/ m) |8 f: v* V4 F% yDim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
End Sub
2 M0 r& Z* z& P4 U1 o7 a
) _" Z; |! _3 Z/ | O& ^
8 G5 W1 U5 h0 E- x8 a5 y( @* W
. F, W8 y |; \) p) W7 c
% Y1 ]' X! v' w0 l

冷月梧桐

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

2011ayoon

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

远祥

软件有问题了吧！