|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
这两天在研究一个宏。想要达到的目的是：打开一张工程图后，运行此宏程序，达到把工程图“页面设置”中的设置自动更改成顶部位置为“使用此文件的设定”-——“单独设定每个工程图纸”，然后下面的“工程图颜色”选项设置为“黑白”。想要的运行后的结果如果图所示（别的部分已经慢慢尝试出了宏代码语句，但设定颜色的语句怎么都不起作用，只能推断是设定颜色的语句出了问题，但不知道问题在哪里，恳求高人指点）。
) b2 ^* Y) [9 ~' R8 R% f, ^我现在宏文件里的语句如下：3 b4 }4 g+ q2 Y3 J- b- m5 |) S
1 y6 F2 I1 ~- B# e- w |0 aDim swApp As Object
2 K' j# E5 a% a" N* R4 U2 f
3 L) g5 ]4 q7 N' l/ D) \Dim Part As Object
: K' ]' |+ M2 m2 XDim boolstatus As Boolean
3 L) [6 N- y9 Z3 ]Dim longstatus As Long, longwarnings As Long* z2 v7 u' j) I; ?5 Q
& g# r) c6 O# y: G' |, s" W) L GSub main()1 ?, q8 e( ?* X( V9 m# z
- ?! H1 f h* H0 X9 K' y3 R# HSet swApp = _
: {( i5 e/ |, ~0 sApplication.SldWorks" B/ m0 G& M& g2 `7 L; _
3 k$ W: e, e/ h2 z/ w. f% i8 V
Set Part = swApp.ActiveDoc
3 _7 d l0 K6 j; q b1 U! \Part.Extension.UsePageSetup = swPageSetupInUse_e.swPageSetupInUse_DrawingSheet
" H- Z3 [# `& m- ?# @- `5 ^7 hDim mySheet As Object
; x" l& E/ z G K+ ZSet mySheet = Part.Sheet("图纸1")4 s' x6 Y/ e6 R/ `* }
Dim myPageSetup As Object
2 v) K# i6 T; U* G5 u3 GSet myPageSetup = mySheet.PageSetup
0 Q% r5 p. ]6 P |7 [7 n4 d0 imyPageSetup.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
; F! i$ N% L# S- b1 J* k+ _& AmyPageSetup.ScaleToFit = True) n* x" q! ~0 T `7 g
End Sub
1 g) t% a" M g* \* ~4 L) L( x3 r8 ?, w/ R) U0 h
倒数第三行语句是设定颜色的代码，不起作用。
0 Q, n( V: W0 |" n2 U; ~ p6 C附上宏源文件，恳请高人指点一下问题所在。! q* B- O8 |% h
勿纠结代码中的（“图纸1”）这个部分，这个我已经和同事弄清了，这个（“图纸1”）是因为我偷懒没改动它。9 h# R' Q( j' d
恳请指点，万分感谢。
* b4 G1 t' T9 I
1 Z7 t& W- [3 m1 \( j# M# }
2 D/ t y- R; k9 H7 B2 |" u9 o |
|
发表于 2015-5-4 22:17:07
楼主
别谢我，我的名字叫雷锋！9 ^) x1 {1 s8 B; G# k+ q
发表于 2015-5-7 21:02:10
