soilidworks 圖層設置宏總不成功

arter_2006

鄙人錄制的圖層設置宏總不成功，但錄制的別的宏就可以，哪位高手能否指點下？非常感謝！
& P3 I8 v4 g/ C( T& K5 ?: U
9 W* Y  R7 p; i- T% D$ v5 d& u
/ X, A6 X9 P) t. u! z' ******************************************************************************
! L& w+ Z: m2 u/ {Dim swApp As Object
/ r) A9 i0 N/ l# S* C& x" p* s6 |% Z
Dim Part As Object
Dim boolstatus As Boolean
4 @1 }; A( L. j. x- p3 L$ ~" IDim longstatus As Long, longwarnings As Long
& X+ p; _2 ?+ E+ G
Sub main()

2 [7 }: d1 v5 dSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
4 g# b1 K" Y4 [, Q
, d" V, q- g1 {2 O" r7 W1 M' Zoom To Fit
2 P' F3 ?7 @8 L0 Y* U+ T( ^Part.ViewZoomtofit2
% @, k! u* q2 A8 D% \* d# h: q
, C! b- a: p/ t0 L' Zoom To Fit
Part.ViewZoomtofit2

; ~. ]6 C7 e& ~; w' }0 V' Zoom To Fit
9 {5 F5 y/ v- y7 k3 {" DPart.ViewZoomtofit2
% ?3 [7 S) R0 l4 `( |5 r+ u
' Save
Dim swErrors As Long
- ~- W' V9 q, t* f$ Z2 M4 t! BDim swWarnings As Long
3 N% u' {8 U0 X) E# Xboolstatus = Part.Save3(1, swErrors, swWarnings)
" |. a) ^" Q7 P: B2 k8 yEnd Sub
" D8 t+ |  k  _& `4 i4 {



) T1 @! ]( R, h, d5 O- v
5 K" X6 W/ v0 a, g& {) w

冷月梧桐

圖層問題，明明可以把模板設置好就可以的了，為啥要多走彎路？？

2011ayoon

雖然不太懂，但是怎么看里面也不像有設置圖層的語法

遠祥

軟件有問題了吧！