soilidworks 圖層設置宏總不成功

arter_2006

鄙人錄制的圖層設置宏總不成功，但錄制的別的宏就可以，哪位高手能否指點下？非常感謝！

+ T) _8 p% ~; u- l: }4 ]1 u' z% Z# o
' ******************************************************************************
* p, q- {6 c2 C* K: I4 v% VDim swApp As Object

7 U8 i- C: Q1 n& p0 A# ODim Part As Object
Dim boolstatus As Boolean
7 b; Y- b3 f, w, ?* ]- mDim longstatus As Long, longwarnings As Long
6 \6 Q3 o/ x2 i5 |* |
Sub main()
; R! E7 p& g3 l7 Q& S
Set swApp = Application.SldWorks

( o4 P7 r, Q( F. K; X- l2 l( qSet Part = swApp.ActiveDoc
) p& s/ ?. n$ v: q* j9 v1 D* v
' Zoom To Fit
" g6 w" N5 h$ T* i( a' EPart.ViewZoomtofit2

' Zoom To Fit
. ]) G# \8 E5 U, h" k* Q8 lPart.ViewZoomtofit2

' Zoom To Fit
4 q* b1 Q: v  R1 j1 W" }+ l0 QPart.ViewZoomtofit2
2 f! c6 V( @0 w/ ~9 O8 E
3 g, O9 q; _! H2 [* d/ o' Save
Dim swErrors As Long
" h, m  e4 T7 HDim swWarnings As Long
+ A+ r" b) X3 W0 o# nboolstatus = Part.Save3(1, swErrors, swWarnings)
) W4 p& x7 V  K3 S+ x% g8 HEnd Sub


" T$ w+ t9 K3 d1 \

3 T* _( j2 ?6 N2 l* M
& e$ u9 ~! V4 c! F' ?% F! e

冷月梧桐

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

2011ayoon

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

遠祥

軟件有問題了吧！