(LAMBDA()(SETQ Q@Q(SSGET"P"))(COMMAND".SETVAR""PdMode"1".SETVAR""BlipMode"0".POINT"(GETVAR"ExtMin")".SELECT"(ENTLAST)""".SETVAR""PdMode"(QQ"PdMode"Q#@)".SETVAR""BlipMode"(QQ"BlipMode"Q#@))(ENTDEL(ENTLAST))(COMMAND".SELECT")(SETVAR"CmdEcho"1)(PROMPT"\nSelect objects: ")(WHILE(PROGN(INITGET"\n Crossing Window Add Remove Previous AUto BOX Last")(SETQ Q0(GETKWORD)))(COND((AND(EQ Q0"Previous")Q@Q)(SETQ Q0 Q@Q))((MEMBER Q0(quote ("Window""Crossing""AUto""BOX")))(SETQ QJQ T)))(COMMAND Q0))(SETVAR"CmdEcho"0)(COMMAND"")(COND((AND(SETQ QOJ(SSGET"P"))(SSNAME QOJ 0))(SETQ QO -1 QL@ 0 Q1(SSADD))(WHILE(AND(< QL@ 20)(SETQ ENAME(SSNAME QOJ(SETQ QO(1+ QO)))))(COND((EQ(QQ 0(SETQ Q|J(ENTGET ENAME)))"TEXT")(SETQ Q0(QQ 1 Q|J)QQJ(SUBSTR Q0 1 78))(COND((OR(EQ Q0 QQJ)(Q1@"\nWARNING! Text string too long. Truncate? "NIL))(SETQ QL@(1+ QL@)Q$J(CONS(CONS ENAME QQJ)Q$J))(SSADD ENAME Q1))(T(PROMPT"\nText removed from selection set."))))))(SETQ QOJ Q1 Q1 NIL)(IF(AND QJQ(Q1@"\nSort text entities?"T))(SETQ QOJ((LOAD(STRCAT QLQ"ted.001"))QOJ))))(T(IF Q@Q(COMMAND".SETVAR""HIGHLIGHT""0"".SELECT"Q@Q""".SETVAR""HIGHLIGHT"(QQ"HighLight"Q#@)))))(COND((AND(EQ(TYPE QOJ)(quote PICKSET))(SETQ ENAME(SSNAME QOJ 0)))(SETQ Q|J(ENTGET ENAME)QQJ(QQ ENAME Q$J)))(T(PROMPT"\nNo text entities were selected.  Entering CREATE mode...")(SETQ QQJ"*"QOJ(SSADD)Q?Q T)((LOAD(STRCAT QLQ"ted.009"))))))