我也想知道以下这个批量打印程序只能打出第一页就出错
我也想知道以下这个批量打印程序只能打出第一页就出错：http://bbs.xdcad.net/thread-678828-1-2.html(defun c:A3DY()(vl-load-com)
(setq A3tz '(((0 0) (420 297)) ((480 0) (900 297)) ((960 0) (1380 297))))
(setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq Layout (vla-get-ActiveLayout Doc))
(setq Plot (vla-get-Plot Doc))
(foreach pts A3tz
(vla-RefreshPlotDeviceInfo Layout)
(setq p1 (car pts)p2(cadr pts))
(vlax-invoke Layout "SetWindowToPlot" p1 p2) ;打印范围
(vlax-put Layout "ConfigName" "HP LJ 5200LX PCL6") ;打印机
(vlax-put Layout "StyleSheet" "monochrome.ctb") ;打印样式表("monochrome.ctb")
(vlax-put Layout "CanonicalMediaName" "A3") ;图纸尺寸：A3
(vlax-put Layout "PlotRotation" 1) ;图形方向：横向
(vlax-put Layout "StandardScale" 1) ;缩放方式：自定义比例
(vlax-put Layout "PaperUnits" 1) ;单位：1-毫米
(vlax-put Layout "PlotType" 4) ;打印范围：4-窗口
(vla-SetCustomScale Layout 1 1) ;打印比例
;(vla-DisplayPlotPreview Plot acFullPreview) ;打印预览
(vla-plotToDevice Plot) ;打印
)
(vlax-release-object Plot)
(vlax-release-object Layout)
(vlax-release-object Doc)
(princ)
)
页:
[1]