TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: rude dog on February 24, 2004, 12:14:13 AM

Title: Just for fun
Post by: rude dog on February 24, 2004, 12:14:13 AM
wrote this out of sheer bordumb..I know most of you probably bank online but I wrote this so someone could put there check into the printer and print from autocad....pretty wierd huh...just creative practice..feel free to add to it or chop it apart I can take it :D ...print out (for test) on 8.5X11 1to1 and tick the extents bubble..then line check up with corner of paper (in front of paper of course)
hold up to the light and see if text lines up where it should
uses your default text...
Code: [Select]

(defun c:WC ()
(setq PT (list 0.0 -0.125 0.0))
(setq PT1 (list 3.75 1.594 0.0))
(setq PT2 (list 1.031 1.156 0.0))
(setq PT3 (list 4.77 1.125 0.0))
(setq PT4 (list 0.50 0.0942 0.0))
(setq PT5 (list 0.313 0.8776 0.0))
;;**********************************
(setq D1 (getstring "\nEnter date: "))
(setq P1 (getstring 1 "\nWho is the check being issued to: "))
(setq C1 (getstring "\nEnter cash amount [NUMERIC]: "))
(setq A1 (getstring "\nEnter account number: "))
(setq C2 (getstring 2 "\nSpell out cash amount: "))
(command "point" PT "")
(command "text" PT1 "0.09375" "0" D1)
(command "text" PT2 "0.09375" "0" P1)
(command "text" PT3 "0.09375" "0" C1)
(command "text" PT4 "0.09375" "0" A1)
(command "text" PT5 "0.09375" "0" C2)
)
(princ)
Title: Just for fun
Post by: Keith™ on February 24, 2004, 06:16:22 AM
Hmmm... now the program that cost us a heap of cash, is going to help us spend some more.... does anyone else see the irony in that?