Linetypes Property (ActiveX)

Gets the Linetypes collection for the document.

Supported platforms: Windows only

Signature

VBA:

object.Linetypes

object

Type: Database, Document

The object this property applies to.

Property Value

Read-only: Yes

Type: Linetypes

The Linetypes collection for the document.

Remarks

No additional remarks.

Examples

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