Vla-put-numberofcopies

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-put-numberofcopies vla-object num)

機能: 印刷部数を指定する。

引数

vla-object … Plot の VLAオブジェクト
num … 印刷部数

戻り値: なし

このプロパティを再設定せずに PlotToDevice を呼び出すと、NumberOfCopies プロパティに最後に指定された値が使用される。

サンプル

(vl-load-com)
(defun c:Example_NumberOfCopies()
    ;; レイアウトを印刷するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq AddedLayouts (vlax-make-safearray vlax-vbString (cons 0 (1- (vla-get-Count (vla-get-Layouts doc)))))
          ArraySize 0)
  
    (vlax-for oLayout (vla-get-Layouts doc)
        (vlax-safearray-put-element AddedLayouts ArraySize (vla-get-Name oLayout))
        (setq ArraySize (1+ ArraySize))
    )

    (setq oPlot (vla-get-Plot doc))
    (vla-SetLayoutsToPlot oPlot AddedLayouts)
    (Vla-put-numberofcopies oPlot 1)
    (vla-PlotToDevice oPlot "DWF6 ePlot.pc3")
    (alert "印刷は" (Vla-get-numberofcopies oPlot) "部出たかね？")
)