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

157787698

: S6 A" f* C7 F1 a8 A2 ]+ Y# Z/ E9 I本人写了一段VBA程序用来将CAD图形转化为MDI格式，此CAD图纸也同样是由此程序生成，原来在AUTOCAD2004中可以正常生成图纸并通过plottofile方法转化为MDI格式，但是现在公司统一将CAD升级为2010，这样导致此程序不能使用。

问题出现在使用plottofile方法进行虚拟打印过程。

原来在AUTOCAD2004中，使用plottofile方法完成虚拟打印只需要20秒左右，但是在AUTOCAD2010中，完成统一个动作需要150秒左右，这是不能接受的。而且在程序中如果连续使用两次plottofile方法，则即使对第一次使用plottofile方法生成的文件进行是否存在进行判断，第二次打印时程序仍然会跳出中断。

4 K. z) \- P5 ~0 I( a具体代码如下：
4 Y' U( M  f# C3 D" l' W: G2 o
" }: i# T$ f. S9 T+ B        point1(0) = -5
' H4 K. C" J7 Q0 I3 j( ^/ b        point1(1) = 310
$ o: ?% K* R0 d4 z5 D* l        point2(0) = 420
        point2(1) = 610
( o+ h7 K" p8 L# z  w- |" c       i = 0
# i; L6 ^* p& g! d% `, K% w        ' Send information about window to current layout
        ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
        ' Read back window information
        ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
% B0 J, k8 @$ O0 ~% r0 I'        ThisDrawing.Plot.DisplayPlotPreview acFullPreview    '全局预览
        ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
         ' 将打印份数设置为 1
        ThisDrawing.Plot.NumberOfCopies = 1
1 B' ~; ^! o7 V4 E' n; W        ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
        ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
        ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True '
7 Q: D2 Q% ~5 S' j7 m9 O- L        ThisDrawing.Plot.QuietErrorMode = True
        ThisDrawing.Regen acActiveViewport
( n+ w5 h# N9 o: s2 ~& g/ t         ' 初始化打印
) @2 Y$ l) s3 w5 {! \& H        RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
% o6 _( `6 K' r$ \9 t. s        RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
2 l3 _- O3 n  V" O+ M4 F        RegCloseKey Result
+ k0 w& S' h# p   
        ThisDrawing.Plot.PlotToFile KHpathmdi1
              '判断文件是否存在
8 v: ?  G& d; D$ k; c     Do While Dir(KHpathmdi1) = ""
            DoEvents
) X6 _0 z8 y" J/ n. k8 g2 M            i = i + 1
        Loop   
    i = 0
. s7 C; G* q" Q* T8 m) p   'On Error Resume Next
; b" L8 q. [4 T# C" O    point1(0) = -5
6 Q% I5 B/ K$ p+ L7 I    point1(1) = -3
    point2(0) = 420
' j1 U! S) O) Q$ a    point2(1) = 297
    ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
0 k7 l" e0 i0 M9 W. M/ R+ r/ Z: K- J# c    ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
'    ThisDrawing.Regen acActiveViewport
    ThisDrawing.Plot.NumberOfCopies = 1
9 [+ j  z! {# g# Y/ G    ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
$ m8 \: j3 U9 `" T' P, ^8 x, H    ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
: a5 H4 e0 l- f% z8 T    ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True
    ThisDrawing.Plot.QuietErrorMode = True
    ThisDrawing.Regen acActiveViewport
    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
    RegCloseKey Result
% ^) l8 D9 b3 W8 Y: Y2 [8 @0 Y    ThisDrawing.Plot.PlotToFile AZpathmdi1
   Do While Dir(AZpathmdi1) = ""
        DoEvents
        i = i + 1
5 d! t% v4 v  S6 ^& B1 ]7 q    Loop
1 f  f1 I, P$ X7 a
在判断第一次plottofile方法是否完成时，粉色部分循环运行了40多万次；如果在粉色部分后面设置断点，然后再继续运行，则第二次使用plottofile方法调用系统打印机可以完成打印，程序可以正常运行，而为完成此次循环，蓝色部分循环需要运行运行30多万次。这两个循环中任一个都需要耗费150秒左右。
0 S7 F. S- M7 d* R' r! b
而原来在AUTOCAD2004中，这两个循环 i 均等于0，也就是系统打印机与VBA程序基本上是同步执行的。
* x" w& [, [& _5 m$ Y

为什么会有这个差异？请各位大虾指点,谢谢

157787698

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

157787698

自己顶一下

157787698

问题已经解决

- J7 s' m1 w& X: ~  f, u# I2 Z解决方法：
在选项中不勾选后台打印关闭