home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / CADWRITE.LSP < prev    next >
Text File  |  1987-08-23  |  384b  |  11 lines
  1. (setq rt1 (getvar "CMDECHO"))
  2. (setvar "CMDECHO" 0)
  3. (setq insptrt (getpoint "insertion point: "));\
  4. (command "readtext" insptrt)
  5. (setq dxfrt "$cmd")
  6. (command "dxfin" dxfrt)
  7. (setq dxfrt "erase $cmd.dxf")
  8. (command "sh" dxfrt)
  9. (setvar "CMDECHO" RT1)
  10. (graphscr)
  11.