home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / mar94cad.zip / TIP959.LSP < prev    next >
Lisp/Scheme  |  1994-02-15  |  345b  |  12 lines
  1. ; TIP959.LSP: CTR.LSP   Centers for Circles   (c)1994, Mark H. Miller
  2.  
  3. (defun C:CTR (/ i ss)
  4.    (setq ss (ssget "x" '((0 . "circle"))))
  5.    (setq i 0)
  6.    (command ".dim")
  7.    (repeat (sslength ss)
  8.       (command "center" (list (ssname ss i) '(0 0)))  ;note that .center won't work
  9.    (setq i (1+ i)))
  10.    (command "exit")
  11. ); end ctr.lsp
  12.