VB PlotToFile 生成的PDF文件打印纸质文件时图片模糊问题

wangxu_1018

- M& _1 ?: p9 F" ^
版主及各位朋友：中午好！
      
/ n+ P% P* x* \1 o+ q2 F: B        CAD版本：AutoCAD Electrical 2010

        我在vb程序中处理dwg打印为pdf时遇到如下问题，希望得到各位的帮助，谢谢！
1 }9 ^7 G; J& p        问题如下：
        我之前开发了一段程序（见下面嵌入的代码），通过 Acade - DWG To PDF.pc3  打印为pdf文件，生成pdf没有问题，但是生成的pdf文件一直也没有去打印为纸质版，最近需要打印时发现原DWG文件中引用的图片（公司logo）及由Excel中copy到DWG中的表格（好像也是图片了）出现模糊的情况。

        上述问题不管的手动选取“ Acade - DWG To PDF.pc3”打印机还是程序均有问题。后来尝试手动选取“Adobe PDF”打印，生成的PDF是没有问题。
2 D5 E1 o  x) ?) J: M5 k
+ W  D; {6 p4 W( ?8 l5 e: U" m         后来尝试有程序实现“Adobe PDF” 去打开PDF，但有遇到”仅依靠系统字体；不使用文档字体(N)“的问题。
' z% z! x( G2 m- n8 \% }         尝试去修改打印机首选项，但Adobe PDF 打印机的首选项中没有找到关于”仅依靠系统字体；不适用文档字体“的设置（不确定是否版本问题）
5 S) R: w$ M$ Z& f: E+ g
        问题汇总：
        1、 “Acade - DWG To PDF.pc3”打印机 是否可以处理图片模糊的问题？
        2、 “Adobe PDF” 打印机如何设置字体？
        注：由于对AutoCAD也只是初学，对很多CAD本身的应用也还不是很熟悉，开发这块就更差了 还希望各位给予帮助。

1. '---------------------------------------------------------------------------------------
   ' f% |5 Y5 s+ W4 Y
2. ' Procedure : CreatePDF
   
3. ' DateTime  : 2013-11-20
   0 Q) m) f& |( o: `6 q# Z, Q' z
4. ' Author    : xwang
   8 Q8 d5 E! b: O
5. ' Purpose   : CAD中DWG图纸导出PDF文件
   0 E: W" X$ i! w' ?1 N( @- E
6. ' param     : acadDoc: AcadDocument
   7 i& m; L- g( W0 X6 F9 A* R) W
7. '           : filename:  DWGFile
   - K) d" R' `+ t# ?7 Q0 B
8. '           : strPdfFile PdfFile
   
9. '           : ConfigName: Acade - DWG To PDF.pc3
   
10. '---------------------------------------------------------------------------------------
    
11. Public Function CreatePDF2(acadDoc As AcadDocument, filename As String, strPdfFile As String, ConfigName As String) As Integer
    . ^7 Y1 X- k- O! \2 ~
12. 
    
13.     Dim PtConfigs As AcadPlotConfigurations
    + l( p6 c5 e+ R. L7 K* M
14.     Dim PlotConfig As AcadPlotConfiguration
    - u; u- U* {+ i; W  s+ B
15.     Dim PtObj As AcadPlot
    
16.     Dim BackPlot As Variant
    
17.    
    
18.     Dim ent As AcadEntity 'Object
    8 y5 \( f" C2 e& p% e$ ~9 A1 L
19.     Dim blockRef As AcadBlockReference
    
20.    
      w- e: d7 o9 q+ F
21. On Error GoTo ErrExit
    0 d( @, A- r' `+ `
22. 
    
23.     Debug.Print "CreatePDF ------------------------------------------------->"
    # W4 n; f7 y& L: Y% V
24.     Debug.Print "打印机:" & ConfigName
      |+ P7 n; W! H2 b" w- t; [7 g; O
25.     For Each ent In acadDoc.ModelSpace
    % ^" T: e$ |& m
26.         If TypeOf ent Is AcadBlockReference Then
    
27.             DoEvents
    ( T' Q. D. I/ j# c
28.             Set blockRef = ent
    5 ?% T! N9 r' u6 ]. p
29.             If blockRef.Name = "ACE A3块" Or blockRef.Name = "ACE A4块" Then
      L) q- ]! A, `/ O2 M, o1 ]
30. 
    
31.                 Debug.Print "块名称:" & blockRef.Name
    # B9 c+ ?; c3 I& C
32.                
    
33.                 '块引用的插入点
    : {; q9 u9 S9 C: ^0 A, Q. b& Y
34.                 Dim insertPoint As Variant
    " |6 C& y7 v% p
35.                 insertPoint = blockRef.InsertionPoint
    / f0 x6 F3 l" G: W$ y
36.                 '放大比例
    * [. ?# |2 o' I2 y% N$ K+ q
37.                 Dim xScale, yScale As Integer
    9 A& G3 ~- W) j& H, k3 \
38.                 xScale = blockRef.XScaleFactor
    
39.                 yScale = blockRef.YScaleFactor
    8 d) Z# q* _2 U, `
40.                
    
41.                 acadDoc.ActiveLayout.ConfigName = ConfigName '"Acade - DWG To PDF.pc3"
    
42.                 Set PtObj = acadDoc.Plot
    * ?+ j% N+ r9 p" v4 T
43.                 Set PtConfigs = acadDoc.PlotConfigurations
    , M5 }+ H0 S! d1 w/ n: M) H
44. 
    
45.                 PtConfigs.Add "PDF", False
    
46.                 Set PlotConfig = PtConfigs.Item("PDF")
    9 s& w( Q- F* c& f( b
47.                 PlotConfig.StandardScale = acScaleToFit
    
48.                                 
    , B, H, @% k" o! b( G
49.                 PlotConfig.ConfigName = ConfigName '"Acade - DWG To PDF.pc3"
    
50.                 'ANSI_A_(8.50_x_11.00_Inches)
    
51.                 PlotConfig.RefreshPlotDeviceInfo
    2 }% `8 E1 K5 l
52. 
    0 i  J, |0 k; p& p- [: L. r+ C
53.                 Debug.Print "After打印样式：" & acadDoc.ActiveLayout.StyleSheet
    
54.                 Debug.Print "After图纸尺寸：" & acadDoc.ActiveLayout.CanonicalMediaName
    / f7 @* m! z1 j5 e- {) N0 W
55.                
    
56.                 acadDoc.ActiveLayout.StyleSheet = "monochrome.ctb" '黑白样式
      ^# x% i' v7 ?/ r
57. 
    9 i: m# e/ [( _/ X& |
58.                 '使用图形文件的线宽
    
59.                 PlotConfig.PlotWithLineweights = True
    
60.                 '是否启用打印样式
    " ^0 f5 r1 V! T8 ~& V9 j
61.                 PlotConfig.PlotWithPlotStyles = True
    + H  m7 d& N# g7 h/ z1 Z3 T
62. 
    5 _9 u! ^1 @9 X  }. B6 o- Y
63.                  '宽高基数
    : _5 P) ^' Z+ Q# n; M0 s3 O
64.                 Dim width, height As Double
    ! l9 `6 b+ f/ Y3 N( A) W/ i% E! F
65.                 If blockRef.Name = "ACE A3块" Then
    
66.                     width = 420
    
67.                     height = 297
    9 X1 W6 j+ @$ d7 E( W# E. h
68.                     acadDoc.ActiveLayout.PlotRotation = ac90degrees
    
69.                     acadDoc.ActiveLayout.CanonicalMediaName = "ISO_expand_A3_(297.00_x_420.00_MM)"
    % I4 o9 h' {! @" m7 B5 |7 X- N
70.                 ElseIf blockRef.Name = "ACE A4块" Then
    $ D: z, j. K  J8 u: b
71.                     width = 210
    . S+ q" H. K4 C5 _2 ~8 `; T3 [( V& i
72.                     height = 297
    
73.                     acadDoc.ActiveLayout.PlotRotation = ac0degrees
    . z' T7 U5 L. f) U/ E! j$ X
74.                     acadDoc.ActiveLayout.CanonicalMediaName = "ISO_expand_A4_(297.00_x_210.00_MM)"
    ( Z$ l# p% }! S
75.                 End If
    
76.                   
    
77.                 '打印区域
    - t: [8 ]3 B) g
78.                 Dim UpperRight(0 To 1) As Double, LowerLeft(0 To 1) As Double
    2 \% ?! V! \1 c. M8 F
79.                 LowerLeft(0) = insertPoint(0)
    # ^" ^. g2 T$ H! a9 t
80.                 LowerLeft(1) = insertPoint(1)
    
81.                 UpperRight(0) = insertPoint(0) + width * xScale
    
82.                 UpperRight(1) = insertPoint(1) + height * yScale
    3 G3 \2 [6 k4 j+ X& g
83.                
    
84.                 '设置定义要打印的布局范围的坐标
    ! u% Q: Y8 [6 O1 `3 h
85.                 acadDoc.ActiveLayout.SetWindowToPlot LowerLeft, UpperRight
    : v/ G& W6 m2 J$ x
86.                 '指定布局或打印配置的类型
    1 C& [2 b1 Y: k* a7 `
87.                 acadDoc.ActiveLayout.PlotType = acExtents
    
88.                
    $ o: _0 t( w4 J/ e: E
89.                 BackPlot = acadDoc.GetVariable("BACKGROUNDPLOT")
    
90.                 acadDoc.SetVariable "BACKGROUNDPLOT", 0
    , {& V( B$ h7 \: }
91.                 PlotConfig.RefreshPlotDeviceInfo
    / z+ r: B# U: u
92.                
    # P2 F+ b# i9 ^. p* @( a2 J
93.                 Debug.Print "Befor打印样式：" & acadDoc.ActiveLayout.StyleSheet
    ( }* H8 V3 Y& }4 Y6 K( L
94.                 Debug.Print "Befor图纸尺寸：" & acadDoc.ActiveLayout.CanonicalMediaName
    
95.                 Debug.Print "图形方向：" & acadDoc.ActiveLayout.PlotRotation
    7 u) j* \7 y( F. j2 w- ^, d
96.                 Debug.Print "打印机：" & acadDoc.ActiveLayout.ConfigName
    & G# g) R% F  i- D$ e& _
97.                
    2 J' S$ Q. N  y* ]
98.                 strPdfFile = strPdfFile 'Replace(acadDoc.FullName, "dwg", "pdf")
    & n" V5 F% K8 u) |5 c+ N
99.                 Debug.Print "输出位置:" & strPdfFile
    7 N- d! V2 W# T& @$ @( R8 F
100. 
     
101.                 'Now you can use the PlotTofile method
     ) K/ l3 x4 Z9 ^: {
102.                 If PtObj.PlotToFile(strPdfFile, PlotConfig.ConfigName) Then
     / z/ U2 E) ~% M; b! O, {  M) |& _
103.                      Debug.Print "PDF Was Created"
     
104.                      Debug.Print "PDF Was Created"
     
105.                 Else
     
106.                      Debug.Print "PDF Creation Unsuccessful!"
     0 ~+ Q& v) ?7 u0 K7 G3 T7 M( G
107.                      Debug.Print "PDF Creation Unsuccessful!"
     
108.                 End If
     
109.                 PtConfigs.Item("PDF").Delete
     9 {; J6 J2 z0 x, U; y
110.                 Set PlotConfig = Nothing
     2 O- t: N0 Q0 Z5 z
111.                 acadDoc.SetVariable "BACKGROUNDPLOT", BackPlot
     9 `7 ^. i. s; X' {# c
112.                
     
113.                 Debug.Print "CreatePDF ok!"
     ( `0 d9 @5 i9 t1 {0 `
114.             End If
     
115.         End If
       }1 a. H/ |- z
116.         DoEvents
     
117.     Next ent
     
118.     Debug.Print "CreatePDF -------------------------------------------------<"
     
119.     Exit Function
     4 Z4 |5 C! [& [) g8 `3 v
120.    
     . K& w: w7 x& Y" z# h0 K* m
121. ErrExit:
     1 v) d8 o7 h; q7 a, s$ X
122.     CreatePDF2 = -1
     * g1 W0 E$ _, J$ c7 z
123.     Debug.Print "CreatePDF Error:" & Err.Description
     
124.     MsgBox "CreatePDF error:" & Err.Description
     
125. End Function

复制代码

woaishuijia

在"页面设置"对话框的"打印机/绘图仪"框架中的"名称"下拉列表中选择"DWG TO PDF.PC3"打印机

2 W/ Z0 {- @" s" {6 D6 ^4 |4 P点击"名称"下拉列表框右侧的"特性"按钮,弹出"绘图仪配置编辑器"对话框.
在"设备和文档设置"选项卡的树形目录中点击"自定义特性",其下方显示"访问自定义对话框"框架.

& _. N6 n8 k' ~# U1 A6 V. E再点击"访问自定义对话框"框架中的"自定义特性"按钮,弹出"DWG TO PDF 特性"对话框

返回到"页面设置"对话框,在"打印机/绘图仪"框架的"名称"下拉列表中选择"ADOBE PDF"打印机
" h% z: n$ z! E
继续前面的步骤

wangxu_1018

@woaishuijia 版主
非常感谢您的帮助，过程中遇到的2个问题已经解决。
[问题1] 、PDM生成的PDF图纸中OLE引用（由Excel中copy过来的表格）图片、公司LOGO图片模糊。
# ]; i/ a( p/ G# N+ a. }解决方案：在对PDF文件打印时，取消打印界面“作为图像打印”的复选框后再打印就不会存在模糊的问题。

[问题2]、打印PDF文件时提示“无法找到或创建字体 TimesNewRomanPSMT，XXXXXX”。
3 P( f& L3 x1 ^( H& P3 U4 m4 `解决方案：原因是由于客户端安装的pdf查看工具版本影响，经过测试安装AdbeRdr11000_zh_CN.exe版本在打印时就没有问题。

cyfdean2011

谢谢分享，我的问题也解决了。哈哈