Align texts to horizontal line

 
  Program name : TAH.LSP

 Example
Select objects: {p1}                    [Select texts by using cross box]
Other corner: {p2} 3 found      
Select objects:                        [Finksh selecting]
Pick Point: {p3}                        [Pick a point that is base of text]