|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
这两天在研究一个宏。想要达到的目的是：打开一张工程图后，运行此宏程序，达到把工程图“页面设置”中的设置自动更改成顶部位置为“使用此文件的设定”-——“单独设定每个工程图纸”，然后下面的“工程图颜色”选项设置为“黑白”。想要的运行后的结果如果图所示（别的部分已经慢慢尝试出了宏代码语句，但设定颜色的语句怎么都不起作用，只能推断是设定颜色的语句出了问题，但不知道问题在哪里，恳求高人指点）。
5 T" n7 h3 X7 D5 { s我现在宏文件里的语句如下：
9 \3 s* k0 N& ^* F$ ~' {# t! d! t2 n2 A# l7 z2 E U
Dim swApp As Object
- P) r" c1 ~9 K$ R) k. E6 Y
0 N ]1 h0 k: k6 c) Z- s, M: q) vDim Part As Object+ ^3 {+ X$ c$ ?! C5 I$ }0 t
Dim boolstatus As Boolean
; ^/ j4 Y: W2 s. t8 k! s! F4 X5 KDim longstatus As Long, longwarnings As Long% B* R' G. }- m3 L$ N2 z2 h
+ Z$ Z( }* x3 Z; v3 ~
Sub main(). Z& l6 g, ]) Z1 O9 F9 C2 H( B
$ ?: m. s6 b* m. b/ O- t: Q5 KSet swApp = _
0 } Q2 F0 F4 K% `6 i6 Z: O. sApplication.SldWorks
: }& i, q: P- R! l2 i4 P# w) m4 Y& [
Set Part = swApp.ActiveDoc9 Q4 s0 F K( K/ R F) {. O
Part.Extension.UsePageSetup = swPageSetupInUse_e.swPageSetupInUse_DrawingSheet
/ t2 K" J4 n" MDim mySheet As Object
# Q h$ b' O& kSet mySheet = Part.Sheet("图纸1"). [8 ^3 ^7 B T& o+ E8 h! H
Dim myPageSetup As Object t( ^( j$ ]! I8 a0 H3 m. s! ]; X
Set myPageSetup = mySheet.PageSetup( ~7 v# [8 q0 _/ G% o8 X
myPageSetup.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
- G9 c0 U6 `& KmyPageSetup.ScaleToFit = True
# L! {$ g$ X+ Z. U, `) jEnd Sub* r3 U+ h6 p5 `8 J0 s4 H4 a
6 e! R9 E0 O8 Z- _) W3 B! E- ?倒数第三行语句是设定颜色的代码，不起作用。: K7 y: v3 I" h2 M- q- m, @1 F
附上宏源文件，恳请高人指点一下问题所在。
1 z/ ?5 }7 u7 S4 f+ D* i H勿纠结代码中的（“图纸1”）这个部分，这个我已经和同事弄清了，这个（“图纸1”）是因为我偷懒没改动它。
; }" s' ~9 A; _ ~, s. m3 l恳请指点，万分感谢。
+ h, P& r. a7 V, K# P( A
: m/ J$ {" I/ b+ K z4 S- b0 b; a+ z9 g
|
|
发表于 2015-5-4 22:17:07
楼主
别谢我，我的名字叫雷锋！) U9 c# i% }. [. i" r, \3 X
发表于 2015-5-7 21:02:10
