(PRINC"\nDDCHTEXT 1.0 (c) cad nauseam, 1996...")(DEFUN C:DDCHTEXT(/ INIT_VARS INIT_TILES INIT_ACTIONS CALL_TOGGLE CALL_RELATIVE CALL_ENTITY CALL_BLOCK CALL_TAG CALL_SEARCH CALL_REPLACE CALL_CASE CALL_HEIGHT CALL_ROTATION CALL_WIDTH CALL_MTEXTWIDTH CALL_OBLIQUE CALL_STYLE CALL_JUSTIFY CALL_LAYR_BUTTON CALL_LAYR CALL_COLOR_BUTTON CALL_COLOR CALL_OK SET_ENTITY SET_SEARCH SET_HEIGHT SET_ROTATION SET_WIDTH SET_OBLIQUE SET_JUSTIFY SET_STYLE SET_LAYR SET_COLOR SET_MTEXTWIDTH CHECK_WILD CHECK_SEARCH CHECK_NUM CHECK_ANG CHECK_LAYR CHECK_COLOR Qj LOCAL_ERROR Q@ QQ Ql PREFIX DCLFILE Q& E-LIST RELATIVE-LIST ENTITY BLOCK TAG SEARCH-TOGGLE SEARCH REPLACE CASE HEIGHT-TOGGLE HEIGHT HEIGHT-REL ROTATION-TOGGLE ROTATION ROTATION-REL WIDTH-TOGGLE WIDTH WIDTH-REL MTEXTWIDTH-TOGGLE MTEXTWIDTH MTEXTWIDTH-REL OBLIQUE-TOGGLE OBLIQUE OBLIQUE-REL JUSTIFY-TOGGLE JUSTIFY STYLE-TOGGLE STYLE Q1 LAYR Q# COLOR JUSTIFY-LIST STYLE-LIST COLOR-LIST LAYER-LIST TOGGLE-LIST MOD-LIST DCL-ID Q0)(DEFUN INIT_VARS(/ Q$ QO)(DEFUN Q$(Q| Q% / Q?j Qjj)(SETQ Q?j NIL Qjj(TBLNEXT Q| T))(WHILE Qjj(SETQ Q?j(CONS(NAUS_ASO Q% Qjj)Q?j)Qjj(TBLNEXT Q|)))(ACAD_STRLSORT Q?j))(DEFUN QO(/ Q?j Qjj)(SETQ Q?j NIL Qjj(TBLNEXT"layer"T))(WHILE Qjj(IF(NOT(WCMATCH(NAUS_ASO 2 Qjj)"*|*"))(SETQ Q?j(CONS(NAUS_ASO 2 Qjj)Q?j)))(SETQ Qjj(TBLNEXT"layer")))(ACAD_STRLSORT Q?j))(SETQ ENTITY(+ 1 2 8 16)BLOCK"*"TAG"*"SEARCH""REPLACE""CASE"0"HEIGHT(GETVAR"DIMTXT")ROTATION 0.0 WIDTH 1.0 MTEXTWIDTH 0.0 OBLIQUE 0.0 JUSTIFY"0"STYLE"0"LAYR"0"COLOR 256 JUSTIFY-LIST(quote (("Left"0 0)("Center"1 0)("Middle"4 0)("Right"2 0)("Top Left"0 3)("Top Center"1 3)("Top Right"2 3)("Middle Left"0 2)("Middle Center"1 2)("Middle Right"2 2)("Bottom Left"0 1)("Bottom Center"1 1)("Bottom Right"2 1)))STYLE-LIST(Q$"style"2)COLOR-LIST(quote ("_BYBLOCK""_RED""_YELLOW""_GREEN""_CYAN""_BLUE""_MAGENTA""_WHITE"))LAYER-LIST(QO)TOGGLE-LIST(quote ("search""height""rotation""width""mtextwidth""oblique""justify""style""layr""color"))RELATIVE-LIST(quote ("height""rotation""width""mtextwidth""oblique"))MOD-LIST NIL)(FOREACH Qjj TOGGLE-LIST(SET(READ(STRCAT Qjj"-toggle"))NIL))(FOREACH Qjj RELATIVE-LIST(SET(READ(STRCAT Qjj"-rel"))NIL)))(DEFUN INIT_TILES()(SET_ENTITY)(END_LIST)(FOREACH Q@j TOGGLE-LIST(EVAL(READ(STRCAT"(set_"Q@j" \"0\")"))))(FOREACH Q@j RELATIVE-LIST(SET_TILE(STRCAT Q@j"_relative")"0")))(DEFUN INIT_ACTIONS()(FOREACH Q@j TOGGLE-LIST(ACTION_TILE(STRCAT Q@j"_toggle")(STRCAT"(call_toggle \""Q@j"\" $value)")))(FOREACH Q@j RELATIVE-LIST(ACTION_TILE(STRCAT Q@j"_relative")(STRCAT"(call_relative \""Q@j"\" $value)")))(ACTION_TILE"search_toggle""(alert \"Search and replace is only available in registered version\")")(ACTION_TILE"text""(call_entity $value 1)")(ACTION_TILE"mtext""(call_entity $value 2)")(ACTION_TILE"dimension""(call_entity $value 4)")(ACTION_TILE"attdef""(call_entity $value 8)")(ACTION_TILE"attrib""(call_entity $value 16)")(ACTION_TILE"inblock""(call_entity $value 32)")(ACTION_TILE"block""(call_block $value $reason)")(ACTION_TILE"tag""(call_tag $value)")(ACTION_TILE"search""(call_search $value $reason)")(ACTION_TILE"replace""(call_replace $value $reason)")(ACTION_TILE"case""(call_case $value)")(ACTION_TILE"height""(call_height $value)")(ACTION_TILE"rotation""(call_rotation $value)")(ACTION_TILE"width""(call_width $value)")(ACTION_TILE"mtextwidth""(call_mtextwidth $value)")(ACTION_TILE"oblique""(call_oblique $value)")(ACTION_TILE"justify""(call_justify $value)")(ACTION_TILE"style""(call_style $value)")(ACTION_TILE"layr_button""(call_layr_button)")(ACTION_TILE"layr""(call_layr $value)")(ACTION_TILE"color_button""(call_color_button)")(ACTION_TILE"color""(call_color $value)")(ACTION_TILE"select_ok""(call_ok 2)")(ACTION_TILE"all_ok""(call_ok 1)")(ACTION_TILE"cancel""(done_dialog 0)"))(DEFUN CALL_TOGGLE(QQj Qlj)(IF(/= Qlj(EVAL(READ(STRCAT QQj"-toggle"))))(PROGN(SET(READ(STRCAT QQj"-toggle"))Qlj)(MODE_TILE(STRCAT QQj"_area")(ABS(1-(ATOI Qlj))))(IF(= Qlj"1")(MODE_TILE QQj 2))))(EVAL(READ(STRCAT"(set_"QQj" "Qlj")"))))(DEFUN CALL_RELATIVE(Q&j Qlj)(IF(/= Qlj(EVAL(READ(STRCAT Q&j"-rel"))))(SET(READ(STRCAT Q&j"-rel"))Qlj)))(DEFUN CALL_ENTITY(Q1j Q%)(SETQ ENTITY(+ ENTITY(* Q%(IF(= Q1j"1")1 -1))))(SET_ENTITY))(DEFUN CALL_BLOCK(Q1j Q#j)(SET_TILE"block"(SETQ BLOCK(STRCASE Q1j)))(IF(= Q#j 1)(MODE_TILE"tag"2)))(DEFUN CALL_TAG(Q1j)(SET_TILE"tag"(SETQ TAG(STRCASE Q1j))))(DEFUN CALL_SEARCH(Q1j Q#j)(SETQ SEARCH Q1j)(SET_SEARCH 1)(IF(= Q#j 1)(MODE_TILE"replace"2)))(DEFUN CALL_REPLACE(Q1j Q#j)(SETQ REPLACE Q1j)(SET_SEARCH 1)(IF(= Q#j 1)(MODE_TILE"case"2)))(DEFUN CALL_CASE(Q1j)(SETQ CASE Q1j))(DEFUN CALL_HEIGHT(Q1j / Qjj)(IF(SETQ Qjj(CHECK_NUM Q1j"height"2))(SETQ HEIGHT Qjj)))(DEFUN CALL_ROTATION(Q1j / Qjj)(IF(SETQ Qjj(CHECK_ANG Q1j"rotation"))(SETQ ROTATION Qjj)))(DEFUN CALL_WIDTH(Q1j / Qjj)(IF(SETQ Qjj(CHECK_NUM Q1j"width"2))(SETQ WIDTH Qjj)))(DEFUN CALL_MTEXTWIDTH(Q1j / Qjj)(IF(SETQ Qjj(CHECK_NUM Q1j"mtextwidth"1))(SETQ MTEXTWIDTH Qjj)))(DEFUN CALL_OBLIQUE(Q1j / Qjj)(IF(SETQ Qjj(CHECK_ANG Q1j"oblique"))(SETQ OBLIQUE Qjj)))(DEFUN CALL_STYLE(Q1j)(SETQ STYLE Q1j)(SET_STYLE 1))(DEFUN CALL_JUSTIFY(Q1j)(SETQ JUSTIFY Q1j)(SET_JUSTIFY 1))(DEFUN CALL_LAYR_BUTTON(/ CALL_BOX TEMP-LAYER Q0j)(DEFUN CALL_BOX(Q#j Q$j)(IF(= Q#j 4)(DONE_DIALOG 2)(SETQ TEMP-LAYER(NTH(ATOI Q$j)LAYER-LIST))))(IF(NOT(NEW_DIALOG"list_layers"DCL-ID))(ALERT"DDCHTEXT.DCL is corrupt.")(PROGN(START_LIST"list_box")(FOREACH TEMP-LAYER LAYER-LIST(ADD_LIST TEMP-LAYER))(END_LIST)(ACTION_TILE"list_box""(call_box $reason $value)")(ACTION_TILE"accept""(done_dialog 1)")(ACTION_TILE"cancel""(done_dialog 0)")(SET_TILE"list_box""0")(SETQ TEMP-LAYER(CAR LAYER-LIST)Q0j(START_DIALOG))(IF(AND TEMP-LAYER(> Q0j 0))(PROGN(SET_TILE"layr"(SETQ LAYR TEMP-LAYER))(SET_TILE"error"""))))))(DEFUN CALL_LAYR(Q1j)(IF(CHECK_LAYR Q1j)(PROGN(SETQ LAYR(STRCASE Q1j))(SET_LAYR 1))))(DEFUN CALL_COLOR_BUTTON(/ Qjj)(IF(SETQ Qjj(ACAD_COLORDLG COLOR))(PROGN(SETQ COLOR Qjj)(CHECK_COLOR(ITOA COLOR)))))(DEFUN CALL_COLOR(Q1j / Qjj)(IF(SETQ Qjj(CHECK_COLOR Q1j))(SETQ COLOR Qjj)))(DEFUN CALL_OK(Q% / CHK_ENT CHK_TOG Qjj)(DEFUN CHK_ENT()(IF(ZEROP(LOGAND ENTITY(+ 16 32)))T(AND(CHECK_WILD(GET_TILE"block")"block")(CHECK_WILD(GET_TILE"tag")"tag"))))(DEFUN CHK_TOG(Q&j)(="1"(EVAL(READ(STRCAT Q&j"-toggle")))))(SETQ MOD-LIST NIL)(IF(AND(CHK_ENT)(IF(CHK_TOG"layr")(IF(SETQ Qjj(CHECK_LAYR(GET_TILE"layr")))(SETQ MOD-LIST(CONS(CONS"layr"Qjj)MOD-LIST)))T)(IF(CHK_TOG"color")(IF(SETQ Qjj(CHECK_COLOR(GET_TILE"color")))(SETQ MOD-LIST(CONS(CONS"color"Qjj)MOD-LIST)))T)(IF(CHK_TOG"height")(IF(SETQ Qjj(CHECK_NUM(GET_TILE"height")"height"2))(SETQ MOD-LIST(CONS(CONS"height"Qjj)MOD-LIST)))T)(IF(CHK_TOG"rotation")(IF(SETQ Qjj(CHECK_ANG(GET_TILE"rotation")"rotation"))(SETQ MOD-LIST(CONS(CONS"rotation"Qjj)MOD-LIST)))T)(IF(CHK_TOG"width")(IF(SETQ Qjj(CHECK_NUM(GET_TILE"width")"width"2))(SETQ MOD-LIST(CONS(CONS"width"Qjj)MOD-LIST)))T)(IF(CHK_TOG"mtextwidth")(IF(SETQ Qjj(CHECK_NUM(GET_TILE"mtextwidth")"mtextwidth"1))(SETQ MOD-LIST(CONS(CONS"mtextwidth"Qjj)MOD-LIST)))T)(IF(CHK_TOG"oblique")(IF(SETQ Qjj(CHECK_ANG(GET_TILE"oblique")"oblique"))(SETQ MOD-LIST(CONS(CONS"oblique"Qjj)MOD-LIST)))T)(IF(CHK_TOG"justify")(SETQ MOD-LIST(CONS(APPEND(LIST"justify")(CDR(NTH(ATOI JUSTIFY)JUSTIFY-LIST)))MOD-LIST))T)(IF(CHK_TOG"style")(SETQ MOD-LIST(CONS(CONS"style"(NTH(ATOI STYLE)STYLE-LIST))MOD-LIST))T)(IF(CHK_TOG"search")(IF(CHECK_SEARCH(GET_TILE"search")(GET_TILE"replace"))(SETQ MOD-LIST(CONS(LIST"search"SEARCH REPLACE(GET_TILE"case"))MOD-LIST)))T))(DONE_DIALOG Q%)))(DEFUN SET_ENTITY()(SET_TILE"text"(IF(ZEROP(LOGAND ENTITY 1))"0""1"))(SET_TILE"mtext"(IF(ZEROP(LOGAND ENTITY 2))"0""1"))(SET_TILE"dimension"(IF(ZEROP(LOGAND ENTITY 4))"0""1"))(SET_TILE"attdef"(IF(ZEROP(LOGAND ENTITY 8))"0""1"))(SET_TILE"attrib"(IF(ZEROP(LOGAND ENTITY 16))"0""1"))(SET_TILE"inblock"(IF(ZEROP(LOGAND ENTITY 32))"0""1"))(IF(ZEROP(LOGAND ENTITY(+ 16 32)))(PROGN(MODE_TILE"attrib_area"1)(SET_TILE"block""")(SET_TILE"tag"""))(PROGN(MODE_TILE"attrib_area"0)(SET_TILE"block"BLOCK)(SET_TILE"tag"TAG))))(DEFUN SET_SEARCH(QOj)(IF(= QOj 1)(PROGN(MODE_TILE"search_area"0)(SET_TILE"search"SEARCH)(SET_TILE"replace"REPLACE))(PROGN(MODE_TILE"search_area"1)(SET_TILE"search""")(SET_TILE"replace"""))))(DEFUN SET_HEIGHT(QOj)(IF(= QOj 1)(PROGN(SET_TILE"height"(NAUS_RTOSVD HEIGHT))(MODE_TILE"height_relative"0))(PROGN(SET_TILE"height""")(MODE_TILE"height_relative"1))))(DEFUN SET_ROTATION(QOj)(IF(= QOj 1)(PROGN(SET_TILE"rotation"(NAUS_ANGTOSVD_MINUS ROTATION))(MODE_TILE"rotation_relative"0))(PROGN(SET_TILE"rotation""")(MODE_TILE"rotation_relative"1))))(DEFUN SET_WIDTH(QOj)(IF(= QOj 1)(PROGN(SET_TILE"width"(NAUS_RTOSVD WIDTH))(MODE_TILE"width_relative"0))(PROGN(SET_TILE"width""")(MODE_TILE"width_relative"1))))(DEFUN SET_MTEXTWIDTH(QOj)(IF(= QOj 1)(PROGN(SET_TILE"mtextwidth"(NAUS_RTOSVD MTEXTWIDTH))(MODE_TILE"mtextwidth_relative"0))(PROGN(SET_TILE"mtextwidth""")(MODE_TILE"mtextwidth_relative"1))))(DEFUN SET_OBLIQUE(QOj)(IF(= QOj 1)(PROGN(SET_TILE"oblique"(NAUS_ANGTOSVD_MINUS OBLIQUE))(MODE_TILE"oblique_relative"0))(PROGN(SET_TILE"oblique""")(MODE_TILE"oblique_relative"1))))(DEFUN SET_JUSTIFY(QOj)(IF(= QOj 1)(PROGN(START_LIST"justify")(FOREACH Qjj JUSTIFY-LIST(ADD_LIST(CAR Qjj)))(END_LIST)(SET_TILE"justify"JUSTIFY))(PROGN(START_LIST"justify")(END_LIST))))(DEFUN SET_STYLE(QOj)(IF(= QOj 1)(PROGN(START_LIST"style")(FOREACH Qjj STYLE-LIST(ADD_LIST Qjj))(END_LIST)(SET_TILE"style"STYLE))(PROGN(START_LIST"style")(END_LIST))))(DEFUN SET_LAYR(QOj)(IF(= QOj 1)(SET_TILE"layr"LAYR)(SET_TILE"layr""")))(DEFUN SET_COLOR(QOj)(IF(= QOj 1)(CHECK_COLOR(ITOA COLOR))(SET_TILE"color""")))(DEFUN CHECK_WILD(Q1j Q&j)(SET_TILE"error""")(IF(= Q1j"")(PROGN(SET_TILE"error"(STRCAT"Bad "Q&j" name/wildcard"))NIL)Q1j))(DEFUN CHECK_SEARCH(Q|j Q%j)(SET_TILE"error""")(IF(AND(= Q|j"")(= Q%j""))(PROGN(SET_TILE"error""Must provide search and/or replace string")NIL)T))(DEFUN CHECK_NUM(Q1j Q&j Q?@ / Qjj)(SET_TILE"error""")(IF(NOT(SETQ Qjj(DISTOF Q1j)))(PROGN(SET_TILE"error"(STRCAT"Bad "Q&j" numeric value"))NIL)(COND((= Q?@ 0)(SET_TILE Q&j(NAUS_RTOSVD Qjj))Qjj)((= Q?@ 1)(IF(< Qjj 0.0)(PROGN(SET_TILE"error"(STRCAT"The "Q&j" cannot be negative"))NIL)(PROGN(SET_TILE Q&j(NAUS_RTOSVD Qjj))Qjj)))((= Q?@ 2)(IF(<= Qjj 0.0)(PROGN(SET_TILE"error"(STRCAT"The "Q&j" must be positive"))NIL)(PROGN(SET_TILE Q&j(NAUS_RTOSVD Qjj))Qjj)))((= Q?@ 3)(IF(= Qjj 0.0)(PROGN(SET_TILE"error"(STRCAT"The "Q&j" cannot be zero"))NIL)(PROGN(SET_TILE Q&j(NAUS_RTOSVD Qjj))Qjj))))))(DEFUN CHECK_ANG(Q1j Q&j / Qjj)(SET_TILE"error""")(IF(NOT(SETQ Qjj(ANGTOF Q1j)))(PROGN(SET_TILE"error"(STRCAT"Bad "Q&j" angle value"))NIL)(PROGN(SET_TILE Q&j(NAUS_ANGTOSVD_MINUS Qjj))Qjj)))(DEFUN CHECK_LAYR(Q1j)(SET_TILE"error""")(COND((= Q1j"")(SET_TILE"error""Layer name cannot be empty")NIL)((WCMATCH Q1j"*[]` `#`@`.`?`*`~`[`,`'!%^&()+={}|`\\:\073\"<>/]*")(SET_TILE"error""Layer name has bad characters")NIL)(T Q1j)))(DEFUN CHECK_COLOR(Qj@ / COLOR_ERROR COLOR_BYLAYER Qjj Q@@ QQ@)(DEFUN COLOR_ERROR()(SET_TILE"error""Color numbers must in the range 0 to 256")NIL)(DEFUN COLOR_BYLAYER()(SET_TILE"color""_BYLAYER")(SETQ COLOR 256))(SET_TILE"error""")(SETQ Qj@(STRCASE Qj@))(COND((=(SUBSTR Qj@ 1 3)"BYL")(COLOR_BYLAYER))((=(SUBSTR Qj@ 1 4)"_BYL")(COLOR_BYLAYER))((NOT(SETQ Qjj(DISTOF Qj@)))(SETQ Q@@ NIL QQ@ 0)(WHILE(AND(NOT Q@@)(SETQ Qjj(NTH QQ@ COLOR-LIST)))(IF(NOT(SETQ Q@@(OR(=(SUBSTR Qjj 2 3)(SUBSTR Qj@ 1 3))(=(SUBSTR Qjj 1 4)(SUBSTR Qj@ 1 4)))))(SETQ QQ@(1+ QQ@))))(IF Q@@(PROGN(SET_TILE"color"Qjj)(SETQ COLOR QQ@))(COLOR_ERROR)))((<(SETQ Qjj(FIX Qjj))0)(COLOR_ERROR))((> Qjj 256)(COLOR_ERROR))((= Qjj 256)(COLOR_BYLAYER))((<(SETQ COLOR Qjj)(LENGTH COLOR-LIST))(SET_TILE"color"(NTH COLOR COLOR-LIST))COLOR)(T(SET_TILE"color"(ITOA COLOR))COLOR)))(DEFUN QQ(/ Ql@)(SETQ Ql@(quote ((-4 . "OR>"))))(IF(= 1(LOGAND ENTITY 1))(SETQ Ql@(APPEND(quote ((0 . "TEXT")))Ql@)))(IF(= 2(LOGAND ENTITY 2))(SETQ Ql@(APPEND(quote ((0 . "MTEXT")))Ql@)))(IF(= 4(LOGAND ENTITY 4))(SETQ Ql@(APPEND(quote ((0 . "DIMENSION")))Ql@)))(IF(= 8(LOGAND ENTITY 8))(SETQ Ql@(APPEND(quote ((0 . "ATTDEF")))Ql@)))(IF(= 16(LOGAND ENTITY 16))(SETQ Ql@(APPEND(LIST(quote (-4 . "<AND"))(quote (0 . "INSERT"))(CONS 2 BLOCK)(quote (66 .  1))(quote (-4 . "AND>")))Ql@)))(SETQ Ql@(APPEND(quote ((-4 . "<OR")))Ql@)))(DEFUN Ql(Ql@ / Q0)(IF(NOT(SETQ Q0(SSGET"_I"Ql@)))(SETQ Q0(SSGET Ql@)))(IF(AND Q0(>(SSLENGTH Q0)0))Q0))(DEFUN Q@(Ql@ / Q0)(IF(AND(SETQ Q0(SSGET"_X"Ql@))(>(SSLENGTH Q0)0))Q0))(DEFUN Qj(Q0 / Q&@ Q1@ Q#@ Q0@ Q$@ QO@ Q|@ Q%@ Q?Q QQ@ QjQ Q@Q QQQ QlQ)(DEFUN Q&@(Q@Q / Q&Q Q1Q Q#Q Q1j Q0Q Q$Q QOQ Q|Q Q%Q Q?l)(SETQ Q&Q Q@Q Q1Q(NAUS_ASO 0 Q@Q))(FOREACH Qjl MOD-LIST(COND((AND(=(CAR Qjl)"search")(OR(= Q1Q"TEXT")(= Q1Q"ATTRIB")))(IF(/=(SETQ Q#Q(NAUS_ASO 1 Q@Q))(SETQ Q1j(NAUS_REPLACE Q#Q SEARCH REPLACE(= CASE"1"))))(SETQ Q@Q(SUBST(CONS 1 Q1j)(ASSOC 1 Q@Q)Q@Q))))((AND(=(CAR Qjl)"search")(= Q1Q"MTEXT"))(IF(/=(SETQ Q#Q(NAUS_MTEXTSTR Q@Q))(SETQ Q1j(NAUS_REPLACE Q#Q SEARCH REPLACE(= CASE"1"))))(SETQ Q@Q(NAUS_STRMTEXT Q@Q Q1j))))((=(CAR Qjl)"style")(SETQ Q@Q(SUBST(CONS 7(CDR Qjl))(ASSOC 7 Q@Q)Q@Q)))((=(CAR Qjl)"layr")(SETQ Q@Q(SUBST(CONS 8(CDR Qjl))(ASSOC 8 Q@Q)Q@Q)))((=(CAR Qjl)"height")(IF(= HEIGHT-REL"1")(SETQ Q@Q(SUBST(CONS 40(*(CDR Qjl)(NAUS_ASO 40 Q@Q)))(ASSOC 40 Q@Q)Q@Q))(SETQ Q@Q(SUBST(CONS 40(CDR Qjl))(ASSOC 40 Q@Q)Q@Q))))((AND(=(CAR Qjl)"width")(OR(= Q1Q"TEXT")(= Q1Q"ATTRIB")(= Q1Q"ATTDEF")))(IF(= WIDTH-REL"1")(SETQ Q@Q(SUBST(CONS 41(*(CDR Qjl)(NAUS_ASO 41 Q@Q)))(ASSOC 41 Q@Q)Q@Q))(SETQ Q@Q(SUBST(CONS 41(CDR Qjl))(ASSOC 41 Q@Q)Q@Q))))((AND(=(CAR Qjl)"mtextwidth")(= Q1Q"MTEXT"))(IF(= MTEXTWIDTH-REL"1")(SETQ Q@Q(SUBST(CONS 41(*(CDR Qjl)(NAUS_ASO 41 Q@Q)))(ASSOC 41 Q@Q)Q@Q))(SETQ Q@Q(SUBST(CONS 41(CDR Qjl))(ASSOC 41 Q@Q)Q@Q))))((AND(=(CAR Qjl)"rotation")(OR(= Q1Q"TEXT")(= Q1Q"ATTRIB")(= Q1Q"ATTDEF")))(IF(= ROTATION-REL"1")(SETQ Q@Q(SUBST(CONS 50(+(CDR Qjl)(NAUS_ASO 50 Q@Q)))(ASSOC 50 Q@Q)Q@Q))(SETQ Q@Q(SUBST(CONS 50(CDR Qjl))(ASSOC 50 Q@Q)Q@Q))))((AND(=(CAR Qjl)"rotation")(= Q1Q"MTEXT"))(SETQ Q@Q(NAUS_DELFST(ASSOC 50 Q@Q)Q@Q))(IF(= ROTATION-REL"1")(SETQ Q@Q(APPEND Q@Q(LIST(CONS 50(+(CDR Qjl)(ANGLE(quote (0.0 0.0 0.0))(NAUS_ASO 11 Q@Q)))))))(SETQ Q@Q(APPEND Q@Q(LIST(CONS 50(CDR Qjl)))))))((=(CAR Qjl)"color")(IF(ASSOC 62 Q@Q)(SETQ Q@Q(SUBST(CONS 62(CDR Qjl))(ASSOC 62 Q@Q)Q@Q))(IF(/=(CDR Qjl)256)(SETQ Q@Q(APPEND Q@Q(LIST(CONS 62(CDR Qjl))))))))((AND(=(CAR Qjl)"oblique")(OR(= Q1Q"TEXT")(= Q1Q"ATTRIB")(= Q1Q"ATTDEF")))(IF(= OBLIQUE-REL"1")(SETQ Q0Q(+(CDR Qjl)(NAUS_ASO 51 Q@Q)))(SETQ Q0Q(CDR Qjl)))(IF(OR(<(ABS Q0Q)1.4)(>(ABS Q0Q)-1.4))(SETQ Q@Q(SUBST(CONS 51 Q0Q)(ASSOC 51 Q@Q)Q@Q))))((AND(=(CAR Qjl)"justify")(OR(= Q1Q"TEXT")(= Q1Q"ATTRIB")(= Q1Q"ATTDEF")))(SETQ Q$Q(ASSOC 10 Q@Q)QOQ(ASSOC 11 Q@Q)Q|Q(ASSOC 72 Q@Q)Q%Q(ASSOC(IF(= Q1Q"TEXT")73 74)Q@Q)Q?l(IF(AND(ZEROP(CDR Q|Q))(ZEROP(CDR Q%Q)))(CDR Q$Q)(CDR QOQ))Q@Q(SUBST(CONS 72(CADR Qjl))Q|Q Q@Q)Q@Q(SUBST(CONS(IF(= Q1Q"TEXT")73 74)(CADDR Qjl))Q%Q Q@Q))(IF(AND(ZEROP(CADR Qjl))(ZEROP(CADDR Qjl)))(SETQ Q@Q(SUBST(CONS 10 Q?l)Q$Q Q@Q))(SETQ Q@Q(SUBST(CONS 11 Q?l)QOQ Q@Q))))))(IF(NOT(EQUAL Q@Q Q&Q))(PROGN(ENTMOD Q@Q)T)))(NAUS_INIT(quote ((0 . "TEXT,MTEXT,INSERT,ATTDEF")))NIL LOCAL_ERROR)(SETQ Q1@ 0.0 Q#@ 0.0 Q0@ 0.0 Q$@ 0.0 Q%@ 0.0 Q?Q 0.0 QO@ 0.0 Q|@ 0.0 QQ@ 0.0)(WHILE(SETQ QjQ(SSNAME Q0 QQ@))(COND((=(NAUS_ASO 0(SETQ Q@Q(ENTGET QjQ)))"TEXT")(SETQ Q#@(1+ Q#@))(IF(Q&@ Q@Q)(SETQ Q1@(1+ Q1@))))((=(NAUS_ASO 0 Q@Q)"MTEXT")(SETQ Q$@(1+ Q$@))(IF(Q&@ Q@Q)(SETQ Q0@(1+ Q0@))))((=(NAUS_ASO 0 Q@Q)"ATTDEF")(SETQ Q?Q(1+ Q?Q))(IF(Q&@ Q@Q)(SETQ Q%@(1+ Q%@))))((=(NAUS_ASO 0 Q@Q)"INSERT")(SETQ QQQ QjQ QlQ NIL)(WHILE(AND(SETQ QQQ(ENTNEXT QQQ))(SETQ Q@Q(ENTGET QQQ))(=(NAUS_ASO 0 Q@Q)"ATTRIB"))(IF(WCMATCH(STRCASE(NAUS_ASO 2 Q@Q))TAG)(PROGN(SETQ Q|@(1+ Q|@))(IF(Q&@ Q@Q)(SETQ QlQ T QO@(1+ QO@))))))(IF QlQ(ENTUPD QjQ))))(SETQ QQ@(1+ QQ@)))(IF(> Q#@ 0)(PROMPT(STRCAT"\n"(RTOS Q1@ 2 0)" text entit"(IF(= Q1@ 1.0)"y""ies")" of "(RTOS Q#@ 2 0)" changed.")))(IF(> Q$@ 0)(PROMPT(STRCAT"\n"(RTOS Q0@ 2 0)" mtext entit"(IF(= Q0@ 1.0)"y""ies")" of "(RTOS Q$@ 2 0)" changed.")))(IF(> Q?Q 0)(PROMPT(STRCAT"\n"(RTOS Q%@ 2 0)" attdef"(IF(= Q%@ 1.0)"""s")" of "(RTOS Q?Q 2 0)" changed.")))(IF(> Q|@ 0)(PROMPT(STRCAT"\n"(RTOS QO@ 2 0)" attribute"(IF(= QO@ 1.0)"""s")" of "(RTOS Q|@ 2 0)" changed.")))(NAUS_TIDY))(DEFUN LOCAL_ERROR(Q@l)(IF(NOT(OR(= Q@l"Function cancelled")(= Q@l"console break")))(PRINC(STRCAT"\nError: "Q@l" ")))(NAUS_TIDY))(IF(NOT NAUS-DDEDCOUNT)(SETQ NAUS-DDEDCOUNT 10)(SETQ NAUS-DDEDCOUNT(1+ NAUS-DDEDCOUNT)))(IF(>= NAUS-DDEDCOUNT 10)(PROGN(ALERT"Unregistered shareware: see DDCHTEXT.TXT for details")(SETQ NAUS-DDEDCOUNT 0)))(COND((>(LOGAND(GETVAR"CMDACTIVE")(+ 1 2 8))0)(ALERT"Cannot be invoked transparently"))((NOT(SETQ PREFIX(GETENV"DDCHTEXT")DCLFILE(FINDFILE(STRCAT(IF PREFIX PREFIX"")"ddchtext.dcl"))))(ALERT"Cannot find DDCHTEXT.DCL"))((<(SETQ DCL-ID(LOAD_DIALOG DCLFILE))0)(ALERT"Error reading DDCHTEXT.DCL."))((NEW_DIALOG"ddchtext"DCL-ID)(INIT_VARS)(INIT_TILES)(INIT_ACTIONS)(SETQ Q&(START_DIALOG))(UNLOAD_DIALOG DCL-ID)(COND((= Q& 0)NIL)((NOT MOD-LIST)(PROMPT"\nNothing to do."))((=(SETQ E-LIST(QQ))(quote ((-4 . "<AND")(-4 . "AND>"))))(PROMPT"\nNo entities to select."))((= Q& 1)(IF(SETQ Q0(Q@ E-LIST))(Qj Q0)(PROMPT"\nNo matching entities in drawing.")))((= Q& 2)(IF(SETQ Q0(Ql E-LIST))(Qj Q0)(PROMPT"\nNo matching entities selected."))))))(PRINC))(DEFUN NAUS_ANGTOSVD_MINUS(Q1j / QQl)(SETQ QQl(GETVAR"AUPREC"))(WHILE(AND(/= Q1j(ANGTOF(ANGTOS Q1j 0 QQl)))(< QQl 8))(SETQ QQl(1+ QQl)))(IF(> Q1j PI)(STRCAT"-"(ANGTOS(-(* 2 PI)Q1j)0 QQl))(ANGTOS Q1j 0 QQl)))(DEFUN NAUS_ASO(Qll Q&l)(CDR(ASSOC Qll Q&l)))(DEFUN NAUS_DELFST(Q1l Q#l / Q0l Q$l QOl)(SETQ Q$l T)(WHILE(AND Q#l Q$l)(SETQ Q0l(CAR Q#l)Q#l(CDR Q#l))(IF(/= Q1l Q0l)(SETQ QOl(CONS Q0l QOl))(SETQ Q$l NIL QOl(APPEND(REVERSE Q#l)QOl))))(REVERSE QOl))(DEFUN NAUS_MTEXTSTR(Q|l / Q%l)(SETQ Q%l"")(FOREACH Q@j Q|l(IF(OR(= 1(CAR Q@j))(= 3(CAR Q@j)))(SETQ Q%l(STRCAT Q%l(CDR Q@j)))))Q%l)(DEFUN NAUS_REPLACE(Q@l Q?& Qj& CASE / Q@& QQ& QQ@ Qjj)(IF(= Q?&"")(STRCAT Qj& Q@l)(PROGN(SETQ Q@&(STRLEN Q?&)QQ&(STRLEN Qj&)QQ@ 1)(WHILE(= Q@&(STRLEN(SETQ Qjj(SUBSTR Q@l QQ@ Q@&))))(IF(IF CASE(= Qjj Q?&)(=(STRCASE Qjj)(STRCASE Q?&)))(PROGN(SETQ Q@l(STRCAT(SUBSTR Q@l 1(1- QQ@))Qj&(SUBSTR Q@l(+ QQ@ Q@&)))QQ@(+ QQ@ QQ&)))(SETQ QQ@(1+ QQ@))))Q@l)))(DEFUN NAUS_RTOSVD(Q1j / Ql&)(SETQ Ql&(GETVAR"LUPREC"))(WHILE(AND(/= Q1j(DISTOF(RTOS Q1j 2 Ql&)))(< Ql& 8))(SETQ Ql&(1+ Ql&)))(RTOS Q1j 2 Ql&))(DEFUN NAUS_INIT(Q&& Q1& Q#& / Q0)(SETQ Q0(IF Q&&(SSGET"_I"Q&&)(SSGET"_I"))NAUS-OLD-VARS(IF Q1&(NAUS_SAVE Q1&))NAUS-OLD-ERROR *ERROR* *ERROR* Q#&)(SETVAR"CMDECHO"0)(COMMAND"_.UNDO""_Group")Q0)(DEFUN NAUS_SAVE(Q1& / Q0&)(FOREACH Q@j Q1&(SETQ Q0&(APPEND(LIST(LIST Q@j(GETVAR Q@j)))Q0&)))Q0&)(DEFUN NAUS_SETVAR(Q1&)(FOREACH Q@j Q1&(SETVAR(CAR Q@j)(CADR Q@j))))(DEFUN NAUS_STRMTEXT(Q|l Q$& / Q%l QO& Q|&)(SETQ Q%l Q$&)(WHILE(>(STRLEN Q%l)250)(SETQ QO&(CONS(CONS 3(SUBSTR Q%l 1 250))QO&)Q%l(SUBSTR Q%l 251)))(SETQ QO&(CONS(CONS 1 Q%l)QO&))(FOREACH Q@j Q|l(COND((= 1(CAR Q@j))(SETQ Q|&(APPEND QO& Q|&)))((/= 3(CAR Q@j))(SETQ Q|&(CONS Q@j Q|&)))))(REVERSE Q|&))(DEFUN NAUS_TIDY()(NAUS_SETVAR NAUS-OLD-VARS)(SETQ *ERROR* NAUS-OLD-ERROR NAUS-OLD-ERROR NIL NAUS-OLD-VARS NIL)(COMMAND"_.UNDO""_End")(PRINC))(PRINC)