DefaultPlotStyleTable プロパティ(ActiveX)

新しい図面にアタッチする既定の印刷スタイル テーブルを指定します。

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

構文と要素

VBA:

object.DefaultPlotStyleTable

object

タイプ: PreferencesOutput

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: 文字列

印刷スタイル テーブルは、拡張子が .ctb または .stb のファイルで、印刷スタイルを定義します。

注意

色に依存する印刷スタイルを使用している場合、このオプションは、検索パスにある色に依存した任意の印刷スタイル テーブルまたは値 "None" に設定できます。名前の付いた印刷スタイルを使用している場合、このオプションは名前の付いた任意の印刷スタイル テーブルに設定できます。

色に依存する印刷スタイルを設定するには、PlotPolicy プロパティを使用します。

例

VBA:

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)
)