SetLayoutsToPlot メソッド(ActiveX)

印刷する 1 つまたは複数のレイアウトを指定します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.SetLayoutsToPlot layoutList

object

タイプ: Plot

このメソッドが適用されるオブジェクト。

layoutList

アクセス: 入力のみ

タイプ: バリアント型

印刷するレイアウトを示すレイアウト名の配列。

戻り値(RetVal)

戻り値はありません。

注意

このメソッドは旧式であり、AutoCAD の将来のバージョンでは除去される予定です。

layoutList パラメータが NULL か、またはメソッドが全く呼び出されていない場合は、アクティブなレイアウトが出力に送られます。

PlotToFile メソッドまたは PlotToDevice メソッドへの呼び出しの後は毎回、印刷する既定のレイアウトはアクティブなレイアウトにリセットされます。アクティブなレイアウト以外のレイアウトを指定するには、印刷の前に毎回 SetLayoutsToPlot メソッドを呼び出さなくてはなりません。

例

VBA:

Sub Example_SetLayoutsToPlot()
    ' This example plots the layouts of a drawing.

    Dim oPlot As AcadPlot
    Dim AddedLayouts() As String
    Dim LayoutList As Variant
    Dim oLayout As AcadLayout
    Dim ArraySize As Integer, BatchCount As Integer
    
    For Each oLayout In ThisDrawing.Layouts
        ArraySize = ArraySize + 1
        ReDim Preserve AddedLayouts(1 To ArraySize)
        AddedLayouts(ArraySize) = oLayout.Name
    Next

    LayoutList = AddedLayouts
    Set oPlot = ThisDrawing.Plot
    oPlot.SetLayoutsToPlot LayoutList
    oPlot.PlotToDevice "DWF6 ePlot.pc3"
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_SetLayoutsToPlot()
    ;; This example plots the layouts of a drawing.
    (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-PlotToDevice oPlot "DWF6 ePlot.pc3")
)