;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-8-97
;;;>		   EDITED: 08-18-1999
;;;
(defun c:mir ()
  (if upoint
    nil
    (load "uutils")
  ) ;_ end of if
  (princ "\nSelect entities to mirror. ")
  (while
    (setq ss (ssget))
     (setq mirpt (upoint 1 "" "Point to mirror about" nil nil))
     (command ".mirror"
	      ss
	      ""
	      mirpt
	      (polar mirpt (/ pi 2) 10000000)
	      "y"
     ) ;_ end of command
     (princ "\nSelect entities to mirror. ")
  ) ;_ end of while
  (princ)
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 0 0 0 T T nil T)
 ***Don't add text below the comment!***|;