home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / FA / SETUP.LSP < prev    next >
Encoding:
Text File  |  1986-05-15  |  1.7 KB  |  64 lines
  1. ;
  2. ;+-------------------------------------------------------------------------+
  3. ;| SETUP.LSP                                                               |
  4. ;| Ver.  1.0  Feb. 25, 1986                                                |
  5. ;|                                                                         |
  6. ;| J.J.K.     Feb. 25, 1986                                                |
  7. ;|                                                                         |
  8. ;| This program will set the Units and Limits of a new drawing, and will   |
  9. ;| draw a border line around the drawing.                                  |
  10. ;+-------------------------------------------------------------------------+
  11. ;
  12. ;
  13. (apply '(lambda ()
  14.  (setvar "cmdecho" 0)
  15.  (menucmd "S=UNITS")
  16.  (setq d nil)
  17.  (setq a (getint "\nSelect the Units from the screen menu: "))
  18.  (menucmd (strcat "S=U" (itoa a)))
  19.  (cond
  20.    (
  21.      (= a 5)
  22.      (setq a 2 d 5)
  23.    )
  24.  )
  25.  (setvar "lunits" a)
  26.  (setq b (getreal "\nSelect the Scale from the screen menu: "))
  27.  (cond
  28.    (
  29.      (= b 0)
  30.      (setq b (getreal "\nEnter the scale: "))
  31.      (setq b (float b))
  32.    )
  33.  )
  34.  (cond
  35.    (
  36.      (= d 5)
  37.      (menucmd "S=METRIC")
  38.    )
  39.    (T
  40.      (menucmd "S=ENGLISH")
  41.    )
  42.  )
  43.  (setq cx (getdist "\nSelect the Paper size from the screen menu: "))
  44.  (setq cy (getdist))
  45.  (cond
  46.    (
  47.      (= cx 0)
  48.      (setq cx (getdist "\nEnter the Horizontal Dimension of the paper: "))
  49.      (setq cy (getdist "\nEnter the Vertical Dimension of the paper: "))
  50.    )
  51.  )
  52.  (setq xl (* b cx) yl (* b cy))
  53.  (command
  54.   "limits" "0,0" (list xl yl)
  55.   "insert" "border" "0,0" xl yl "0"
  56.   "zoom" "a"
  57.  )
  58.  (menucmd "S=S")
  59. )
  60.  '()                                               ; Finishing lambda
  61. )
  62.  
  63.  
  64.