|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名% m0 a3 I8 d2 ^6 G
: G7 O1 y8 ^. r$ P* M$ O
我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
+ D0 U" B- l% w ~; t2 p1 m, S# g5 h, l: p/ @
代码如下，请大虾指点，谢谢
2 [# a7 x* S& |, `
7 O* t0 J$ @ u/ t5 w2 E: A- 9 ~+ p1 ~3 A" v0 r8 S# v, L4 C8 x* W
- ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息1 M; q! w% o o! l
- ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer: U: q: \- v Y
- ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A32 ?! s& i& V! J$ m. ?- |2 \
- ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
% ^9 D2 ?6 Z. Y& K - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 47 P; Q* n$ y; \4 F2 Y
- ' RegCloseKey Result
: D# k& C) o6 @: z4 b9 j% w* p - Dim point1(0 To 1) As Double, point2(0 To 1) As Double
# n% Z3 k! N) d8 h0 I3 ^, _ - Dim path11 As String
2 X& C5 t+ W1 A+ S! O X - path11 = "D:\123.pdf", A1 Y2 M$ _/ D+ }4 A% v' T
- Scal = 39
, h& Y! C9 G% h: T - point1(0) = 0 '安装图1
: I2 H' b5 H# ^9 Q. h - point1(1) = 0
6 o/ @; U% [3 r - point2(0) = 420 * Scal
6 U4 X+ ~- Y4 _1 z$ A& x - point2(1) = 297 * Scal
0 U) {: |' g0 s/ C5 n - ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
. ?5 F4 y; y0 z - ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2(), Q6 R$ o- g/ B+ I+ v) ]
- ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees# Z. M, m) X; t& N8 I
- ThisDrawing.Regen acActiveViewport. P/ \: E1 ?' {. G1 K7 n
- ThisDrawing.Plot.NumberOfCopies = 1
, \$ x) O2 u' K, E9 P - ThisDrawing.ModelSpace.Layout.PlotType = acWindow
5 r F+ G+ z" Q, M) N( T - ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit9 \0 Q+ ?% ]" A' Y/ E t) b
- ThisDrawing.ModelSpace.Layout.CenterPlot = True: L: ?) n, a! Y z; D% R
- ThisDrawing.Plot.QuietErrorMode = True9 u( N0 o; T' V s1 F. X3 E( h
-
' X6 }! X' o6 x3 R: w1 F3 { -
) ~ L U7 ~+ S# q8 }& o - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result+ D9 X) |( y8 j5 t' C) d
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 40 k) r; A" f9 \2 V5 c- v
- ' RegCloseKey Result
9 ?& X; L2 a4 P - ThisDrawing.Plot.PlotToFile path11# T1 v2 s4 b# l$ p B
-
% U" b+ A7 j) k7 W7 m
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主