home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
misc_lsp.zip
/
AUTONUMB.LSP
next >
Wrap
Text File
|
1987-04-07
|
534b
|
18 lines
(Defun C:AN ()
(Setvar "Cmdecho" 0)
(Setq G (Getvar"Blipmode"))
(Setvar "Blipmode" 0)
(Setq A (Getint"\nStarting number:"))
(Setq B (Getint"\nEnding number:"))
(Setq P1 (Getpoint"Starting point:"))
(Setq C (Getdist P1"\nDistance between numbers:"))
(Setq A1 (Getangle P1 "\nAngle to run numbers:"))
(Setq D (Getdist P1"\nText height:"))
(if( > A B)(Setq E -1)(Setq E 1))
(Repeat ( + 1 (Abs( - A B)))
(Setq F (Itoa A))
(Command "Text" "C" P1 D 0 F)
(Setq A ( + A E))
(Setq P1 (Polar P1 A1 C)))
(Setvar "Blipmode" G))