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

157787698

本人写了一段VBA程序用来将CAD图形转化为MDI格式，此CAD图纸也同样是由此程序生成，原来在AUTOCAD2004中可以正常生成图纸并通过plottofile方法转化为MDI格式，但是现在公司统一将CAD升级为2010，这样导致此程序不能使用。

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

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

0 c% a8 R' O% B& [0 u具体代码如下：
8 s  {# d2 |* e- ]; r
' o; ^4 ^3 a/ r& {' R3 _        point1(0) = -5
3 u+ A4 R! ~9 J/ M        point1(1) = 310
        point2(0) = 420
, K/ s# k. e: t& t4 g! `/ v        point2(1) = 610
+ z- Z$ e' n3 C       i = 0
        ' Send information about window to current layout
0 ?: {0 ~' K% u/ h% o0 Z        ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
0 V" K: p/ q! L; A! o/ b2 `/ d        ' Read back window information
        ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
; y1 W* o8 b6 U$ g( K'        ThisDrawing.Plot.DisplayPlotPreview acFullPreview    '全局预览
        ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
         ' 将打印份数设置为 1
0 s; d4 M3 w7 |; l        ThisDrawing.Plot.NumberOfCopies = 1
* r$ P/ U7 p* K2 A        ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
        ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
        ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True '
        ThisDrawing.Plot.QuietErrorMode = True
" l- j  l) B3 v  Y4 [" p. C# u9 }        ThisDrawing.Regen acActiveViewport
         ' 初始化打印
        RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
        RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
* y5 P4 p" R4 F0 j        RegCloseKey Result
4 ~7 I) {9 D! `' o+ Q3 p6 r) {   
        ThisDrawing.Plot.PlotToFile KHpathmdi1
              '判断文件是否存在
9 h& G3 P3 C8 o% p- |2 m     Do While Dir(KHpathmdi1) = ""
0 [. I! Y: L$ z# |* d9 P" G            DoEvents
. Z  o+ O1 N( \7 d            i = i + 1
* N& r4 W/ d9 A& g- L0 K        Loop   
  o2 l  R$ @& n0 ~& u    i = 0
$ U6 B  ~1 I1 Q2 x( Q4 v   'On Error Resume Next
, g2 ~5 V- t2 `; T/ u6 h3 b8 |    point1(0) = -5
    point1(1) = -3
+ M( t3 B$ K+ A    point2(0) = 420
5 s4 M) _6 }$ O$ m0 N& W    point2(1) = 297
' J5 j( C4 H; c7 Y    ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
    ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
    ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
'    ThisDrawing.Regen acActiveViewport
1 }5 V# m1 n. ]2 x( t! T    ThisDrawing.Plot.NumberOfCopies = 1
    ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
    ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
1 r& j/ ?! b+ X5 u    ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True
" }( q2 _3 Q6 ?$ Y$ G! g& k    ThisDrawing.Plot.QuietErrorMode = True
& _- L4 k/ g1 g9 f3 d$ @4 {    ThisDrawing.Regen acActiveViewport
; d5 d# |( u  D0 M# w- j2 v, J    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
2 x; I; C" O# H% `+ a. w, D, W    RegCloseKey Result
    ThisDrawing.Plot.PlotToFile AZpathmdi1
   Do While Dir(AZpathmdi1) = ""
: t' @9 C$ R( d. Z        DoEvents
        i = i + 1
    Loop

在判断第一次plottofile方法是否完成时，粉色部分循环运行了40多万次；如果在粉色部分后面设置断点，然后再继续运行，则第二次使用plottofile方法调用系统打印机可以完成打印，程序可以正常运行，而为完成此次循环，蓝色部分循环需要运行运行30多万次。这两个循环中任一个都需要耗费150秒左右。
! b% ]4 Y, q8 B9 }
! [5 b" C5 V0 T7 p而原来在AUTOCAD2004中，这两个循环 i 均等于0，也就是系统打印机与VBA程序基本上是同步执行的。


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

157787698

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

157787698

自己顶一下

157787698

问题已经解决
3 o. ?/ u) G2 V) g* B7 d( H" Z
解决方法：
在选项中不勾选后台打印关闭