批量打印问题
本帖最后由 oyxx1023 于 2013-7-3 09:40 编辑(repeat page-h
(setq ptn-x1 (+ pt1-x (* n-h hxjj)))
(setq ptn-y1 (+ pt1-y (* n-v zxjj)))
(setq ptn-x2 (+ pt2-x (* n-h hxjj)))
(setq ptn-y2 (+ pt2-y (* n-v zxjj)))
(setq ptn1 (list ptn-x1 ptn-y1))
(setq ptn2 (list ptn-x2 ptn-y2))
(setq pt-center (list (/ (+ ptn-x1 ptn-x2) 2)
(/ (+ ptn-y1 ptn-y2) 2)
)
)
(command ".zoom" "c" pt-center "")
(command ".rectang" "w" xk ptn1 ptn2)
(vlax-safearray-fill point1 ptn1)
(vlax-safearray-fill point2 ptn2)
(vla-put-plottype activelayout acwindow)
(vla-refreshplotdeviceinfo activelayout)
(vla-setwindowtoplot activelayout point1 point2)
(setq plot (vla-get-plot acaddocument))
(vla-put-numberofcopies plot copies)
;;(if (<= av 16)
(vla-plottodevice plot) ;;第二次循环时automation错误，未提供说明.why??
;; (command ".plot" "n" "" "" "" "" "y" "")
;;)
(entdel (entlast))
(setq n-h (1+ n-h))
)
该批量打印程序，每次执行时只能打印第一张，到第二张的时候就出现automation错误，我被迫用command "plot"，是何解？找了一遍，感觉没哪个地方不对呀？
打印机是网络打印机，是不是和这有关？
打印未结束，所以第二页发不出去。第 一页占用了打印机。 那如何解决这个问题呢，如何等待打印机发送完第一页后再执行第二遍循环？
页:
[1]