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

573719331 · 发表于 2015-5-4 22:17:00

这两天在研究一个宏。想要达到的目的是：打开一张工程图后，运行此宏程序，达到把工程图“页面设置”中的设置自动更改成顶部位置为“使用此文件的设定”-——“单独设定每个工程图纸”，然后下面的“工程图颜色”选项设置为“黑白”。想要的运行后的结果如果图所示（别的部分已经慢慢尝试出了宏代码语句，但设定颜色的语句怎么都不起作用，只能推断是设定颜色的语句出了问题，但不知道问题在哪里，恳求高人指点）。
我现在宏文件里的语句如下：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Part.Extension.UsePageSetup = swPageSetupInUse_e.swPageSetupInUse_DrawingSheet
Dim mySheet As Object
Set mySheet = Part.Sheet("图纸1")
Dim myPageSetup As Object
Set myPageSetup = mySheet.PageSetup
myPageSetup.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
myPageSetup.ScaleToFit = True
End Sub
倒数第三行语句是设定颜色的代码，不起作用。
附上宏源文件，恳请高人指点一下问题所在。
勿纠结代码中的（“图纸1”）这个部分，这个我已经和同事弄清了，这个（“图纸1”）是因为我偷懒没改动它。
恳请指点，万分感谢。

Macro1.rar (7.57 KB, 下载次数: 12)

零FAN乐队 · 发表于 2015-5-4 22:17:46

我不会啊，

唯德小刘 · 发表于 2015-5-4 22:20:46

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

WINXIN · 发表于 2015-5-4 22:22:08

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

wangds · 发表于 2015-5-4 22:22:22

经典案例图书

别谢我，我的名字叫雷锋！
Part.PageSetup.DrawingColor = swPageSetup_BlackAndWhite
swPageSetup_AutomaticDrawingColor =0 自动
swPageSetup_ColorGrey = 1
swPageSetup_BlackAndWhite = 2

STONECLROY · 发表于 2015-5-4 22:23:02

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

wangjiangping · 发表于 2015-5-4 22:24:36

经典案例图书

颜色”选项设置为“黑白” 正常宏如下
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myPageSetup As Object
Set myPageSetup = Part.PageSetup
myPageSetup.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
End Sub
所以判定
1#的宏,在 Set myPageSetup = mySheet.PageSetup 之下需補上如下一段試試
Set myPageSetup = Part.PageSetup

″起司猫″ · 发表于 2015-5-4 22:25:43

:

hesc000 · 发表于 2015-5-4 22:28:53

另作參考
' 工程圖打印機版面設定
' 注意條件須設為"使用此文件設定" 且 "個別設定各工程圖頁"不可打勾
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPageSetup As SldWorks.PageSetup

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPageSetup = swModel.PageSetup
swPageSetup.ScaleToFit = False 'True="縮放至最適當大小",False="比例"
swPageSetup.Orientation = 2 ' 1=Portrait '2 = Landscape
swPageSetup.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

517950909 · 发表于 2015-5-4 22:31:03

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

伊意 · 发表于 2015-5-4 22:34:11

谢谢梁大的指点。我复制您的代码慢慢试验。个人比较愚昧，只能靠一个个试验才能确定代码是否可行。谢谢。

xhx · 发表于 2015-5-4 22:38:21

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

ranmaonian1991 · 发表于 2015-5-4 22:41:38

9# 的宏是在2012版試的
試了2015版也行.

工程圖打印機版面設定.rar (8.96 KB, 下载次数: 12) 9#的swp檔

123132 · 发表于 2015-5-4 22:44:06

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