soilidworks 圖層設置宏總不成功

arter_2006

鄙人錄制的圖層設置宏總不成功，但錄制的別的宏就可以，哪位高手能否指點下？非常感謝！
1 Y& y* D& f3 @
% g0 f* V, q" L9 {0 x
9 e0 @/ J: K$ m: ]. R% B& j/ w' ******************************************************************************
4 Z' t+ Y( v4 i" H* F6 b& GDim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

5 j0 r7 V3 j7 ~8 h' _; ZSub main()
% j; y5 m3 Z! n( g% F: R
' A/ ?) `- o# C! d  P- OSet swApp = Application.SldWorks
. E2 b' h  v8 D# B- V6 m6 V% T
Set Part = swApp.ActiveDoc

* _5 |9 N! v# J# Y' Y3 m' Zoom To Fit
, N& r( ?, j: g; NPart.ViewZoomtofit2

' Zoom To Fit
Part.ViewZoomtofit2
  v/ d* Q. D1 N$ Z$ A* [' `. K0 E
% o- |6 M  Z) m' Zoom To Fit
. ~% ~' y5 Z6 x) d" z0 w% y, U# bPart.ViewZoomtofit2
# V& L$ v: ~: X- r
- j1 O. @: s' A: C# H* l' Save
$ b/ }2 u2 _& ^1 SDim swErrors As Long
Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
5 u" t2 j% {6 S8 i# L" f$ fEnd Sub



" F0 q+ k$ G; L6 m: U+ P$ b* N" ]8 j
( o  b' E* f- ]

冷月梧桐

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

2011ayoon

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

遠祥

軟件有問題了吧！