home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / SCALE.LSP < prev    next >
Text File  |  1989-01-14  |  363b  |  9 lines
  1. (defun c:scaleins ()
  2. (setq dwg(getstring"\nWhat is the name of the detail to insert? "))
  3. (initget "A B C D E F G H I J K")
  4. (menucmd"s=x")(menucmd"s=u4")
  5. (setq scl(getdist"\nSelect detail scale from screen menu: "))
  6. (menucmd"s=s")
  7. (setq inscl(* (/ 1 scl)(getvar"dimscale")))
  8. (command"insert" dwg "xscale" inscl "yscale" inscl "zscale" inscl pause pause))
  9.