Linetypes Example

Using Programming Languages other than 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

 

   Comments?