home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / 3D / TSEDIT.LSP < prev    next >
Encoding:
Text File  |  1991-07-29  |  286 b   |  14 lines
  1. ;******3D\TSEDIT.LSP******   7-29-91 BJ
  2. (if (null tb) (setq tb 1.0))
  3. ;----------
  4. (defun C:TSEDIT ( )
  5.   (setq en (car (entsel "\n Select object:")))
  6.   (if en 
  7.     (progn 
  8.       (command "copy" en "" '(0 0 0) '(0 0 0))
  9.       (entdel en)
  10.       (redraw (entlast))
  11.     )
  12.   )
  13. )
  14.