 ; Cls - obliterate the text screen.
 ; Copyright 2000 by Rocket Software
 ; Good and bad may be relative to where one stands, but then so is
 ; the difference between concerned citizens and a mob.
 (DEFUN C:CLS (/ liss num str)
  (prompt "\n\n\n  This Space Reserved for Your Notes.")
  (repeat 325 (prompt "\n"))
  (setq liss (list
"\nCommand: q"
"\nQSAVE"
"\nCommand: dd"
"\n"
"\n Insertion point: X scale factor <1> / Corner / XYZ:"
"\n Y scale factor (default=X):"
"\n Rotation angle <0.0>:"
"\n"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>: e"
"\nRegenerating drawing."
"\n"
"\nCommand: audit"
"\n"
"\nFix any errors detected? <N> y"
"\n 5       Blocks audited"
"\nPass 1 715     objects audited"
"\nPass 2 715     objects audited"
"\nPass 3 1400    objects audited"
"\nTotal errors found 0 fixed 0"
"\n"
"\n"
"\nCommand: u"
"\nAUDIT"
"\nCommand:"
"\nU ZOOM GROUP Regenerating drawing."
"\n"
"\nCommand:"
"\nU .INSERT GROUP Regenerating drawing."
"\n"
"\nCommand: audit"
"\n"
"\nFix any errors detected? <N>"
"\n 5       Blocks audited"
"\nPass 1 709     objects audited"
"\nPass 2 709     objects audited"
"\nPass 3 1400    objects audited"
"\nTotal errors found 0 fixed 0"
"\n"
"\n"
"\nCommand:"
"\nAUDIT"
"\nFix any errors detected? <N> y"
"\n 5       Blocks audited"
"\nPass 1 709     objects audited"
"\nPass 2 709     objects audited"
"\nPass 3 1400    objects audited"
"\nTotal errors found 0 fixed 0"
"\n"
"\n"
"\nCommand: u"
"\nAUDIT"
"\nCommand:"
"\nU AUDIT"
"\nCommand:"
"\nU QSAVE"
"\nCommand:"
"\nU ZOOM GROUP"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>: e"
"\nRegenerating drawing."
"\n"
"\nCommand: q"
"\nQSAVE"
"\nCommand: audit"
"\n"
"\nFix any errors detected? <N> y"
"\n 5       Blocks audited"
"\nPass 1 709     objects audited"
"\nPass 2 709     objects audited"
"\nPass 3 1400    objects audited"
"\nTotal errors found 0 fixed 0"
"\n"
"\n"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>:"
"\nOther corner:"
"\nCommand: x"
"\nEXPLODE"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\n"
"\nCommand: n"
"\nSelect entity:"
"\nerror: bad argument type"
"\n(STRCAT YJST XJST)"
"\n(SETQ JUSTRG (STRCAT YJST XJST))"
"\n(JUSTX ENTT)"
"\n(SETQ JUST (JUSTX ENTT))"
"\n(COND ((= TYP ARC) (SETQ RAD (CDR (ASSOC 40 ENTT))) (WRITE-LINE (STRCAT TYP "
"\nLAYY GRPSTR , Radius:  (RTOS RAD 2 2) ZCOL LTYP ONS EXDAT))) ((= TYP "
"\nINSERT) (SETQ AA (CDR (ASSOC 2 ENTT))) (IF (/= (SUBSTR AA 1 1) *) (SETVAR "
"\ninsname AA)) (SETQ XSCAL (CDR (ASSOC 41 ENTT))) (IF (EQUAL XSCAL (FIX XSCAL) "
"\n1e-006) (SETQ XSCAL (ITOA (FIX XSCAL))) (SETQ XSCAL (RTOS XSCAL 2 1))) (SETQ "
"\nYSCAL (CDR (ASSOC 42 ENTT))) (IF (= YSCAL (FIX YSCAL)) (SETQ YSCAL (ITOA (FIX "
"\nYSCAL))) (SETQ YSCAL (RTOS YSCAL 2 1))) (SETQ ZSCAL (CDR (ASSOC 43 ENTT))) (IF "
"\n(= ZSCAL (FIX ZSCAL)) (SETQ ZSCAL (ITOA (FIX ZSCAL))) (SETQ ZSCAL (RTOS ZSCAL 2 "
"\n1))) (WRITE-LINE (STRCAT (IF (ISXREF ENAM) Xref Block) :  AA LAYY GRPSTR "
"\n, Scale  XSCAL / YSCAL / ZSCAL ROTA ZCOL LTYP ONS EXDAT)) (N ENAM)) ((= "
"\nTYP DIMENSION) (IF (AND (SETQ ASOC1 (ASSOC 1 ENTT)) (/= (CDR ASOC1) )) "
"\n(SETQ DEFTXT , Not default text) (SETQ DEFTXT , Default text)) (WRITE-LINE "
"\n(STRCAT TYP LAYY GRPSTR DEFTXT ZCOL LTYP ONS EXDAT))) ((= TYP CIRCLE) (SETQ "
"\nRADD (RTOS (CDR (ASSOC 40 ENTT)) 2 2)) (WRITE-LINE (STRCAT TYP LAYY GRPSTR, "
"\nRadius:  RADD ZCOL LTYP ONS EXDAT))) ((= TYP POLYLINE) (SETQ SWIDTH (CDR "
"\n(ASSOC 40 ENTT))) (IF (= SWIDTH (FIX SWIDTH)) (SETQ SWIDTH (ITOA (FIX SWIDTH))) "
"\n(SETQ SWIDTH (RTOS SWIDTH 2 1))) (SETQ EWIDTH (CDR (ASSOC 41 ENTT))) (IF (= "
"\nEWIDTH (FIX EWIDTH)) (SETQ EWIDTH (ITOA (FIX EWIDTH))) (SETQ EWIDTH (RTOS "
"\nEWIDTH 2 1))) (IF (= 16 (LOGAND 16 (CDR (ASSOC 70 ENTT)))) (SETQ MESH  MESH) "
"\n(SETQ MESH )) (IF (= 1 (LOGAND 1 (CDR (ASSOC 70 ENTT)))) (SETQ CL /CL) "
"\n(SETQ CL /OP)) (SETQ NUM -1) (WHILE (/= SEQEND (CDR (ASSOC 0 (ENTGET (SETQ "
"\nENAM (ENTNEXT ENAM)))))) (SETQ NUM (1+ NUM))) (WRITE-LINE (STRCAT TYP MESH LAYY "
"\nGRPSTR , Width:  SWIDTH , Segs:  (ITOA NUM) CL ZCOL LTYP ONS EXDAT))) ((= "
"\nTYP LWPOLYLINE) (SETQ PDAT (GLEPT ENAM)) (SETQ EXDAT (IF (ASSOC -3 ENTT) "
"\n*Ex* )) (SETQ ELV (CADR PDAT)) (SETQ SEGS (NTH 2 PDAT)) (SETQ SWIDTH (CDR "
"\n(ASSOC 40 ENTT))) (IF (= SWIDTH (FIX SWIDTH)) (SETQ SWIDTH (ITOA (FIX SWIDTH))) "
"\n(SETQ SWIDTH (RTOS SWIDTH 2 1))) (SETQ EWIDTH (CDR (ASSOC 41 ENTT))) (IF (= 1 "
"\n(LOGAND 1 (CDR (ASSOC 70 ENTT)))) (SETQ CL /CL) (SETQ CL /OP)) (WRITE-LINE "
"\n(STRCAT TYP LAYY GRPSTR , Width:  SWIDTH SEGS CL ZCOL LTYP ONS EXDAT ELV))) "
"\n((= TYP LINE) (SETQ LEN (DISTANCE TEN (SETQ ELV (CDR (ASSOC 11 ENTT))))) "
"\n(SETQ ANGG (ANGLE TEN ELV)) (SETQ ANGG (RTOS (* 180 (/ ANGG PI)) 2 1)) "
"\n(WRITE-LINE (STRCAT TYP LAYY GRPSTR , Length:  (RTOS LEN 2 2) , Ang:  ANGG "
"\nZCOL LTYP ONS EXDAT))) ((= TYP TEXT) (SETQ HGHT (RTOS (CDR (ASSOC 40 ENTT)) 2 "
"\n1)) (SETQ WID (RTOS (CDR (ASSOC 41 ENTT)) 2 2)) (SETQ STYL (CDR (ASSOC 7 "
"\nENTT))) (SETQ STLDAT (TBLSEARCH style STYL)) (SETQ FONT (CDR (ASSOC 3 "
"\nSTLDAT))) (IF (/=  (SETQ BIGFNT (CDR (ASSOC 4 STLDAT)))) (SETQ BIGFNT (STRCAT "
"\n/Bf: BIGFNT))) (SETQ JUST (JUSTX ENTT)) (WRITE-LINE (STRCAT TYP   JUST LAYY "
"\nGRPSTR ,  STYL / FONT BIGFNT , Ht:  HGHT , Wd:  WID ROTA ZCOL ONS "
"\nEXDAT))) ((= TYP ATTDEF) (SETQ HGHT (RTOS (CDR (ASSOC 40 ENTT)) 2 1)) (SETQ "
"\nWID (RTOS (CDR (ASSOC 41 ENTT)) 2 2)) (SETQ STYL (CDR (ASSOC 7 ENTT))) (SETQ "
"\nFONT (CDR (ASSOC 3 (TBLSEARCH style STYL)))) (SETQ JUST (JUSTX ENTT)) "
"\n(WRITE-LINE (STRCAT TYP   JUST LAYY GRPSTR ,  STYL / FONT , Ht:  HGHT "
"\n, Wd:  WID ROTA   (ICVP ENAM) ZCOL ONS EXDAT))) (T (WRITE-LINE (STRCAT TYP "
"\nLAYY GRPSTR LTYP ZCOL ONS EXDAT))))"
"\n(PROGN (SETQ ENTT (ENTGET (SETQ ENAM (CAR AA)) (LIST *))) (SETQ EXDAT (IF "
"\n(ASSOC -3 ENTT)  *Ex* )) (IF (/= (CADDDR (ASSOC 10 ENTT)) 0) (SETQ EXDAT "
"\n(STRCAT EXDAT  *Elv*))) (SETQ LL (CDR (ASSOC 8 ENTT))) (SETQ TYP (CDR (ASSOC "
"\n0 ENTT))) (IF (= TYP POLYLINE) (SETQ TEN (CDR (ASSOC 10 (ENTGET (ENTNEXT "
"\nENAM))))) (SETQ TEN (CDR (ASSOC 10 ENTT)))) (SETQ ONS (ONSNAP TEN)) (SETQ ZCOL "
"\n(COLF ENAM)) (IF (= ZCOL Bylayer) (SETQ ZCOL ) (SETQ ZCOL (STRCAT , Col:  "
"\nZCOL))) (SETQ LTYP (LTYPF ENAM)) (SETQ ROTA (GROT ENAM)) (SETQ LAYY (STRCAT ,"
"\n (LK ENAM) Layer:  LL)) (IF (AND (ASSOC 330 ENTT) (SETQ GRDAT (GRRR ENAM))) "
"\n(PROGN (SETQ GRPSTR , Gr:) (WHILE (SETQ SUB (CAR GRDAT)) (SETQ GRDAT (CDR "
"\nGRDAT)) (SETQ GRPSTR (STRCAT GRPSTR   (CAR SUB) ,))) (SETQ GRPSTR (SUBSTR "
"\nGRPSTR 1 (1- (STRLEN GRPSTR))))) (SETQ GRPSTR )) (COND ((= TYP ARC) (SETQ "
"\nRAD (CDR (ASSOC 40 ENTT))) (WRITE-LINE (STRCAT TYP LAYY GRPSTR , Radius:  "
"\n(RTOS RAD 2 2) ZCOL LTYP ONS EXDAT))) ((= TYP INSERT) (SETQ AA (CDR (ASSOC 2 "
"\nENTT))) (IF (/= (SUBSTR AA 1 1) *) (SETVAR insname AA)) (SETQ XSCAL (CDR "
"\n(ASSOC 41 ENTT))) (IF (EQUAL XSCAL (FIX XSCAL) 1e-006) (SETQ XSCAL (ITOA (FIX "
"\nXSCAL))) (SETQ XSCAL (RTOS XSCAL 2 1))) (SETQ YSCAL (CDR (ASSOC 42 ENTT))) (IF "
"\n(= YSCAL (FIX YSCAL)) (SETQ YSCAL (ITOA (FIX YSCAL))) (SETQ YSCAL (RTOS YSCAL 2 "
"\n1))) (SETQ ZSCAL (CDR (ASSOC 43 ENTT))) (IF (= ZSCAL (FIX ZSCAL)) (SETQ ZSCAL "
"\n(ITOA (FIX ZSCAL))) (SETQ ZSCAL (RTOS ZSCAL 2 1))) (WRITE-LINE (STRCAT (IF "
"\n(ISXREF ENAM) Xref Block) :  AA LAYY GRPSTR , Scale  XSCAL / YSCAL "
"\n/ ZSCAL ROTA ZCOL LTYP ONS EXDAT)) (N ENAM)) ((= TYP DIMENSION) (IF (AND "
"\n(SETQ ASOC1 (ASSOC 1 ENTT)) (/= (CDR ASOC1) )) (SETQ DEFTXT , Not default "
"\ntext) (SETQ DEFTXT , Default text)) (WRITE-LINE (STRCAT TYP LAYY GRPSTR "
"\nDEFTXT ZCOL LTYP ONS EXDAT))) ((= TYP CIRCLE) (SETQ RADD (RTOS (CDR (ASSOC 40 "
"\nENTT)) 2 2)) (WRITE-LINE (STRCAT TYP LAYY GRPSTR , Radius:  RADD ZCOL LTYP "
"\nONS EXDAT))) ((= TYP POLYLINE) (SETQ SWIDTH (CDR (ASSOC 40 ENTT))) (IF (= "
"\nSWIDTH (FIX SWIDTH)) (SETQ SWIDTH (ITOA (FIX SWIDTH))) (SETQ SWIDTH (RTOS "
"\nSWIDTH 2 1))) (SETQ EWIDTH (CDR (ASSOC 41 ENTT))) (IF (= EWIDTH (FIX EWIDTH)) "
"\n(SETQ EWIDTH (ITOA (FIX EWIDTH))) (SETQ EWIDTH (RTOS EWIDTH 2 1))) (IF (= 16 "
"\n(LOGAND 16 (CDR (ASSOC 70 ENTT)))) (SETQ MESH  MESH) (SETQ MESH )) (IF (= 1 "
"\n(LOGAND 1 (CDR (ASSOC 70 ENTT)))) (SETQ CL /CL) (SETQ CL /OP)) (SETQ NUM "
"\n-1) (WHILE (/= SEQEND (CDR (ASSOC 0 (ENTGET (SETQ ENAM (ENTNEXT ENAM)))))) "
"\n(SETQ NUM (1+ NUM))) (WRITE-LINE (STRCAT TYP MESH LAYY GRPSTR , Width:  "
"\nSWIDTH , Segs:  (ITOA NUM) CL ZCOL LTYP ONS EXDAT))) ((= TYP LWPOLYLINE) "
"\n(SETQ PDAT (GLEPT ENAM)) (SETQ EXDAT (IF (ASSOC -3 ENTT)  *Ex* )) (SETQ ELV "
"\n(CADR PDAT)) (SETQ SEGS (NTH 2 PDAT)) (SETQ SWIDTH (CDR (ASSOC 40 ENTT))) (IF "
"\n(= SWIDTH (FIX SWIDTH)) (SETQ SWIDTH (ITOA (FIX SWIDTH))) (SETQ SWIDTH (RTOS "
"\nSWIDTH 2 1))) (SETQ EWIDTH (CDR (ASSOC 41 ENTT))) (IF (= 1 (LOGAND 1 (CDR "
"\n(ASSOC 70 ENTT)))) (SETQ CL /CL) (SETQ CL /OP)) (WRITE-LINE (STRCAT TYP "
"\nLAYY GRPSTR , Width:  SWIDTH SEGS CL ZCOL LTYP ONS EXDAT ELV))) ((= TYP "
"\nLINE) (SETQ LEN (DISTANCE TEN (SETQ ELV (CDR (ASSOC 11 ENTT))))) (SETQ ANGG "
"\n(ANGLE TEN ELV)) (SETQ ANGG (RTOS (* 180 (/ ANGG PI)) 2 1)) (WRITE-LINE (STRCAT "
"\nTYP LAYY GRPSTR , Length:  (RTOS LEN 2 2) , Ang:  ANGG ZCOL LTYP ONS "
"\nEXDAT))) ((= TYP TEXT) (SETQ HGHT (RTOS (CDR (ASSOC 40 ENTT)) 2 1)) (SETQ WID "
"\n(RTOS (CDR (ASSOC 41 ENTT)) 2 2)) (SETQ STYL (CDR (ASSOC 7 ENTT))) (SETQ STLDAT "
"\n(TBLSEARCH style STYL)) (SETQ FONT (CDR (ASSOC 3 STLDAT))) (IF (/=  (SETQ "
"\nBIGFNT (CDR (ASSOC 4 STLDAT)))) (SETQ BIGFNT (STRCAT /Bf: BIGFNT))) (SETQ "
"\nJUST (JUSTX ENTT)) (WRITE-LINE (STRCAT TYP   JUST LAYY GRPSTR ,  STYL / "
"\nFONT BIGFNT , Ht:  HGHT , Wd:  WID ROTA ZCOL ONS EXDAT))) ((= TYP ATTDEF) "
"\n(SETQ HGHT (RTOS (CDR (ASSOC 40 ENTT)) 2 1)) (SETQ WID (RTOS (CDR (ASSOC 41 "
"\nENTT)) 2 2)) (SETQ STYL (CDR (ASSOC 7 ENTT))) (SETQ FONT (CDR (ASSOC 3 "
"\n(TBLSEARCH style STYL)))) (SETQ JUST (JUSTX ENTT)) (WRITE-LINE (STRCAT TYP "
"\n JUST LAYY GRPSTR ,  STYL / FONT , Ht:  HGHT , Wd:  WID ROTA   (ICVP "
"\nENAM) ZCOL ONS EXDAT))) (T (WRITE-LINE (STRCAT TYP LAYY GRPSTR LTYP ZCOL ONS "
"\nEXDAT)))) (IF (AND (/= 0 (SETQ BOXES (GETVAR screenboxes))) (/= TYP "
"\nINSERT)) (PROGN (GRTEXT) (GRTEXT (- BOXES 3)  ) (GRTEXT (- BOXES 2) TYP) "
"\n(GRTEXT (- BOXES 1) LL) (GRTEXT 0 (NOPATH)))))"
"\n(IF AA (PROGN (SETQ ENTT (ENTGET (SETQ ENAM (CAR AA)) (LIST *))) (SETQ EXDAT "
"\n(IF (ASSOC -3 ENTT)  *Ex* )) (IF (/= (CADDDR (ASSOC 10 ENTT)) 0) (SETQ "
"\nEXDAT (STRCAT EXDAT  *Elv*))) (SETQ LL (CDR (ASSOC 8 ENTT))) (SETQ TYP (CDR "
"\n(ASSOC 0 ENTT))) (IF (= TYP POLYLINE) (SETQ TEN (CDR (ASSOC 10 (ENTGET "
"\n(ENTNEXT ENAM))))) (SETQ TEN (CDR (ASSOC 10 ENTT)))) (SETQ ONS (ONSNAP TEN)) "
"\n(SETQ ZCOL (COLF ENAM)) (IF (= ZCOL Bylayer) (SETQ ZCOL ) (SETQ ZCOL "
"\n(STRCAT , Col:  ZCOL))) (SETQ LTYP (LTYPF ENAM)) (SETQ ROTA (GROT ENAM)) "
"\n(SETQ LAYY (STRCAT ,  (LK ENAM) Layer:  LL)) (IF (AND (ASSOC 330 ENTT) "
"\n(SETQ GRDAT (GRRR ENAM))) (PROGN (SETQ GRPSTR , Gr:) (WHILE (SETQ SUB (CAR "
"\nGRDAT)) (SETQ GRDAT (CDR GRDAT)) (SETQ GRPSTR (STRCAT GRPSTR   (CAR SUB) "
"\n,))) (SETQ GRPSTR (SUBSTR GRPSTR 1 (1- (STRLEN GRPSTR))))) (SETQ GRPSTR )) "
"\n(COND ((= TYP ARC) (SETQ RAD (CDR (ASSOC 40 ENTT))) (WRITE-LINE (STRCAT TYP "
"\nLAYY GRPSTR , Radius:  (RTOS RAD 2 2) ZCOL LTYP ONS EXDAT))) ((= TYP "
"\nINSERT) (SETQ AA (CDR (ASSOC 2 ENTT))) (IF (/= (SUBSTR AA 1 1) *) (SETVAR "
"\ninsname AA)) (SETQ XSCAL (CDR (ASSOC 41 ENTT))) (IF (EQUAL XSCAL (FIX XSCAL) "
"\n1e-006) (SETQ XSCAL (ITOA (FIX XSCAL))) (SETQ XSCAL (RTOS XSCAL 2 1))) (SETQ "
"\nYSCAL (CDR (ASSOC 42 ENTT))) (IF (= YSCAL (FIX YSCAL)) (SETQ YSCAL (ITOA (FIX "
"\nYSCAL))) (SETQ YSCAL (RTOS YSCAL 2 1))) (SETQ ZSCAL (CDR (ASSOC 43 ENTT))) (IF "
"\n(= ZSCAL (FIX ZSCAL)) (SETQ ZSCAL (ITOA (FIX ZSCAL))) (SETQ ZSCAL (RTOS ZSCAL 2 "
"\n1))) (WRITE-LINE (STRCAT (IF (ISXREF ENAM) Xref Block) :  AA LAYY GRPSTR "
"\n, Scale  XSCAL / YSCAL / ZSCAL ROTA ZCOL LTYP ONS EXDAT)) (N ENAM)) ((= "
"\nTYP DIMENSION) (IF (AND (SETQ ASOC1 (ASSOC 1 ENTT)) (/= (CDR ASOC1) )) "
"\n(SETQ DEFTXT , Not default text) (SETQ DEFTXT , Default text)) (WRITE-LINE "
"\n(STRCAT TYP LAYY GRPSTR DEFTXT ZCOL LTYP ONS EXDAT))) ((= TYP CIRCLE) (SETQ "
"\nRADD (RTOS (CDR (ASSOC 40 ENTT)) 2 2)) (WRITE-LINE (STRCAT TYP LAYY GRPSTR , "
"\nRadius:  RADD ZCOL LTYP ONS EXDAT))) ((= TYP POLYLINE) (SETQ SWIDTH (CDR "
"\n(ASSOC 40 ENTT))) (IF (= SWIDTH (FIX SWIDTH)) (SETQ SWIDTH (ITOA (FIX SWIDTH))) "
"\n(SETQ SWIDTH (RTOS SWIDTH 2 1))) (SETQ EWIDTH (CDR (ASSOC 41 ENTT))) (IF (= "
"\nEWIDTH (FIX EWIDTH)) (SETQ EWIDTH (ITOA (FIX EWIDTH))) (SETQ EWIDTH (RTOS "
"\nEWIDTH 2 1))) (IF (= 16 (LOGAND 16 (CDR (ASSOC 70 ENTT)))) (SETQ MESH  MESH) "
"\n(SETQ MESH )) (IF (= 1 (LOGAND 1 (CDR (ASSOC 70 ENTT)))) (SETQ CL /CL) "
"\n(SETQ CL /OP)) (SETQ NUM -1) (WHILE (/= SEQEND (CDR (ASSOC 0 (ENTGET (SETQ "
"\nENAM (ENTNEXT ENAM)))))) (SETQ NUM (1+ NUM))) (WRITE-LINE (STRCAT TYP MESH LAYY "
"\nGRPSTR , Width:  SWIDTH , Segs:  (ITOA NUM) CL ZCOL LTYP ONS EXDAT))) ((= "
"\nTYP LWPOLYLINE) (SETQ PDAT (GLEPT ENAM)) (SETQ EXDAT (IF (ASSOC -3 ENTT)  "
"\n*Ex* )) (SETQ ELV (CADR PDAT)) (SETQ SEGS (NTH 2 PDAT)) (SETQ SWIDTH (CDR "
"\n(ASSOC 40 ENTT))) (IF (= SWIDTH (FIX SWIDTH)) (SETQ SWIDTH (ITOA (FIX SWIDTH))) "
"\n(SETQ SWIDTH (RTOS SWIDTH 2 1))) (SETQ EWIDTH (CDR (ASSOC 41 ENTT))) (IF (= 1 "
"\n(LOGAND 1 (CDR (ASSOC 70 ENTT)))) (SETQ CL /CL) (SETQ CL /OP)) (WRITE-LINE "
"\n(STRCAT TYP LAYY GRPSTR , Width:  SWIDTH SEGS CL ZCOL LTYP ONS EXDAT ELV))) "
"\n((= TYP LINE) (SETQ LEN (DISTANCE TEN (SETQ ELV (CDR (ASSOC 11 ENTT))))) "
"\n(SETQ ANGG (ANGLE TEN ELV)) (SETQ ANGG (RTOS (* 180 (/ ANGG PI)) 2 1)) "
"\n(WRITE-LINE (STRCAT TYP LAYY GRPSTR , Length:  (RTOS LEN 2 2) , Ang:  ANGG "
"\nZCOL LTYP ONS EXDAT))) ((= TYP TEXT) (SETQ HGHT (RTOS (CDR (ASSOC 40 ENTT)) 2 "
"\n1)) (SETQ WID (RTOS (CDR (ASSOC 41 ENTT)) 2 2)) (SETQ STYL (CDR (ASSOC 7 "
"\nENTT))) (SETQ STLDAT (TBLSEARCH style STYL)) (SETQ FONT (CDR (ASSOC 3 "
"\nSTLDAT))) (IF (/=  (SETQ BIGFNT (CDR (ASSOC 4 STLDAT)))) (SETQ BIGFNT (STRCAT "
"\n/Bf: BIGFNT))) (SETQ JUST (JUSTX ENTT)) (WRITE-LINE (STRCAT TYP   JUST LAYY "
"\nGRPSTR ,  STYL / FONT BIGFNT , Ht:  HGHT , Wd:  WID ROTA ZCOL ONS "
"\nEXDAT))) ((= TYP ATTDEF) (SETQ HGHT (RTOS (CDR (ASSOC 40 ENTT)) 2 1)) (SETQ "
"\nWID (RTOS (CDR (ASSOC 41 ENTT)) 2 2)) (SETQ STYL (CDR (ASSOC 7 ENTT))) (SETQ "
"\nFONT (CDR (ASSOC 3 (TBLSEARCH style STYL)))) (SETQ JUST (JUSTX ENTT)) "
"\n(WRITE-LINE (STRCAT TYP   JUST LAYY GRPSTR ,  STYL / FONT , Ht:  HGHT "
"\n, Wd:  WID ROTA   (ICVP ENAM) ZCOL ONS EXDAT))) (T (WRITE-LINE (STRCAT TYP "
"\nLAYY GRPSTR LTYP ZCOL ONS EXDAT)))) (IF (AND (/= 0 (SETQ BOXES (GETVAR "
"\nscreenboxes))) (/= TYP INSERT)) (PROGN (GRTEXT) (GRTEXT (- BOXES 3)  ) "
"\n(GRTEXT (- BOXES 2) TYP) (GRTEXT (- BOXES 1) LL) (GRTEXT 0 (NOPATH))))) (PROGN "
"\n(GRTEXT) (GRTEXT 0 (NOPATH)) (WRITE-LINE Nothing selected.)))"
"\n(C:N)"
"\n*Cancel*"
"\n"
"\nCommand: e"
"\nERASE"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects: *Cancel*"
"\n"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\n"
"\n"
"\nCommand: e"
"\nERASE"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\n"
"\nCommand: audit"
"\n"
"\nFix any errors detected? <N> y"
"\n 5       Blocks audited"
"\nPass 1 706     objects audited"
"\nPass 2 706     objects audited"
"\nPass 3 1400    objects audited"
"\nTotal errors found 0 fixed 0"
"\n"
"\n"
"\nCommand: n"
"\nSelect entity:"
"\nATTDEF M, Layer: 0, STANDARD/simplex.shx, Ht: 2.5, Wd: 0.85, R: 0 icvp, Col: "
"\nRed, Not on snap."
"\n"
"\n"
"\nCommand:"
"\nN Select entity:"
"\nATTDEF M, Layer: 0, STANDARD/simplex.shx, Ht: 2.5, Wd: 0.85, R: 0 icvp, Col: "
"\nRed, Not on snap."
"\n"
"\n"
"\nCommand:"
"\nN Select entity:"
"\nATTDEF M, Layer: 0, STANDARD/simplex.shx, Ht: 2.5, Wd: 0.85, R: 0 icvp, Col: "
"\nRed, Not on snap."
"\n"
"\n"
"\nCommand: c"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\n"
"\nBase point: Second point of displacement: Second point of displacement: *Cancel*"
"\n"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\n"
"\n"
"\nCommand: tea"
"\nText/Block:"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\nCorner o'Box:"
"\nOther:"
"\n"
"\nCommand:"
"\nTEA Text/Block:"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\nCorner o'Box:"
"\nOther:"
"\n"
"\nCommand:"
"\nTEA Text/Block:"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\nCorner o'Box:"
"\nOther: endp of"
"\n"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>: *Cancel*"
"\n"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\n"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\n<Select an annotation object>/Undo: *Cancel*"
"\n"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\n"
"\n"
"\nCommand: nn"
"\nSubentity:"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\n<Select an annotation object>/Undo:"
"\n<Select an annotation object>/Undo:"
"\n"
"\nCommand:"
"\nD Select anything textlike:"
"\n"
"\n<Select an annotation object>/Undo:"
"\n"
"\nCommand: n"
"\nSelect entity:"
"\nBlock: LAMICTXT, Layer: E-EEQUIP, Scale 0.1/0.1/0.1, R: 0"
"\n"
"\n"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\n"
"\n"
"\nCommand: w"
"\nWBLOCK"
"\nBlock name:"
"\nInsertion base point: int of"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\n"
"\nCommand: dd"
"\n"
"\n Insertion point: *Cancel*"
"\n"
"\nCommand:"
"\nCommand:"
"\nCommand:"
"\n"
"\n"
"\nCommand: blur"
"\nBlock to replace or <Return> to pick:"
"\nSelect block: LAMICTXT"
"\nNew block or <Return> to pick:"
"\nSelect block: LAMICTXT"
"\nReplace text by <Attribute tag>/in Order/in order Ignore empties/leave Empty: o"
"\nBlock insertion scale (<Return> = current): 1"
"\n5 blocks replaced."
"\n"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\nCommand: n"
"\nSelect entity:"
"\nBlock: LAMICTXT, Layer: E-EEQUIP, Scale 1/1/1, R: 0"
"\n"
"\n"
"\nCommand: chat"
"\nPick entity to detonate:"
"\nRun Chab.lsp to reblock."
"\n"
"\n"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>:"
"\nOther corner:"
"\nCommand: vbml"
"\nPick text strings to ML rejustify:"
"\nSelect objects: 1 found"
"\n"
"\nSelect objects:"
"\nPick left side:  <Snap on>"
"\n1 line mled."
"\n"
"\nCommand: cf"
"\nPick text/attdefs to rearrange:"
"\nSelect objects: Other corner: 1 found"
"\n"
"\nSelect objects:"
"\nTop of box:"
"\n...and bottom or <Return>:"
"\nLine spacing <4.13>:"
"\n"
"\n"
"\nCommand: chab"
"\nNew block name (<Enter> to redefine LAMICTXT):"
"\nLAMICTXT inserts updated: 5"
"\n"
"\n"
"\nCommand: zp"
"\nZoom time: 0 seconds"
"\n"
"\n"
"\nCommand: blur"
"\nBlock to replace or <Return> to pick:"
"\nSelect block: LAMICTXT"
"\nNew block or <Return> to pick:"
"\nSelect block: LAMICTXT"
"\nReplace text by <Attribute tag>/in Order/in order Ignore empties/leave Empty:"
"\nBlock insertion scale (<Return> = current):"
"\n5 blocks replaced."
"\n"
"\n"
"\nCommand: w"
"\nWBLOCK"
"\nBlock name: lamictxt"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\nCommand: chat"
"\nPick entity to detonate:"
"\nRun Chab.lsp to reblock."
"\n"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\n<Select an annotation object>/Undo:"
"\n<Select an annotation object>/Undo:"
"\n"
"\nCommand:"
"\nD Select anything textlike:"
"\n"
"\nCommand:"
"\nD Select anything textlike:"
"\n"
"\n<Select an annotation object>/Undo:"
"\n"
"\nCommand:"
"\nD Select anything textlike:"
"\n"
"\n<Select an annotation object>/Undo:"
"\n"
"\nCommand: chab"
"\nNew block name (<Enter> to redefine LAMICTXT):"
"\nLAMICTXT inserts updated: 5"
"\n"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\nCommand: w"
"\nWBLOCK"
"\nBlock name: lamictxt"
"\n"
"\nCommand: d"
"\nSelect anything textlike:"
"\n"
"\nCommand:"
"\nD Select anything textlike:"
"\n"
"\nCommand: q"
"\nQSAVE"
"\nCommand: nc"
"\n"
"\nCommand: b"
"\nBHATCH"
"\nCommand: hatch"
"\n"
"\nEnter pattern name or [?/Solid/User defined] <ANGLE>: *Cancel*"
"\n"
"\nCommand: zp"
"\nZoom time: 0.1 seconds"
"\n"
"\n"
"\nCommand: ld"
"\nFile to load: lamicoid"
"\n"
"\nC:LAMICOID"
"\n"
"\nCommand: lamicoid"
"\n"
"\n"
"\nCommand: xx"
"\nLisp file <lamicoid>:"
"\n"
"\n"
"\nCommand: ld"
"\nFile to load <lamicoid.lsp>:"
"\n"
"\nC:LAMICOID"
"\n"
"\nCommand: lamicoid"
"\n"
"\n"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>:"
"\nOther corner:"
"\nCommand: ze"
"\n"
"\n"
"\nCommand: z"
"\nZOOM"
"\nAll/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>:"
"\nOther corner:"
"\nCommand: cls"
"\nUnknown command "CLS".  Press F1 for help."
"\nEnter Insert key to select menu item."
"\n"
"\nCommand: xx"
"\nLisp file <lamicoid.lsp>: cls"
"\n"
"\n"
"\nCommand: ld"
"\nFile to load <cls.lsp>:"
"\n"
"\nC:CLS"
"\n"
"\nCommand: cls"
"\n"))
  (setq num 0)
  (while (setq str (nth num liss))
         (setq num (1+ num))
         (prompt str))
 (princ))