;; | -----------------------------------------------------------------------------
;; | TX_GetJust
;; | -----------------------------------------------------------------------------
;; | Function : Get the justification of the text from the two flags 72 and 73
;; | Argument : 'flag72' - Flag Value of DXF Code 72
;; |            'flag73' - Flag Value of DXF Code 73
;; | Return   : The Justification of the text (can be either of string values
;; |            "Left/Centered/Fitted/Aligned/Right/TL/ML/BL/TR/MR/BR/TC/MC/BC"
;; | Update   : September 17, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun TX_GetJust( flag72 flag73 / Just JustLst72 JustLst73 tmp73 tmp72 )
(setq
	JustLst72 (list (list 0 "L") (list 1 "C") (list 2 "R") (list 3 "A") (list 4 "M") (list 5 "F"))
	JustLst73 (list (list 0 "") (list 1 "B") (list 2 "M") (list 3 "T"))
)

(if flag72
	(setq tmp72 (cadr (assoc flag72 JustLst72)))
	(setq tmp72 "L")
)

(if flag73
	(setq tmp73 (cadr (assoc flag73 JustLst73)))
	(setq tmp73 "")
)

(setq Just (strcat tmp73 tmp72))
)