;; | -----------------------------------------------------------------------------
;; | TX_CreateMText
;; | -----------------------------------------------------------------------------
;; | Function : Create a Multiline text object
;; | Arguments: 'StrLst' - List of text strings to create
;; |            'Insp'   - Text Insertion point (Top Left)
;; |            'Hgt'    - Text Height
;; |            'Just'   - Justification
;; | Returns  : None
;; | Updated  : May 26, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------

(defun TX_CreateMText ( StrLst Insp Hgt Just / ss CharWid _CharWid Str )

(setq
	ss      (ssadd)
	CharWid 0
)
(foreach Str StrLst
	(if (> (setq _CharWid (strlen Str)) CharWid)
		(setq CharWid _CharWid)
	)
)

(setq
	CharWid (* CharWid Hgt)
	CharHgt (* (length StrLst) Hgt 1.2)
)

(command "._MText" Insp "_Height" Hgt "_Just" Just (MI_Shift Insp CharWid (- 0.0 CharHgt) 0.0))
(foreach Str StrLst
	(command Str)
)
(command "")
(entlast)
)