home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / TXTIN.LSP < prev    next >
Text File  |  1987-07-12  |  2KB  |  46 lines
  1. (DEFUN C:TXTIN ();V1.10
  2. ;By Scott Hull, 06-01-86
  3. ;SAH Mechanical Design (415) 343-4015
  4. ;Imports text files.
  5.  
  6.  
  7.  (DEFUN *ERROR* (ST)
  8.   (PRINC "error: ")
  9.   (PRINC ST)
  10.   (TERPRI))
  11.  
  12.  (DEFUN CONT ( / OPNF TEXTLINE TSTYLEX TSTYLE PT1 TSZ RA AUSTAT BLIPSTAT)
  13.   (SETQ OPNF (OPEN OPNFX "r"))
  14.   (SETQ TEXTLINE (READ-LINE OPNF))
  15.   (IF (NOT TSTYLE) (SETQ TSTYLE "STANDARD"))
  16.   (SETQ TSTYLEX (GETSTRING (STRCAT "\nStyle name <" TSTYLE ">: ")))
  17.   (IF (/= TSTYLEX "") (SETQ TSTYLE TSTYLEX))
  18.   (SETQ PT1 (GETPOINT "\nStarting point: "))
  19.   (SETQ TSZ (GETDIST PT1 
  20.     (STRCAT "\nHeight <"
  21.      (RTOS (GETVAR "TEXTSIZE") (GETVAR "LUNITS") (GETVAR "LUPREC")) ">: ")))
  22.   (IF (/= TSZ NIL) (SETVAR "TEXTSIZE" TSZ))
  23.   (SETQ RA 0.0)
  24.   (SETQ RA (GETANGLE PT1 "\nRotation angle <0>: "))
  25.   (IF (= RA NIL) (SETQ RA 0.0))
  26.   (SETQ AUSTAT (GETVAR "AUNITS"))
  27.   (SETQ BLIPSTAT (GETVAR "BLIPMODE"))
  28.   (setq hl (getvar "highlight"))
  29.   (setvar "highlight" 0)
  30.   (SETVAR "BLIPMODE" 0)
  31.   (SETVAR "AUNITS" 4)
  32.   (SETVAR "CMDECHO" 0)
  33.   (COMMAND "TEXT" "S" TSTYLE PT1 (GETVAR "TEXTSIZE") RA TEXTLINE)
  34.   (WHILE (NOT (NULL TEXTLINE))
  35.    (SETQ PT1 (POLAR PT1 (+ RA (* 1.5 PI)) (* (/ 5.0 3.0) (GETVAR "TEXTSIZE"))))
  36.    (SETQ TEXTLINE (READ-LINE OPNF))
  37.    (COMMAND "TEXT" PT1 "" "" TEXTLINE))
  38.   (SETVAR "BLIPMODE" BLIPSTAT)
  39.   (SETVAR "AUNITS" AUSTAT)
  40.   (setvar "highlight" hl)
  41.   (CLOSE OPNF))
  42.  
  43.  (SETQ OPNFX (GETSTRING "\nNAME OF TEXT FILE TO OPEN: "))
  44.  (IF (/= OPNFX "") (CONT)))
  45.      (command "change" "L" "" "P" "C" txt-clr "")
  46.      (se