CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

SetLayoutsToPlot 方法（ActiveX）

2024-5-31 20:43| 发布者: admin| 查看: 303| 评论: 0|原作者: admin|来自: AutoCAD

指定要打印的一个或多个布局。

支持的平台：仅限 Windows

签名

VBA：

object.SetLayoutsToPlot layoutList

对象

类型： 剧情

此方法应用到的对象。

布局列表

访问：仅输入

类型：变体

表示要打印的布局的布局名称数组。

返回值（RetVal）

无返回值。

言论

此方法可能会过时，并且可能会在 AutoCAD 的未来版本中删除。

如果 layoutList 参数为或根本不调用此方法，则活动布局将发送到绘图。NULL

每次调用 or 方法后，要绘制的默认布局将重置为活动布局。若要指定活动布局以外的任何布局，必须在每个绘图之前调用该方法。PlotToFilePlotToDeviceSetLayoutsToPlot

例子

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

可视化 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")
)