就工程图页面设置中打印颜色设置的宏代码问题向各位前辈高人求教

NC@jiang@nan

这两天在研究一个宏。想要达到的目的是：打开一张工程图后，运行此宏程序，达到把工程图“页面设置”中的设置自动更改成顶部位置为“使用此文件的设定”-——“单独设定每个工程图纸”，然后下面的“工程图颜色”选项设置为“黑白”。想要的运行后的结果如果图所示（别的部分已经慢慢尝试出了宏代码语句，但设定颜色的语句怎么都不起作用，只能推断是设定颜色的语句出了问题，但不知道问题在哪里，恳求高人指点）。
$ x! n1 W5 Z" w8 B/ O我现在宏文件里的语句如下：
% b* i; T0 Q) l6 z
# f% O8 N& u7 F9 Q) E0 H& A1 ^Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
5 B7 g; I& }1 i" [Dim longstatus As Long, longwarnings As Long

8 w+ [  Y# X2 M. @. nSub main()
( C7 `! z0 d8 t/ b) A4 l
Set swApp = _
4 z! w0 H6 A8 \: E; B5 w  dApplication.SldWorks

Set Part = swApp.ActiveDoc
' `3 a6 a) d1 q" F9 OPart.Extension.UsePageSetup = swPageSetupInUse_e.swPageSetupInUse_DrawingSheet
Dim mySheet As Object
Set mySheet = Part.Sheet("图纸1")
8 ]& L5 N, @* F; \1 r) b* b; LDim myPageSetup As Object
Set myPageSetup = mySheet.PageSetup
myPageSetup.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
myPageSetup.ScaleToFit = True
2 D% P, }, b. H7 t2 ]- }' sEnd Sub

2 z. F- w/ |# z; T倒数第三行语句是设定颜色的代码，不起作用。
' r3 V& H; J% q" N6 `附上宏源文件，恳请高人指点一下问题所在。
+ q; `2 T9 S; l8 w- T+ ~5 p勿纠结代码中的（“图纸1”）这个部分，这个我已经和同事弄清了，这个（“图纸1”）是因为我偷懒没改动它。
恳请指点，万分感谢。
) `8 }' t: n2 D! x0 T
- F  ~8 |! K2 Q$ u, ]* E! z  i+ L

NC@jiang@nan

60次浏览，没一个高人给一点指点吗？求救啦。

NC@jiang@nan

竟然还是没有一个回复呢？

杨成武

NC@jiang@nan 发表于 2015-5-7 20:14 static/image/common/back.gif
" P9 k; D' R8 C% H竟然还是没有一个回复呢？

我不会啊，

bash

* h9 t- j: U6 j" i+ u
别谢我，我的名字叫雷锋！

Part.PageSetup.DrawingColor = swPageSetup_BlackAndWhite
+ Z& f9 }+ t8 ?
swPageSetup_AutomaticDrawingColor   =0 自动
( J4 N9 x( D* g: v. Q! zswPageSetup_ColorGrey   = 1
swPageSetup_BlackAndWhite  = 2
* F+ r6 V5 T& Y  V; }5 B( ^

bash

写API ，应该好好利用其API文档！

ryouss

颜色”选项设置为“黑白”  正常宏如下
: q& C3 N- Q- h; m) QSub main()
Set swApp = _
+ }+ w5 \1 }# b8 v0 B: oApplication.SldWorks
$ Q  A+ B% Q& G' m3 w7 L" dSet Part = swApp.ActiveDoc
# J5 @, S( r' x  V0 w0 Z$ g% SDim myPageSetup As Object
Set myPageSetup = Part.PageSetup
2 o1 i4 P# a8 K: s7 HmyPageSetup.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
End Sub

所以判定
, ~. h0 {3 Y& I8 g  p1#的宏,在   Set myPageSetup = mySheet.PageSetup  之下需補上如下一段試試
) O* F' j, Y0 R; ~% v- t
5 i  z5 v. F  |3 D) B/ l   Set myPageSetup = Part.PageSetup

bash

% C/ X/ Q) @! m! t3 f& X. P: J4 D% H: G
! i4 F; }- R* ^: i:lol::lol::lol::lol::lol::lol:

ryouss

. B4 z) v0 g. c) U
, q# q$ m6 s, `另作參考
: X: I7 t" k$ |, z$ O

0 S3 A& `) w% j6 s9 J0 X' 工程圖打印機版面設定
1 Q3 _0 p8 C& q- p( {/ k' 注意條件須設為"使用此文件設定" 且 "個別設定各工程圖頁"不可打勾
# @1 h# v5 R1 J, l
Dim swApp As SldWorks.SldWorks
3 w# w, t0 h5 R9 RDim swModel As SldWorks.ModelDoc2
Dim swPageSetup As SldWorks.PageSetup
) I+ @$ r' ~7 Z
4 y2 ]9 t3 p! A8 E! jSub main()
% K  M% k, ]. uSet swApp = Application.SldWorks
. Y6 Q+ A5 v4 {  u' }! E8 M1 Y3 q8 HSet swModel = swApp.ActiveDoc
Set swPageSetup = swModel.PageSetup
6 ]& j/ V' l8 B2 DswPageSetup.ScaleToFit = False 'True="縮放至最適當大小",False="比例"
swPageSetup.Orientation = 2 ' 1=Portrait  '2 = Landscape
+ x) B- H* B) h! {( qswPageSetup.DrawingColor = 3  ' 1=Automatic Drawing Color  '2 = Color Grey '3 = Black And White
swPageSetup.HighQuality = False
swPageSetup.PrinterPaperSize = 2 '1=Letter , 2=A4 ,3=11*17in
End Sub




9 l" V& s5 t; b
3 r, U/ j0 D) ~

NC@jiang@nan

linuxbyte 发表于 2015-5-7 20:55 static/image/common/back.gif
+ D) h3 @% b5 b3 i/ H7 ]别谢我，我的名字叫雷锋！

& [8 R' D& U6 ZPart.PageSetup.DrawingColor = swPageSetup_BlackAndWhite

谢谢您的代码。我对宏不太理解，只能把您的代码复制下来慢慢试验看了。谢谢。

NC@jiang@nan

ryouss 发表于 2015-5-7 21:02 static/image/common/back.gif
4 F0 _7 R6 ^+ z/ W+ q6 G颜色”选项设置为“黑白”  正常宏如下
( M# k0 x6 m4 ]$ I& o' pSub main()
Set swApp = _

* p4 f) k3 c! y" q$ ?- k谢谢梁大的指点。我复制您的代码慢慢试验。个人比较愚昧，只能靠一个个试验才能确定代码是否可行。谢谢。

NC@jiang@nan

ryouss 发表于 2015-5-7 21:02 static/image/common/back.gif
" {1 }* S8 t% J7 k6 M- X: c: B颜色”选项设置为“黑白”  正常宏如下
Sub main()
# B' U+ R4 o2 w. K. Y0 I6 HSet swApp = _

7 M6 |- d! O1 [5 f家里的电脑装的SW2012，  用SW2013做的宏竟然没法调试了。估计是对宏语句的识别不一样了。下周一去公司再试试这些源代码了。谢谢梁大了。

ryouss

* Z5 f3 U0 H1 @2 e7 P

NC@jiang@nan 发表于 2015-5-8 21:22 static/image/common/back.gif
8 r5 X. w1 w- Z# ~2 j& M6 ^家里的电脑装的SW2012，  用SW2013做的宏竟然没法调试了。估计是对宏语句的识别不一样了。下周一去公司再 ...

9# 的宏是在2012版試的
試了2015版也行.
' M$ Y+ x: q' R* q* B- D
工程圖打印機版面設定.rar (8.96 KB, 下载次数: 8)

2015-5-9 08:31 上传

点击文件名下载附件 9#的swp檔

NC@jiang@nan

ryouss 发表于 2015-5-9 00:07 static/image/common/back.gif
) \" M4 b2 Y/ w9# 的宏是在2012版試的
試了2015版也行.

5 ^6 T# \2 s9 K1 i谢谢梁大。如果是使用文件设定的话，我和同事已经搞定了。现在就是“个别设定各工程图页”里的设置为黑白色搞不定，语句不起作用。我百度了一下，在SW粉丝论坛也有一个提问说个别设定各工程图页时这语句不起作用的，最后那个楼主说在哪里找到的资料说这个语句只能文件层起作用，对图纸页面不起作用。我不知道楼上您和另一位师兄给出的语句能否实现在"sheet"层设置颜色的目的，因为这两天休息没上班，需要明天上班后在公司电脑上试一下了。谢谢。

NC@jiang@nan

ryouss 发表于 2015-5-7 21:02 static/image/common/back.gif
2 X. h  Z1 B! ~# X颜色”选项设置为“黑白”  正常宏如下
' S& g+ h+ j6 u9 bSub main()
/ U+ Q" L0 l. G, rSet swApp = _

回梁大，证验证，加上此行代码后仍然无效。不知道怎么办了。

byrhxj

梁大都说了，只能文件层设定，sheet层无解。