Using Programming Languages other than VBA

Sub Example_TextManipulation()
	Dim oML As AcadMLeader
	Dim points(0 To 14) As Double


	' Define the leader points
	points(0) = 1: points(1) = 1: points(2) = 0
	points(3) = 1: points(4) = 2: points(5) = 0
	points(6) = 2: points(7) = 2: points(8) = 0
	points(9) = 3: points(10) = 2: points(11) = 0
	points(12) = 4: points(13) = 4: points(14) = 0
	Dim i As Long
	Set oML = ThisDrawing.ModelSpace.AddMLeader(points, i)

	oML.TextLeftAttachmentType = acAttachmentBottomLine
	oML.TextRightAttachmentType = acAttachmentMiddleOfBottom
	oML.TextBackgroundFill = False
	oML.TextDirection = acLeftToRight
	oML.TextHeight = 2.3
	oML.TextJustify = acAttachmentPointMiddleLeft
	oML.TextLineSpacingDistance = 2.4
	oML.TextLineSpacingFactor = 1.2
	oML.TextLineSpacingStyle = acLineSpacingStyleExactly
	oML.TextWidth = 7.4

End Sub