Linetypes プロパティ(ActiveX)

ドキュメントの Linetypes コレクションを取得します。

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

構文と要素

VBA:

object.Linetypes

object

タイプ: Database、Document

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

プロパティの値

読み込み専用: はい

タイプ: Linetypes

ドキュメントの Linetypes コレクション。

注意

追加の注意はありません。

例

VBA:

Sub Example_Linetypes()
    ' This example finds the linetypes collection and
    ' lists all the available linetypes in the collection.
    
    Dim linetypeColl As AcadLineTypes
    Dim entry As AcadLineType
    Dim msg As String
    
    ' Return the linetype collection object of the active document
    Set linetypeColl = ThisDrawing.Linetypes

    ' List all available linetypes
    For Each entry In linetypeColl
        msg = msg & entry.name & vbCrLf
    Next
    MsgBox "The linetypes available in this drawing are:" & vbCrLf & msg, vbInformation, "Linetypes Example"
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_Linetypes()
    ;; This example finds the linetypes collection and
    ;; lists all the available linetypes in the collection.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; Return the linetype collection object of the active document
    (setq linetypeColl (vla-get-Linetypes doc))
  
    ;; List all available linetypes
    (setq msg "")
    (vlax-for entry linetypeColl
        (setq msg (strcat msg (vla-get-Name entry) "\n"))
    )

    (alert (strcat "The linetypes available in this drawing are:\n" msg))
)