soilidworks 圖層設置宏總不成功

arter_2006

鄙人錄制的圖層設置宏總不成功，但錄制的別的宏就可以，哪位高手能否指點下？非常感謝！
9 l% J: Q6 I4 J: d$ ?

' a" ~! ?2 q2 d+ L' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
% r) _' K) A( ^Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
7 o6 Y' E3 }" f
  X  m4 r; a, c% F" xSet Part = swApp.ActiveDoc

' Zoom To Fit
Part.ViewZoomtofit2
6 a* I) o6 q+ Q+ l6 ~. T) e+ b
' Zoom To Fit
* _* u- J/ s  u3 i! \Part.ViewZoomtofit2
8 G8 I* y( Y$ Q7 Q2 N9 V+ C: F
8 `: C" }4 I( u! [! O' Zoom To Fit
Part.ViewZoomtofit2
* G, c2 G) t1 l- |9 Y; ]* ]
" j$ l8 R- L5 h$ E  M0 ^' Save
Dim swErrors As Long
) L9 n3 f& y" f" I! G6 `Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
1 M/ ^7 \3 F- O1 B' AEnd Sub



$ q) P) V* r5 x7 K
0 x4 _2 m9 ~- J4 T: p4 l9 k
6 T0 P9 g6 i6 @( l6 G0 u+ q

冷月梧桐

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

2011ayoon

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

遠祥

軟件有問題了吧！