;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;    Multi-Mirror                                   ;
;                                                   ;
;    By Michael Bulatovich, August 2001             ;
;             www.michaelbulatovich.ca              ;
;                                                   ;
;    Remembers mirror axis for multiple mirroring.  ;
;                                                   ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:mmirr (/)

  (if (or (not pt1) (not pt2))
    (progn
      (setpoints)(mirr)
      )
    (progn
      (confirm)(mirr)
      );end of progn
  )
);end of 45 function

(defun setpoints ()
  (setq pt1 (getpoint "Pick first point of mirror:"))
  (setq pt2 (getpoint "Pick second point of mirror:"))
); end of defun setpoints

(defun confirm ()
    (initget "Yes No")
    (if	(eq "No"
	    (getkword "Re-use previous mirror axis? No/<Yes>:"))
      (setpoints)); end of conditional eq
     
      
    );end of defun confirm

(defun mirr (/ sset)
      
	(setq sset (ssget))
	(command "mirror" sset "" pt1 pt2)
      ); end of mirr function