DefaultPlotStyleTable Property （ActiveX）

签名

工 务 局：

object.DefaultPlotStyleTable

对象

类型：首选项输出

此属性适用的对象。

属性值

只读：不

类型：字符串

打印样式表具有 .ctb或 .stb扩展名，包括和定义打印样式。

言论

如果使用与颜色相关的打印样式，则可以将此选项设置为在搜索路径中找到的任何与颜色相关的打印样式表以及值“None”。如果使用命名打印样式，则可以将此选项设置为任何命名打印样式表。

要设置与颜色相关的打印样式，请使用属性。PlotPolicy

例子

工 务 局：

Sub Example_DefaultPlotStyleTable()
    ' This example reads and modifies the preference value that
    ' specifies the default plot style table to attach to new drawings.
    '
    ' Note: You may want to change the path of the new plot style table below.
    
    Dim ACADPref As AcadPreferencesOutput
    Dim CurrentFile As String
    
    Const NewFile = "c:\monochrome.ctb"
    
    ' Get the drafting preferences object
    Set ACADPref = ThisDrawing.Application.preferences.Output
    
    ' Read and display the current plot style table path
    CurrentFile = ACADPref.DefaultPlotStyleTable
    If CurrentFile = "" Then
        MsgBox "There is no current plot style table being used", vbInformation
    Else
        MsgBox "The current plot style table is: " & CurrentFile
    End If

    ' Use a new plot style table
    ACADPref.DefaultPlotStyleTable = NewFile
    
    ' Read and display the new plot style table path
    CurrentFile = ACADPref.DefaultPlotStyleTable
    MsgBox "The new plot style table is: " & CurrentFile, vbInformation

End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_DefaultPlotStyleTable()
    ;; This example reads and modifies the preference value that
    ;; specifies the default plot style table to attach to new drawings.
    ;;
    ;; Note: You may want to change the path of the new plot style table below.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))

    (setq NewFile (strcat (vla-get-PrinterStyleSheetPath (vla-get-Files preferences)) "\\monochrome.ctb"))
    
    ;; Get the drafting preferences object
    (setq ACADPref (vla-get-Output preferences))
    
    ;; Read and display the current plot style table path
    (setq CurrentFile (vla-get-DefaultPlotStyleTable ACADPref))
    (if (= CurrentFile "")
        (alert "There is no current plot style table being used.")
        (alert (strcat "The current plot style table is: " CurrentFile))
    )

    ;; Use a new plot style table
    (vla-put-DefaultPlotStyleTable ACADPref NewFile)
    
    ;; Read and display the new plot style table path
    (alert (strcat "The new plot style table is: " (vla-get-DefaultPlotStyleTable ACADPref)))

    (vla-put-DefaultPlotStyleTable ACADPref CurrentFile)
)