|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
鄙人录制别的宏就可以，但录制的图层设置宏总不成功，比如下面这个宏录的是中心线改为红色，明细表、标注层各一种颜色，但从录制的结果看，没有任何关于图层和颜色的相关信息，也不能使用。是SOLIDWORKS不支持对图层的宏操作吗？非常感谢！
: D, Y- d+ J, f8 S% h, s
; ~8 o( O6 u/ G# y/ C; Y& H. ` , W9 n! W. @! `4 [# |
' ******************************************************************************9 a. l. h! Z- G( E! o" C
Dim swApp As Object3 N: }0 c: C- w5 R9 {
2 M* _) G5 d1 ~) }( b3 ZDim Part As Object
Q1 _/ R9 T; ^( mDim boolstatus As Boolean
; k' w2 ~5 O+ w- [Dim longstatus As Long, longwarnings As Long
, o3 Y. ~" s/ _+ g0 ?* G! c0 ?+ {
' A3 C1 x9 f( f9 i3 p& i+ n. dSub main()
( a2 }% O6 c0 ]; I+ j. r0 k
% E% o( }7 G; w: jSet swApp = Application.SldWorks, u! r, T& }! `9 S g
9 W A! R8 X9 i: \( ~Set Part = swApp.ActiveDoc
/ Q$ o9 O: c# ?7 f* k4 t6 T1 p) `! T3 b( ^! h
' Zoom To Fit& q: D( r: z. `9 D8 q+ N
Part.ViewZoomtofit2
" x9 Y8 G- |. Z+ d& t% t1 ]' C
$ d7 z, C6 @0 m2 t$ D1 A7 u& s' Zoom To Fit4 @8 O! u$ d" a) i( q% ?
Part.ViewZoomtofit2. n9 o$ e9 j* _$ Q
- p5 H( o7 R+ k2 S3 b E% t' ^
' Zoom To Fit
3 G' v, x' m, K% [Part.ViewZoomtofit2
3 A! J8 {* }9 [- G
1 l9 w$ E& ?' Z* a. F- C' Save
. M; F/ d4 E0 ?! Z6 DDim swErrors As Long
# S. `( X' j- R d- a' CDim swWarnings As Long$ }. |. D! C. X/ d4 a. O& x
boolstatus = Part.Save3(1, swErrors, swWarnings)) c1 E, ^" p0 V
End Sub) |% x1 m0 W: X) S0 ]3 p* Z
|
|
发表于 2021-5-14 19:18:06