home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 190.img / AA2.ZIP / ARCHP / SEATCALL.LSP < prev    next >
Encoding:
Text File  |  1989-05-25  |  1.1 KB  |  28 lines
  1. ; SEATCALL - Place seating callout with auto increment and defaults
  2. ;;       Jonathan B. Solomon 3/02/88
  3. ;;       (C)1989 Cadcraft, Inc.
  4. (princ "\nInsert Seat Callout ... ")
  5. ;
  6. ;  1. SET DEFAULTS
  7. (if (null srmno)(setq srmno "200"))
  8. (if (null sno)(setq sno 100))
  9. (if (null stype)(setq stype ""))
  10. (if (null scond)(setq scond ""))
  11. (while (/=
  12.    (setq sntemp (getstring (strcat "\nSeat Number (. = done) <" (rtos sno 2 0) ">: ")))
  13.      ".")
  14.   (if (= sntemp "")(setq sntemp sno) (setq sno (atoi sntemp)))
  15.   (setq sno (1+ sno))
  16. ;
  17.   (setq temp (getstring T (strcat "\nRoom Number <" srmno ">: ")))
  18.   (if (/= temp "")(setq srmno temp))
  19.   (setq temp (getstring T (strcat "\nSeating type <" stype ">: ")))
  20.   (if (/= temp "")(setq stype temp))
  21.   (setq temp (getstring T (strcat "\nSeating condiditon <" scond ">: ")))
  22.   (if (/= temp "")(setq scond temp))
  23.   (setq sremrk (getstring T "\nRemarks: "))
  24.   (princ "\nInsertion point: ")
  25.   (command "insert" (strcat drive (if macii ":arch:" "/arch/") "seatcall") "scale" scale1 pause 0 sntemp
  26.      srmno stype scond sremrk)
  27. )
  28. (princ)