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

wangxu_1018

3 J) M1 A( |5 W: f  S7 b2 A) S5 r
' U1 W7 W. N0 k版主及各位朋友：中午好！
      
4 t% {# M7 X- I% G+ L2 o        CAD版本：AutoCAD Electrical 2010

: n, ^3 G! m9 f4 D2 @# n7 d        我在vb程序中处理dwg打印为pdf时遇到如下问题，希望得到各位的帮助，谢谢！
        问题如下：
& O3 m7 o5 K! |  f) Z        我之前开发了一段程序（见下面嵌入的代码），通过 Acade - DWG To PDF.pc3  打印为pdf文件，生成pdf没有问题，但是生成的pdf文件一直也没有去打印为纸质版，最近需要打印时发现原DWG文件中引用的图片（公司logo）及由Excel中copy到DWG中的表格（好像也是图片了）出现模糊的情况。
' j; Z, N6 S% @. z. R9 G* S: Y
        上述问题不管的手动选取“ Acade - DWG To PDF.pc3”打印机还是程序均有问题。后来尝试手动选取“Adobe PDF”打印，生成的PDF是没有问题。
& ]5 ~- ^, Z/ {8 u5 U- k, B$ p* l
         后来尝试有程序实现“Adobe PDF” 去打开PDF，但有遇到”仅依靠系统字体；不使用文档字体(N)“的问题。
. L' I  x6 \: S4 u" T( ]         尝试去修改打印机首选项，但Adobe PDF 打印机的首选项中没有找到关于”仅依靠系统字体；不适用文档字体“的设置（不确定是否版本问题）
- X( C: j' S; o) l
        问题汇总：
! w7 ]$ d% T5 ?1 r& j        1、 “Acade - DWG To PDF.pc3”打印机 是否可以处理图片模糊的问题？
        2、 “Adobe PDF” 打印机如何设置字体？
) N5 h1 }, _2 Q# r5 M. _0 M! \9 A        注：由于对AutoCAD也只是初学，对很多CAD本身的应用也还不是很熟悉，开发这块就更差了 还希望各位给予帮助。

1. '---------------------------------------------------------------------------------------
   
2. ' Procedure : CreatePDF
   
3. ' DateTime  : 2013-11-20
   
4. ' Author    : xwang
   
5. ' Purpose   : CAD中DWG图纸导出PDF文件
   
6. ' param     : acadDoc: AcadDocument
   
7. '           : filename:  DWGFile
   . N* O# ]! t) O0 }( X# u1 a
8. '           : strPdfFile PdfFile
   
9. '           : ConfigName: Acade - DWG To PDF.pc3
   ( q. m7 A: [6 f- r! F0 D
10. '---------------------------------------------------------------------------------------
    
11. Public Function CreatePDF2(acadDoc As AcadDocument, filename As String, strPdfFile As String, ConfigName As String) As Integer
    
12. 
    
13.     Dim PtConfigs As AcadPlotConfigurations
    
14.     Dim PlotConfig As AcadPlotConfiguration
    3 r% ^9 J1 o$ X: `) t8 C8 @1 u
15.     Dim PtObj As AcadPlot
    ! h' R" Z, r2 J. z
16.     Dim BackPlot As Variant
    
17.    
    ( Z$ ~" Q# ~7 v9 b& q$ S
18.     Dim ent As AcadEntity 'Object
    - l8 a; q) n% T; [* D
19.     Dim blockRef As AcadBlockReference
    
20.    
      |% R& N% q4 S3 Y4 @9 ?4 Q
21. On Error GoTo ErrExit
    4 M4 C( }' _( c- h
22. 
    6 o  b& f' P  Q
23.     Debug.Print "CreatePDF ------------------------------------------------->"
    3 m) |! H/ q  o6 w
24.     Debug.Print "打印机:" & ConfigName
    1 ?$ d+ n# N/ w) W# D5 A- H
25.     For Each ent In acadDoc.ModelSpace
    + E' q% c2 _- |& @9 B% b
26.         If TypeOf ent Is AcadBlockReference Then
    5 s8 D6 L$ y1 A4 u0 H  t
27.             DoEvents
    ) C/ l) A# G9 E0 F" j% [
28.             Set blockRef = ent
    
29.             If blockRef.Name = "ACE A3块" Or blockRef.Name = "ACE A4块" Then
    * r, _, u2 y, e) A
30. 
    . `0 e7 ~  e6 F$ A/ I! t
31.                 Debug.Print "块名称:" & blockRef.Name
    
32.                
    
33.                 '块引用的插入点
    
34.                 Dim insertPoint As Variant
    3 [" _( E( g: Z& X
35.                 insertPoint = blockRef.InsertionPoint
    
36.                 '放大比例
    * k" `! L( b; r8 ?
37.                 Dim xScale, yScale As Integer
    2 F( `4 v! }$ ?+ _- q
38.                 xScale = blockRef.XScaleFactor
    ' k1 R; {1 u# j) p; n
39.                 yScale = blockRef.YScaleFactor
    
40.                
    
41.                 acadDoc.ActiveLayout.ConfigName = ConfigName '"Acade - DWG To PDF.pc3"
    
42.                 Set PtObj = acadDoc.Plot
    & p6 f, J4 m% M6 K
43.                 Set PtConfigs = acadDoc.PlotConfigurations
    
44. 
    
45.                 PtConfigs.Add "PDF", False
    : Z; g5 w) L. Z
46.                 Set PlotConfig = PtConfigs.Item("PDF")
    
47.                 PlotConfig.StandardScale = acScaleToFit
    
48.                                 
    
49.                 PlotConfig.ConfigName = ConfigName '"Acade - DWG To PDF.pc3"
    
50.                 'ANSI_A_(8.50_x_11.00_Inches)
    
51.                 PlotConfig.RefreshPlotDeviceInfo
    5 g$ ?, q* U- Y( X/ r0 F- j# E
52. 
    
53.                 Debug.Print "After打印样式：" & acadDoc.ActiveLayout.StyleSheet
    
54.                 Debug.Print "After图纸尺寸：" & acadDoc.ActiveLayout.CanonicalMediaName
    
55.                
    
56.                 acadDoc.ActiveLayout.StyleSheet = "monochrome.ctb" '黑白样式
    
57. 
    0 C* W5 X; |8 Z
58.                 '使用图形文件的线宽
    
59.                 PlotConfig.PlotWithLineweights = True
    
60.                 '是否启用打印样式
    
61.                 PlotConfig.PlotWithPlotStyles = True
    
62. 
    * B0 G7 v' p  b  |4 t
63.                  '宽高基数
    ( n- s9 o5 m8 t! z- X( g) J' p$ I
64.                 Dim width, height As Double
    % ]6 J3 k# W6 |* ^$ ]" L
65.                 If blockRef.Name = "ACE A3块" Then
    $ J; B" B8 [# k% j! }* H4 ?
66.                     width = 420
    
67.                     height = 297
    
68.                     acadDoc.ActiveLayout.PlotRotation = ac90degrees
    
69.                     acadDoc.ActiveLayout.CanonicalMediaName = "ISO_expand_A3_(297.00_x_420.00_MM)"
    
70.                 ElseIf blockRef.Name = "ACE A4块" Then
    5 S. i9 D3 {" |  w& B4 Y
71.                     width = 210
    , w- v* y2 e5 }! D
72.                     height = 297
    
73.                     acadDoc.ActiveLayout.PlotRotation = ac0degrees
    7 H* D0 e3 f. B* H
74.                     acadDoc.ActiveLayout.CanonicalMediaName = "ISO_expand_A4_(297.00_x_210.00_MM)"
    
75.                 End If
    
76.                   
    
77.                 '打印区域
    ' v! ]# x5 n! ^# m* \, \; r  Q% D. x
78.                 Dim UpperRight(0 To 1) As Double, LowerLeft(0 To 1) As Double
    ) `1 |' ^8 N) t
79.                 LowerLeft(0) = insertPoint(0)
    
80.                 LowerLeft(1) = insertPoint(1)
    
81.                 UpperRight(0) = insertPoint(0) + width * xScale
    ; U# o/ }) t1 Q: @( y# _: U
82.                 UpperRight(1) = insertPoint(1) + height * yScale
    7 b3 G0 J: ^7 n
83.                
    
84.                 '设置定义要打印的布局范围的坐标
    
85.                 acadDoc.ActiveLayout.SetWindowToPlot LowerLeft, UpperRight
    
86.                 '指定布局或打印配置的类型
    
87.                 acadDoc.ActiveLayout.PlotType = acExtents
    - [$ K8 P7 w. A* I1 ^. Q$ Z2 @% S0 k
88.                
    6 N  @! }+ {5 z  f! o  S
89.                 BackPlot = acadDoc.GetVariable("BACKGROUNDPLOT")
    6 o) X' v7 P2 z
90.                 acadDoc.SetVariable "BACKGROUNDPLOT", 0
    
91.                 PlotConfig.RefreshPlotDeviceInfo
      x& t) r+ i5 W% h, z0 W
92.                
    
93.                 Debug.Print "Befor打印样式：" & acadDoc.ActiveLayout.StyleSheet
    & T* X( t% N, ~4 ?: H
94.                 Debug.Print "Befor图纸尺寸：" & acadDoc.ActiveLayout.CanonicalMediaName
    : y2 Q: C* c/ o. L" j8 I% G
95.                 Debug.Print "图形方向：" & acadDoc.ActiveLayout.PlotRotation
    
96.                 Debug.Print "打印机：" & acadDoc.ActiveLayout.ConfigName
    
97.                
    
98.                 strPdfFile = strPdfFile 'Replace(acadDoc.FullName, "dwg", "pdf")
    
99.                 Debug.Print "输出位置:" & strPdfFile
    
100. 
     - M% t; l" _# s- k3 M* [
101.                 'Now you can use the PlotTofile method
     0 o& s" X/ w* ]+ A! m0 ?3 i3 A6 y
102.                 If PtObj.PlotToFile(strPdfFile, PlotConfig.ConfigName) Then
     5 m8 a5 o# y; n$ J% F+ r
103.                      Debug.Print "PDF Was Created"
     " g+ b) ~4 ~" \/ A! Z0 \
104.                      Debug.Print "PDF Was Created"
     
105.                 Else
     3 U* x* [  L3 z& ~0 `8 k
106.                      Debug.Print "PDF Creation Unsuccessful!"
     - P! t: f! g: S/ {- E" c
107.                      Debug.Print "PDF Creation Unsuccessful!"
     
108.                 End If
     ! w# G0 d3 w/ m
109.                 PtConfigs.Item("PDF").Delete
     
110.                 Set PlotConfig = Nothing
     
111.                 acadDoc.SetVariable "BACKGROUNDPLOT", BackPlot
     
112.                
     
113.                 Debug.Print "CreatePDF ok!"
     
114.             End If
     5 Z2 e" z. `7 t! Z; i& Z/ _5 W7 F7 @8 h
115.         End If
     
116.         DoEvents
     
117.     Next ent
     8 w# r! I# H& S. w/ |7 z8 Z2 Y8 D
118.     Debug.Print "CreatePDF -------------------------------------------------<"
     
119.     Exit Function
     & [8 t( E# Q8 ~) C9 h! Y
120.    
     
121. ErrExit:
     6 N8 q( i' q, _; `, o1 {% C. L
122.     CreatePDF2 = -1
     ) l! @8 M* g7 k- R+ l% Z
123.     Debug.Print "CreatePDF Error:" & Err.Description
     4 L6 @- V* l2 F# r/ C& d1 R
124.     MsgBox "CreatePDF error:" & Err.Description
     : ?; g& B- }( C( n
125. End Function

复制代码

woaishuijia

" J( W6 N, i* t0 ?- u1 d
1 W" j& r; k5 u& c, p) r6 ?' z8 q在"页面设置"对话框的"打印机/绘图仪"框架中的"名称"下拉列表中选择"DWG TO PDF.PC3"打印机
, {) b  b; X" q
点击"名称"下拉列表框右侧的"特性"按钮,弹出"绘图仪配置编辑器"对话框.
8 V, }& k# }% d在"设备和文档设置"选项卡的树形目录中点击"自定义特性",其下方显示"访问自定义对话框"框架.
1 d$ |+ u- ]& w7 V* M! d
再点击"访问自定义对话框"框架中的"自定义特性"按钮,弹出"DWG TO PDF 特性"对话框
( w7 x6 X$ i: ?5 _7 v/ j  L
- M1 x4 X( j) q- y返回到"页面设置"对话框,在"打印机/绘图仪"框架的"名称"下拉列表中选择"ADOBE PDF"打印机

继续前面的步骤

wangxu_1018

@woaishuijia 版主
. t; Z3 g- ?4 v非常感谢您的帮助，过程中遇到的2个问题已经解决。
[问题1] 、PDM生成的PDF图纸中OLE引用（由Excel中copy过来的表格）图片、公司LOGO图片模糊。
解决方案：在对PDF文件打印时，取消打印界面“作为图像打印”的复选框后再打印就不会存在模糊的问题。
2 T3 X. C/ A  j& y/ l6 ^0 T7 a4 D
[问题2]、打印PDF文件时提示“无法找到或创建字体 TimesNewRomanPSMT，XXXXXX”。
$ T# o, E; t# p6 j8 ~+ ^解决方案：原因是由于客户端安装的pdf查看工具版本影响，经过测试安装AdbeRdr11000_zh_CN.exe版本在打印时就没有问题。

cyfdean2011

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