soilidworks 圖層設(shè)置宏總不成功

arter_2006

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


' ******************************************************************************
2 k, p, Q) j1 `) E* _6 ^: jDim swApp As Object
& }; _# K) C  m" Y" F1 q9 \
Dim Part As Object
9 G6 T7 Q8 m7 k) d/ K! |Dim boolstatus As Boolean
8 S' G7 j1 _& w- f/ bDim longstatus As Long, longwarnings As Long
% m7 z" N/ o% e' J
Sub main()

5 N0 G$ n$ l! ~; M% O% E1 g  QSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

' Zoom To Fit
Part.ViewZoomtofit2
/ _4 A; J  o4 c# ]- X8 c
" T) ?) ?8 T/ Z& k2 z# Z1 p% d' Zoom To Fit
& h/ q/ E3 p' p0 `3 p( m' yPart.ViewZoomtofit2

7 p  {0 `5 j' h5 v! ?+ E/ ]' Zoom To Fit
Part.ViewZoomtofit2
+ y3 W3 o2 \3 A0 m
' Save
6 L- V- o4 b& l$ jDim swErrors As Long
) k0 B- Z( ?: ~% ?% l- M. \* tDim swWarnings As Long
: y7 V% d. h+ m# Y  X9 k3 pboolstatus = Part.Save3(1, swErrors, swWarnings)
End Sub

/ n% v9 P+ L" s5 E2 C& @  Q
' C8 I# Z- N6 t1 A, C
5 h" V& n" b" w0 f# n6 O
% y  d( y  G1 @5 `- G

冷月梧桐

圖層問(wèn)題,，明明可以把模板設(shè)置好就可以的了，為啥要多走彎路,？,？

2011ayoon

雖然不太懂,，但是怎么看里面也不像有設(shè)置圖層的語(yǔ)法

遠(yuǎn)祥

軟件有問(wèn)題了吧！