home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HM28.LSP < prev    next >
Encoding:
Text File  |  1990-03-09  |  483 b   |  16 lines
  1. ;*****************************
  2. ;The program for quit.       *
  3. ;*****************************
  4. (defun qu ()
  5. (setvar "cmdecho" 0)
  6. (setvar "blipmode" 0)
  7. (command "line" (list 10 0) (list 10 0.01) (list 10.01 0.01) (list 10.01 0) "c")
  8. (setq fpt (list 10 0) no (+ no 1))
  9. (attdef1 "dl1" 0 fpt)
  10. (command "block" no fpt "w" (list 10 0) (list 10.01 0.01) "")
  11. (command "insert" no fpt "" "" "" "")
  12. (command "attext" "s" "tmpf" "\\housem\\dbf\\outl")
  13. (command "quit" "y")
  14. )
  15. (qu)
  16.