soilidworks 图层设置宏总不成功

arter_2006

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


' ******************************************************************************
Dim swApp As Object
; z: ~+ b5 i1 K: ]' N5 J4 H& L
Dim Part As Object
Dim boolstatus As Boolean
) \3 M& H' |5 l5 vDim longstatus As Long, longwarnings As Long

* _: L0 H) I% b# \9 ISub main()

9 b2 b, n2 w- wSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
2 L) v5 \- z; u' a/ ~, m
' Zoom To Fit
Part.ViewZoomtofit2
: o* u' l% P* n3 c5 ~6 P
' Zoom To Fit
Part.ViewZoomtofit2
" k/ U/ \! D0 t7 X# ]
' Zoom To Fit
Part.ViewZoomtofit2

9 p8 R& v: R2 w% J. O( P/ C' Save
# S& y% `+ F2 f6 \% [7 h9 GDim swErrors As Long
2 F; F3 F: m2 C. |1 a, q) uDim swWarnings As Long
- k4 m' l+ R! T$ Zboolstatus = Part.Save3(1, swErrors, swWarnings)
* W2 ~- b3 H& Z& A' x0 {0 N2 x3 NEnd Sub
, g( e; Q& f, V, _! M
( U( ~6 I) G! k* g7 G! h


4 _1 o& G: J9 l3 O
. G, y5 l; `, K3 ?4 N: c5 j& R

冷月梧桐

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

2011ayoon

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

远祥

软件有问题了吧！