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

arter_2006

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


9 O5 v" v$ ^/ }( w) z' ******************************************************************************
- N. W0 p0 I: u0 U2 [6 q& y4 pDim swApp As Object

6 e( |4 b9 U+ T( j; k+ Y1 lDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
' j3 z2 m1 o% |$ R5 q
- e% ?! h  S2 E) n5 ?* LSub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
9 q5 e' Q1 G" S( W" j* ~% C
3 d+ M) W: W% A3 O& s8 [' Zoom To Fit
2 `9 ~/ o. m: N) w" BPart.ViewZoomtofit2
; O$ N( S3 L; l  Z# Q% R' K! @
' Zoom To Fit
Part.ViewZoomtofit2

' Zoom To Fit
. p* L3 E7 W! U# `  V0 }! SPart.ViewZoomtofit2

" \+ b4 E" w* l6 b9 q/ Z3 D' Save
Dim swErrors As Long
4 B# z! p% c, G! QDim swWarnings As Long
0 R) C- b' l9 c0 hboolstatus = Part.Save3(1, swErrors, swWarnings)
End Sub


  ?$ C$ A- n8 l8 g6 i0 z
7 e9 q2 D4 i' V* s3 I, u
- G2 ^1 u! p" Z+ C) _7 Z4 w

冷月梧桐

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

2011ayoon

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

遠祥

軟件有問題了吧,！