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
...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...
(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)
