[LISP程序]：批量打印的疑惑

xiguao

(defun plotlayout (/             key0      ss         thisdrawing
                   activelayout               ss1         i           e
                   obj             bp               up         bpa           upa
                   addlayout plotfilename
                  )
  (initget 128 "Select All")
  (setq key0 (getkword "\n [自行选择 (Select)/默认全选/(All)]<All>: "))
  (if (= key0 "Select")
    (setq ss (ssget '((0 . "insert") (2 . "*TK*") (66 . 1))))
    (setq ss (ssget "x" '((0 . "insert") (2 . "*TK*") (66 . 1))))
  )
  (if ss
    (progn
      (setq thisdrawing         (vla-get-activedocument (vlax-get-acad-object))
            activelayout (vla-get-activelayout thisdrawing)
      )
      (setvar "backgroundplot" 0)
      (vla-put-configname
        activelayout
        "\\\\PRN-JS\\HP LaserJet 5100 PCL 6"
      )
      (vla-put-CanonicalMediaName activelayout "A3")
      (vla-refreshPlotDeviceInfo activelayout)
      (vla-put-plottype activelayout acwindow);首次打印可能会出错？
      (vla-put-PaperUnits activelayout acMillimeters)
      (vla-put-usestandardscale activelayout :vlax-true)
      (setq ssl        (sslength ss)
            i        -1
      )
      (repeat ssl
        (setq e          (ssname ss (setq i (1+ i)))
              obj (vlax-ename->vla-object e)
        )
        (vla-getboundingbox obj 'bp 'up)
        (setq bpa (vlax-make-safearray vlax-vbDouble '(0 . 1))
              upa (vlax-make-safearray vlax-vbDouble '(0 . 1))
        )
        (vlax-safearray-put-element
          bpa
          0
          (vlax-safearray-get-element bp 0)
        )
        (vlax-safearray-put-element
          bpa
          1
          (vlax-safearray-get-element bp 1)
        )
        (vlax-safearray-put-element
          upa
          0
          (vlax-safearray-get-element up 0)
        )
        (vlax-safearray-put-element
          upa
          1
          (vlax-safearray-get-element up 1)
        )
        (vla-setWindowToPlot activelayout bpa upa)
        (vla-GetWindowToPlot activelayout bpa upa)
        (setq addlayout (vlax-make-safearray vlax-vbstring '(0 . 0)))
        (vlax-safearray-put-element
          addlayout
          0
          (vla-get-name activelayout)
        )
        (vla-put-stylesheet activelayout "monochrome.ctb");R2006无效？
        (vla-put-paperunits activelayout acMillimeters)
        (vla-get-ModelType activelayout)
        (vla-SetLayoutsToPlot (vla-get-plot thisdrawing) addlayout)
        (setq plotfilename (strcat "c:\\plot\\myplot" (itoa (fix i))))
        (vla-refreshPlotDeviceInfo activelayout)
        (vla-plottofile (vla-get-plot thisdrawing) plotfilename)
        (vla-DisplayPlotPreview
          (vla-get-plot thisdrawing)
          acFullPreview
        );如果先预览后打印有时会出错？
;;;        (vla-plottodevice (vla-get-plot thisdrawing))
      )
    )
  )
  (princ "打印完毕！")
  (princ)
)[PHP]



页面设置中打印样式表(笔指定)怎么实现

PlotConfiguration与layout在模型空间指定出图有什么区别?