|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名
" @9 @. x( e" G/ l) H6 r5 ]) _: p/ B7 q" P- i( I4 P5 y% H
我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开; Q8 N" @9 r- ~
: L2 E% @% v1 E0 M* d4 ?- ?
代码如下，请大虾指点，谢谢
( P! _7 e& g! J; y" T& h: q+ u) y, Q6 S/ @, S, P) B
- 7 {* X- B- X" Z+ t" z! B4 R
- ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息
: C3 z b6 h( z+ x) J* H - ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer
) n; P7 H2 A. F9 |/ s/ F. K - ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
7 j9 \9 q. F' c$ }- b9 s - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
" \ ?( z9 S& O. m* _- A( Q0 U - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
8 \9 ^7 i$ V [. X2 z - ' RegCloseKey Result' Z5 L# R9 W3 t3 g- q0 R5 v& l
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double
% `% S& A/ h3 A1 M8 a9 O - Dim path11 As String
d. m+ D+ {: A+ _+ N9 I, @ - path11 = "D:\123.pdf"3 i/ d* |8 x* H( T$ b' }
- Scal = 39
) |% V; ^+ \! Q) Q& M - point1(0) = 0 '安装图10 |+ P: s' q/ x+ N7 F$ D7 f
- point1(1) = 0$ z4 H. N1 \0 w# A5 N. { G' L
- point2(0) = 420 * Scal% H9 ?* q( g5 @- T% X5 U
- point2(1) = 297 * Scal# Q0 ~% l9 M P7 P) K' g7 F7 a, E! w
- ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
1 H: N7 h* B; B8 L8 G7 K - ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
+ D3 g5 r2 F& Z" ] - ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
8 P I2 i2 C0 O - ThisDrawing.Regen acActiveViewport
6 E) q! A6 q- L9 c1 j: l* K - ThisDrawing.Plot.NumberOfCopies = 1
9 K4 f% I* h% f: l7 D+ T - ThisDrawing.ModelSpace.Layout.PlotType = acWindow
$ { c) k! u. H) N# A0 h. O7 Y - ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit
" e' Z. Z! Q/ I; k' a7 F/ _0 A - ThisDrawing.ModelSpace.Layout.CenterPlot = True8 A* k6 W$ N9 M& u9 |: R6 |3 o+ ?
- ThisDrawing.Plot.QuietErrorMode = True' z4 B! ^+ T: r) N9 ~4 y% q& h4 N- G2 I
- + O) z2 [6 v" V5 D! i& c! ]* \3 n$ e
-
* q1 }* Z% v1 L+ ]/ h - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
) Y: A6 s( i1 \ - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 47 n& @8 x' E& T. h Z
- ' RegCloseKey Result* |5 S H1 `9 `6 v% J5 L
- ThisDrawing.Plot.PlotToFile path114 |8 J" Z% o9 H1 d0 P* f/ S$ r+ t
- 1 X: N, [- c+ C
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主