我也想知道以下这个批量打印程序只能打出第一页就出错

yshf

我也想知道以下这个批量打印程序只能打出第一页就出错：http://bbs.xdcad.net/thread-678828-1-2.html

2. (defun c:A3DY()
   
3.      (vl-load-com)
   
4.      (setq A3tz '(((0 0) (420 297)) ((480 0) (900 297)) ((960 0) (1380 297))))
   
5.      (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6.      (setq Layout (vla-get-ActiveLayout Doc))
   
7.      (setq Plot (vla-get-Plot Doc))
   
8. 
   
9.      (foreach pts A3tz
   
10.          (vla-RefreshPlotDeviceInfo Layout)
    
11.          (setq p1 (car pts)  p2(cadr pts))
    
12.          (vlax-invoke Layout "SetWindowToPlot" p1 p2)         ;打印范围
    
13.          (vlax-put Layout "ConfigName" "HP LJ 5200LX PCL6")   ;打印机
    
14.   (vlax-put Layout "StyleSheet" "monochrome.ctb")      ;打印样式表("monochrome.ctb")
    
15.   (vlax-put Layout "CanonicalMediaName" "A3")          ;图纸尺寸：A3
    
16.   (vlax-put Layout "PlotRotation" 1)                   ;图形方向：横向
    
17.   (vlax-put Layout "StandardScale" 1)                  ;缩放方式：自定义比例
    
18.   (vlax-put Layout "PaperUnits" 1)                     ;单位：1-毫米
    
19.   (vlax-put Layout "PlotType" 4)                       ;打印范围：4-窗口
    
20.   (vla-SetCustomScale Layout 1 1)                      ;打印比例
    
21.       
    
22.          ;(vla-DisplayPlotPreview Plot acFullPreview) ;打印预览
    
23.   (vla-plotToDevice Plot)                     ;打印
    
24.      )
    
25.      (vlax-release-object Plot)
    
26.      (vlax-release-object Layout)
    
27.      (vlax-release-object Doc)
    
28.      (princ)
    
29. )

(defun c:A3DY()<br />      (vl-load-com)<br />      (setq A3tz '(((0 0) (420 297)) ((480 0) (900 297)) ((960 0) (1380 297))))<br />      (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />      (setq Layout (vla-get-ActiveLayout Doc))<br />      (setq Plot (vla-get-Plot Doc))<br /> <br />      (foreach pts A3tz<br />          (vla-RefreshPlotDeviceInfo Layout)<br />          (setq p1 (car pts)  p2(cadr pts))<br />          (vlax-invoke Layout "SetWindowToPlot" p1 p2)         ;打印范围<br />          (vlax-put Layout "ConfigName" "HP LJ 5200LX PCL6")   ;打印机<br />   (vlax-put Layout "StyleSheet" "monochrome.ctb")      ;打印样式表("monochrome.ctb")<br />   (vlax-put Layout "CanonicalMediaName" "A3")          ;图纸尺寸：A3<br />   (vlax-put Layout "PlotRotation" 1)                   ;图形方向：横向<br />   (vlax-put Layout "StandardScale" 1)                  ;缩放方式：自定义比例<br />   (vlax-put Layout "PaperUnits" 1)                     ;单位：1-毫米<br />   (vlax-put Layout "PlotType" 4)                       ;打印范围：4-窗口<br />   (vla-SetCustomScale Layout 1 1)                      ;打印比例<br />        <br />          ;(vla-DisplayPlotPreview Plot acFullPreview) ;打印预览<br />   (vla-plotToDevice Plot)                     ;打印<br />      )<br />      (vlax-release-object Plot)<br />      (vlax-release-object Layout)<br />      (vlax-release-object Doc)<br />      (princ)<br /> )