AUTOCAD2010 使用VBA调用系统打印机完成打印非常慢，如何解决？

157787698

# _. I9 O2 q! S/ n
本人写了一段VBA程序用来将CAD图形转化为MDI格式，此CAD图纸也同样是由此程序生成，原来在AUTOCAD2004中可以正常生成图纸并通过plottofile方法转化为MDI格式，但是现在公司统一将CAD升级为2010，这样导致此程序不能使用。
! k- z5 ~$ N; N: u$ _$ H& v$ b+ J$ H5 Q
问题出现在使用plottofile方法进行虚拟打印过程。
# v4 a) U9 |7 n% |8 K- I
原来在AUTOCAD2004中，使用plottofile方法完成虚拟打印只需要20秒左右，但是在AUTOCAD2010中，完成统一个动作需要150秒左右，这是不能接受的。而且在程序中如果连续使用两次plottofile方法，则即使对第一次使用plottofile方法生成的文件进行是否存在进行判断，第二次打印时程序仍然会跳出中断。
& f) n  f+ o2 g. S. K* {
具体代码如下：
+ ~' Z3 @. X( {7 N( F
- A; v# m. E& s2 E        point1(0) = -5
        point1(1) = 310
" Z& b0 s& Z: x        point2(0) = 420
        point2(1) = 610
: S# |5 Y7 ?$ v5 F; I  }) M' x       i = 0
$ U( T: {& c& I( ]1 l) i! L        ' Send information about window to current layout
8 o- |) b$ E9 A7 x& T. s; V5 B5 C4 ]        ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
$ I# E# v5 W: C0 m        ' Read back window information
        ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
'        ThisDrawing.Plot.DisplayPlotPreview acFullPreview    '全局预览
: m6 x% l# K0 x1 f* u1 n        ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
8 L" T' t8 F$ z* F4 ]# h7 L         ' 将打印份数设置为 1
        ThisDrawing.Plot.NumberOfCopies = 1
        ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
        ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
        ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True '
        ThisDrawing.Plot.QuietErrorMode = True
3 L6 O8 t' t8 }. ?8 y        ThisDrawing.Regen acActiveViewport
         ' 初始化打印
& a5 N. L5 v- T2 l" i# e8 Z. T        RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
        RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
. U- V8 a# I# Q4 y0 `2 p# x3 c# k        RegCloseKey Result
. l) V! A& L- `8 x: @   
        ThisDrawing.Plot.PlotToFile KHpathmdi1
- O- l; D# C% q, e* [              '判断文件是否存在
" v% ?/ O6 N5 t3 f6 m0 F     Do While Dir(KHpathmdi1) = ""
            DoEvents
+ X& ]/ t4 c+ q9 [9 f) }7 G0 G  Y            i = i + 1
        Loop   
    i = 0
) c1 Q/ u, {9 t6 k" S   'On Error Resume Next
2 v  X8 h/ d$ ]. j    point1(0) = -5
+ b0 J0 o% |# r! w; k) y9 W8 w    point1(1) = -3
: g; _* u, z: J* Q2 ?- e1 ?    point2(0) = 420
    point2(1) = 297
8 `4 m) n8 N: D7 j) t& Q" Y    ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
2 G2 j( W6 K# e* @! }& [    ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
'    ThisDrawing.Regen acActiveViewport
3 V" I) R4 s8 `$ X    ThisDrawing.Plot.NumberOfCopies = 1
    ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
    ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
    ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True
* T1 J5 r. d& V( C- G    ThisDrawing.Plot.QuietErrorMode = True
    ThisDrawing.Regen acActiveViewport
2 k- V/ T9 ]! J" K  P& d    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
    RegCloseKey Result
    ThisDrawing.Plot.PlotToFile AZpathmdi1
; x" P; ^, N% V& Y& j; e5 E    Do While Dir(AZpathmdi1) = ""
        DoEvents
        i = i + 1
- O; |3 I% ]8 d8 N7 g6 J; l    Loop

9 m9 H4 q: Q) S2 @8 p9 m3 @在判断第一次plottofile方法是否完成时，粉色部分循环运行了40多万次；如果在粉色部分后面设置断点，然后再继续运行，则第二次使用plottofile方法调用系统打印机可以完成打印，程序可以正常运行，而为完成此次循环，蓝色部分循环需要运行运行30多万次。这两个循环中任一个都需要耗费150秒左右。
7 p* z* d7 W. n2 O6 Y
' c7 ^2 }2 h* \. ]" h8 V/ \% `而原来在AUTOCAD2004中，这两个循环 i 均等于0，也就是系统打印机与VBA程序基本上是同步执行的。

& r/ K; a4 y5 {& M! S5 }3 z3 [1 S4 O
为什么会有这个差异？请各位大虾指点,谢谢

157787698

大家没有遇到这种情况吗?怎么都没有人回复阿

157787698

自己顶一下

157787698

问题已经解决

, K: r4 k& [$ d7 \2 g% c! V1 S解决方法：
) Q: z4 t" l* B7 r- G在选项中不勾选后台打印关闭