(LAMBDA(/ Q&Q Q1Q Q#Q)(DEFUN Q#Q(Q0 Q0Q)(SETQ Q0(STRCASE(GETSTRING(APPLY(quote STRCAT)(APPEND(LIST Q0)(IF Q0Q(LIST" <"Q0Q">"))(LIST": "))))))(COND((NOT(EQ Q0""))Q0)(Q0Q)))(DEFUN Q1Q(Q0 QQJ / Q1)(APPLY(quote STRCAT)(CONS(CAR Q0)(MAPCAR(quote (LAMBDA(Q1)(STRCAT QQJ Q1)))(CDR Q0)))))(DEFUN Q&Q(Q0)(INITGET(Q1Q Q0" "))(Q1Q Q0"/"))(GRAPHSCR)(IF(NOT Q$Q)(SETQ Q$Q"Left"))(SETQ Q0(GETKWORD(STRCAT"\nJustification "(Q&Q(LIST"Left""Right""Center""Mid""Same"))"/<"Q$Q">: ")))(IF Q0(SETQ Q$Q Q0))(COND((EQ Q$Q"Same")(WHILE(AND(SETQ QOQ(ENTSEL"\nSelect TEXT entity: "))(SETQ Q|J(ENTGET(CAR QOQ)))(/="TEXT"(QQ 0 Q|J)))(PROMPT"\nNot a TEXT entity, please try again..."))(SETQ Q|Q(QQ 7 Q|J)Q%Q(TBLSEARCH"STYLE"Q|Q)Q0(QQ 72 Q|J)Q$Q(NTH Q0(LIST"Left""Center""Right""Left""Mid""Left"))Q?l(QQ 50 Q|J)Qjl(IF(ZEROP(QQ 40 Q%Q))(QQ 40 Q|J)NIL)Q$@(QQ(IF(MEMBER Q0(quote (0 3 5)))10 11)Q|J)))(PROGN(IF(NOT Q|Q)(SETQ Q|Q(GETVAR"TextStyle")))(WHILE(PROGN(SETQ Q|Q(Q#Q"\nStyle name"Q|Q))(NOT(SETQ Q%Q(TBLSEARCH"STYLE"Q|Q))))(PROMPT"Style not found, try again."))(IF(NOT Qjl)(SETQ Qjl(GETVAR"TextSize")))(IF(ZEROP(SETQ Q0(QQ 40 Q%Q)))(PROGN(INITGET 6)(IF(SETQ Q0(GETDIST(STRCAT"\nHeight <"(RTOS Qjl)">: ")))(SETQ Qjl Q0)))(SETQ Qjl NIL))(IF(NOT Q?l)(SETQ Q?l 0.0))(IF(SETQ Q0(GETORIENT(STRCAT"\nRotation <"(ANGTOS Q?l)">: ")))(SETQ Q?l Q0))))(INITGET(IF Q$@"Continue"1))(SETQ Q0(APPLY(quote GETPOINT)(APPEND(LIST(STRCAT"\nStart point"(IF Q$@" or <Continue>""")": "))(IF Q$@(LIST Q$@)))))(COND((EQ(TYPE Q0)(quote LIST))(SETQ Q$@ Q0))(T(SETQ Q$@(POLAR Q$@(+ Q?l(* PI 1.5))(*(IF Qjl Qjl(QQ 40 Q%Q))1.666)))))(APPLY(quote COMMAND)(APPEND(LIST".TEXT""Style"Q|Q)(IF(EQ Q$Q"Left")NIL(LIST(SUBSTR Q$Q 1 1)))(LIST Q$@ Qjl(ANGTOS Q?l)"*")))(SETQ ENAME(ENTLAST)Q@l(APPEND Q@l(LIST(ENTLAST)))Q$J(CONS(CONS ENAME"*")Q$J)QL@(1+ QL@))(SSADD ENAME QOJ))