home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / j / jan93.zip / TIP835.LSP < prev    next >
Lisp/Scheme  |  1992-12-14  |  194b  |  10 lines
  1. ;TIP835: PAT.LSP (c)1993, Jody Lund
  2.  
  3. (defun C:PAT ()
  4.   (setq NO (getstring "Enter number: "))
  5.   (command "attedit" "" "" "number" NO "c" "0,0" "16300,20000")
  6.   (princ)
  7. ); end pat.lsp
  8.  
  9.  
  10.