|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
下面代码中，如果使用PLOTTODEVICE方法，是可以打印成功的，但是需要手动输入文件名" x6 j+ h; A6 ^6 X j' S0 y' y9 ]
5 P6 G3 I( v9 m8 ?; A2 ^0 p$ ]我想让程序中自动输出文件名，所以使用了plottofile方法，结果却无法正确输出了，输出的PDF文件打不开
+ t5 d1 ^0 T7 E; O# N
% w3 E( p/ I) q, P ?代码如下，请大虾指点，谢谢, y4 N' Q5 x6 {' d* k% k
# G+ a) e& V9 M l+ c! y" w# h-
3 `; o) r0 b# D( P% b G) o# a! T! k - ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo '刷新打印设备信息9 A$ ?' R- h" F4 \
- ThisDrawing.ModelSpace.Layout.ConfigName = "Adobe PDF" '设置打印机为虚拟打印机 Microsoft Office Document Image Writer/ V+ H+ `0 [; Q( Z, a
- ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A3" '设置纸型为A3
( t' Y" z+ _, C! u5 U# s& |, p' e - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
- P T- U' N* Q4 S' B - ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
$ g. z- @# H% ^0 L/ J - ' RegCloseKey Result+ a2 E1 h* h; {) u1 R- L5 ]
- Dim point1(0 To 1) As Double, point2(0 To 1) As Double7 s; U3 ?* O( o1 R: x# T6 O
- Dim path11 As String
: u$ q/ X" @! L- c& n P: q, v - path11 = "D:\123.pdf"
! ]; S5 [: u' h) |% q - Scal = 39
+ I* f6 g' {% b# A5 ] - point1(0) = 0 '安装图1
3 [7 n: e. x; d& g9 |; W& j% u6 w - point1(1) = 07 K: H; K% K- J" U$ i- X) j
- point2(0) = 420 * Scal
# Q0 @$ p1 |3 M9 @) b9 O - point2(1) = 297 * Scal+ d0 R/ `& }; ~% \4 H6 r- M
- ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2(), B0 w |8 f5 J* t- V' X& K/ d" o
- ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
4 J- R( A5 Z1 j; |# v( Y1 ` - ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
) a8 a; x5 V6 n - ThisDrawing.Regen acActiveViewport$ D6 ^4 u _2 N
- ThisDrawing.Plot.NumberOfCopies = 1
9 H$ F2 O$ V% Q: w# Q - ThisDrawing.ModelSpace.Layout.PlotType = acWindow7 P# ]: M+ |6 H; |) N* I
- ThisDrawing.ModelSpace.Layout.StandardScale = acVpScaleToFit- O+ ~, Q$ K, _) v
- ThisDrawing.ModelSpace.Layout.CenterPlot = True! n y9 a/ ?6 ~2 O7 H& V
- ThisDrawing.Plot.QuietErrorMode = True ] B; Q! D' R# R# V: m
- 0 ^) }1 z6 `# y/ o1 g
-
+ a& O* K& D7 a/ Z& q1 p - ' RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result7 x3 r6 |; s% ~) U2 |
- ' RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4- n3 @ H. O0 G/ P5 V3 u4 E
- ' RegCloseKey Result
* j( Q0 M/ H/ D( Y- U* S* D. X - ThisDrawing.Plot.PlotToFile path11
0 e) ]( d F4 G& j, _7 \ -
9 h0 }" \, N% k7 D+ C! A/ v6 j
|
|
发表于 2011-9-2 13:48:41
发表于 2011-9-2 21:24:33
楼主