Description プロパティ(ActiveX)

オブジェクトの説明を指定します。

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

構文と要素

VBA:

object.Description

object

タイプ: DynamicBlockReferenceProperty、Layer、Linetype、Material、MLeaderStyle、TableStyle

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

プロパティの値

読み込み専用: いいえ(DynamicBlockReferenceProperty オブジェクトを除く)

タイプ: 文字列

オブジェクトに割り当てられた説明。

注意

ダイナミック ブロック参照プロパティの説明は、ブロックの作成者によって設定され、編集することはできません。

線種の説明には最大 47 文字入力できます。説明には、コメントまたは線種パターンを簡潔に示す一連のアンダースコア(_)、ドット(.)、ダッシュ(-)、スペースを入力できます。

例

VBA:

Sub Example_Description()
    ' This example returns the description of the active linetype.
    ' It then changes the description of the active linetype.
    
    Dim currDescription As String
    
    ' This example modifies the description of a linetype
    currDescription = ThisDrawing.ActiveLinetype.Description
    MsgBox "The description of the active LineType is: " & currDescription, vbInformation, "Description Example"

    ' Change the description of the active linetype
    ThisDrawing.ActiveLinetype.Description = "My favorite LineType"
    MsgBox "The new description of the active LineType is: " & ThisDrawing.ActiveLinetype.Description, vbInformation, "Description Example"
    
    ' Reset the description of the active linetype
    ThisDrawing.ActiveLinetype.Description = currDescription
    MsgBox "The description of the active LineType is reset to: " & ThisDrawing.ActiveLinetype.Description, vbInformation, "Description Example"
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_Description()
    ;; This example returns the description of the active linetype.
    ;; It then changes the description of the active linetype.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; This example modifies the description of a linetype
    (setq currDescription (vla-get-Description (vla-get-ActiveLinetype doc)))
    (alert (strcat "The description of the active Linetype is: " currDescription))

    ;; Change the description of the active linetype
    (vla-put-Description (vla-get-ActiveLinetype doc) "My favorite LineType")
    (alert (strcat "The new description of the active Linetype is: " (vla-get-Description (vla-get-ActiveLinetype doc))))
    
    ;; Reset the description of the active linetype
    (vla-put-Description (vla-get-ActiveLinetype doc) currDescription)
    (alert (strcat "The description of the active Linetype is reset to: " currDescription))
)