home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / feb93.zip / TIP843.LSP < prev    next >
Text File  |  1993-01-14  |  534b  |  19 lines
  1. ;TIP843: CPR.LSP (C)1993, PAUL J. MUTSCHLER
  2.  
  3. (defun c:cpr (/ ss1 r_tation a_ngle l_nth i e_nt)
  4. (SETVAR "CMDECHO" 0)
  5.   (setq ss1(ssget))
  6.   (setq r_tation(getpoint"\nSelect Rotation Point: "))
  7.   (setq a_ngle(getint"\nEnter Rotation Angle: "))
  8.   (setq l_nth(sslength ss1))
  9.   (setq i 0)
  10.    (repeat l_nth
  11.    (setq e_nt(ssname ss1 i))
  12.     (command "copy"  e_nt "" "0,0,0" "@0,0,0")
  13.     (setq i(+ 1 i))
  14.    )
  15.   (command"rotate" ss1 "" r_tation a_ngle)
  16. (princ)
  17.   (command"redraw");this needs to be a regen if using a DLP.
  18. )
  19.