home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 190.img / AA2.ZIP / ARCHP / ROOMCALL.LSP < prev    next >
Encoding:
Text File  |  1989-05-24  |  768 b   |  19 lines
  1. ; ROOMCALL - place consecutive room labels
  2. ;;       Jonathan B. Solomon 8/1/88 r10 9/19/88
  3. ;;       (C)1989 Cadcraft, Inc.
  4. ;
  5. (defun c:rm()
  6. (princ "\nPlacing consecutively numbered room labels...")
  7. (setq atdia (getvar "attdia") atreq (getvar "attreq"))
  8. (setvar "attdia" 0)(setvar "attreq" 1)
  9. (if (null rnum)(setq rnum 100))
  10. (while (setq inspt (getpoint "\nInsert point: "))
  11.   (setq rntemp (getstring (strcat "\nRoom Number <" (rtos rnum 2 0) ">: ")))
  12.   (if (= rntemp "")(setq rntemp rnum)(setq rnum (atoi rntemp)))
  13.   (setq rnum (1+ rnum))
  14.   (command "insert" (strcat drive (if macii ":arch:" "/arch/") "rmno1") "scale" scale1 inspt "0" rntemp)
  15. )
  16. (setvar "attdia" atdia)(setvar "attreq" atreq)
  17. (setq rntemp nil)(princ)
  18. )
  19.