soilidworks 图层设置宏总不成功

arter_2006

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

' m, W0 a2 j9 ^; v) ~: g. U% m
6 p1 o6 k, T$ j, y& @) h+ _5 J: A' ******************************************************************************
Dim swApp As Object
" ?9 I5 \3 ?3 V! A
0 B. b1 f8 i5 V9 G( t4 [: nDim Part As Object
- o, E- U) a  U: B) }; `Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
: k% C) ~' e1 ]
Sub main()

Set swApp = Application.SldWorks
' h2 a4 m* t5 @3 a2 g0 ?) i
Set Part = swApp.ActiveDoc

' Zoom To Fit
Part.ViewZoomtofit2
( ~% g" `  z# a! x4 v0 M8 |  h
' Zoom To Fit
4 i" I& `& p4 \0 JPart.ViewZoomtofit2

' Zoom To Fit
Part.ViewZoomtofit2
( E) g! S' Z7 r! l- u2 Y1 G
' Save
Dim swErrors As Long
Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
0 ?5 W" Q. b, n0 U' @/ OEnd Sub
( u6 Z6 T' o* H# S' g0 J

9 M6 E8 i; o  M' [5 Z
$ b9 K! c$ J" J& w, g! r" A6 g9 I

2011ayoon

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

冷月梧桐

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