home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / apr94cad.zip / TIP970B.LSP < prev    next >
Lisp/Scheme  |  1994-03-11  |  1KB  |  35 lines
  1. ; TIP970B.LSP: AUTOTXT.LSP   Automatic Letters and Numbers
  2. ;                           (c)1994, Bill Bratt
  3.  
  4.    ; *****************************************************************
  5.    ;                         AUTOTXT.LSP
  6.    ; *****************************************************************
  7.    ; This AutoLISP routine is by: Bill Bratt   8-27-91
  8.    ; This function will do the alphabet in a row
  9.    ; at any angle, spacing and text height.
  10.    ; This could be used for schedules.
  11.    ; *****************************************************************
  12.    (Defun C:AUTOTXT ( / ECH G A P1 C A1 D E)
  13.        (Setq ECH (Getvar "Cmdecho"))
  14.        (Setq G (Getvar "Blipmode"))
  15.        (Setvar "Cmdecho" 0)
  16.        (Setvar "Blipmode" 0)
  17.        (Setq A (Getint "\nHow many letters do you want to print <1 to 26>: "))
  18.        (if (> A 26)
  19.        (setq A 26)
  20.        )
  21.        (Setq P1 (Getpoint "\nStarting point: "))
  22.        (Setq C (Getdist P1 "\nDistance between letters: "))
  23.        (Setq A1 (Getangle P1 "\nAngle to run letters: "))
  24.        (Setq D (Getdist P1 "\nText height: "))
  25.        (Setq E 65)
  26.        (Repeat A
  27.                (Setq F (chr E))
  28.                (Command "Text" "C" P1 D 0 F)
  29.                (Setq E (+ E 1))
  30.                (Setq P1 (Polar P1 A1 C))
  31.        )
  32.        (Setvar "Blipmode" G)
  33.        (Setvar "Cmdecho" ECH)
  34.    )
  35.