[VBA程序]：使用Plot对象打印，出现问题

弓长

我在Lisp编程中使用Plot对象实现图纸打印，但出现错误，请高手指点：

(defun c:pp (/ doc plot outputfile rt)
  (vl-load-com)
  
  (setq        doc (vla-get-ActiveDocument  (vlax-get-Acad-Object))
          plot           (vla-get-Plot doc)                ;_获取打印对象
        outputfile "i:\\b01.plt"
  )

  (repeat 2
    (vla-DisplayPlotPreview plot acFullPreview) ;_预览活动布局

    (setq rt (vla-PlotToFile plot outputfile))        ;_执行打印


    (if        (= rt :vlax-false)
      (princ "\n打印失败！")
      (princ "\n打印成功！")
    )
  )

  (princ)
)

上述这段代码是使用Plot对象打印出图。在CAD2004中执行正确，但CAD2005中，若只执行一次(vla-PlotToFile plot outputfile))，则不会提示错误，但硬盘要猛响几秒钟后才会停止。但若用repeat 重复执行，如上面代码所示，则循环执行一次后，就会提示“错误: Automation 错误。未提供说明。”