;; ! ***************************************************************************
;; ! MX_GetJust
;; ! ***************************************************************************
;; ! Function : Get the justification of the MTEXT from the flag 71
;; ! Argument : 'flag71' - Flag Value of DXF Code 71
;; ! Return   : The Justification of the MTEXT (can be either of string values
;; !            "TL/ML/BL/TR/MR/BR/TC/MC/BC"
;; ! Updated  : September 17, 1999
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! ***************************************************************************


(defun MX_GetJust( flag71 / JustLst71 )

(setq JustLst71 (list
					(list 1 "TL") (list 2 "TC") (list 3 "TR") (list 4 "ML") (list 5 "MC") (list 6 "MR")
					(list 7 "BL") (list 8 "BC") (list 9 "BR")
				)
)
(cdr (assoc flag71 JustLst71))
)