Gets the Linetypes collection for the document.
Supported platforms: Windows only
VBA:
object.Linetypes
No additional remarks.
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)) )