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

157787698

( N+ y- ~5 s3 Y3 r! X
本人写了一段VBA程序用来将CAD图形转化为MDI格式，此CAD图纸也同样是由此程序生成，原来在AUTOCAD2004中可以正常生成图纸并通过plottofile方法转化为MDI格式，但是现在公司统一将CAD升级为2010，这样导致此程序不能使用。
# `; W) `; i+ A2 A
, q( N) Z8 E2 g) q问题出现在使用plottofile方法进行虚拟打印过程。

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

6 A- Y. g4 \" ~; `0 @  `具体代码如下：

        point1(0) = -5
        point1(1) = 310
        point2(0) = 420
        point2(1) = 610
& B: P' M! q/ U% q* [       i = 0
        ' Send information about window to current layout
        ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
' w% E9 c# {- }        ' Read back window information
6 D, p& J  s" t$ g        ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
# a# S' |/ r: {2 F'        ThisDrawing.Plot.DisplayPlotPreview acFullPreview    '全局预览
& e' f: ]7 [' w+ P4 _        ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
- Y# [0 q3 |! n6 M3 n/ f' B& Y         ' 将打印份数设置为 1
        ThisDrawing.Plot.NumberOfCopies = 1
        ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
# C- f6 J1 q1 j        ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
, U7 X& g8 Y1 U        ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True '
        ThisDrawing.Plot.QuietErrorMode = True
. A9 A1 f0 Y& X6 y        ThisDrawing.Regen acActiveViewport
7 M+ ?1 x" I1 ]         ' 初始化打印
        RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
: k2 m1 H$ E  \* z- `% d! h        RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
% h1 a4 l& y/ |) Y" P: G        RegCloseKey Result
( q  D- `) @5 o   
        ThisDrawing.Plot.PlotToFile KHpathmdi1
              '判断文件是否存在
1 J9 R6 `6 [, G; T' X/ w     Do While Dir(KHpathmdi1) = ""
- Y1 U8 w& r4 Z2 e            DoEvents
- E+ N* v0 r# o0 x5 R            i = i + 1
        Loop   
    i = 0
   'On Error Resume Next
    point1(0) = -5
: d' X, E& G& H. E7 V    point1(1) = -3
$ g  V5 l3 h  A  \, B    point2(0) = 420
. ]; o, W6 B+ N$ e  }& |    point2(1) = 297
7 Z9 p; x* y5 s    ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
'    ThisDrawing.Regen acActiveViewport
' [. l! m( p* N: g. P( N. o- D    ThisDrawing.Plot.NumberOfCopies = 1
1 o, _+ J1 b/ F    ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
- d& Y/ N/ h# s. {    ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
    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
    ThisDrawing.Plot.PlotToFile AZpathmdi1
   Do While Dir(AZpathmdi1) = ""
        DoEvents
        i = i + 1
    Loop

0 {+ i5 T. n! n1 x5 Z在判断第一次plottofile方法是否完成时，粉色部分循环运行了40多万次；如果在粉色部分后面设置断点，然后再继续运行，则第二次使用plottofile方法调用系统打印机可以完成打印，程序可以正常运行，而为完成此次循环，蓝色部分循环需要运行运行30多万次。这两个循环中任一个都需要耗费150秒左右。

# V# f6 ?; [3 x6 s# }而原来在AUTOCAD2004中，这两个循环 i 均等于0，也就是系统打印机与VBA程序基本上是同步执行的。
+ |& A6 I# V, Z. D
/ Z1 l/ y" [- w, @; f# H) k
为什么会有这个差异？请各位大虾指点,谢谢

157787698

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

157787698

自己顶一下

157787698

问题已经解决
. |4 X# ^+ k- _% ~- _4 ~7 Q1 v
/ \) O1 n7 j0 }% o( d5 h+ s" v解决方法：
1 a% T1 Z; S" B6 `% b6 k在选项中不勾选后台打印关闭