; One Point Leader Mirror across Vertical axis, with Object Snap for selection
; Slightly modified by Igal Averbuh 2017 (added option for leader sellection only)
; Based on Kent Cooper's one point Mirror across Vertical axis, with Object Snap for selection

(defun c:MV (/ pt)
(setvar "osmode" 2)

(setq pt (ssget "_:L" '((0 . "LEADER"))))
(princ "\nSelect Mirror Point:")
(setvar "cmdecho" 0)
(setq pt (getpoint))
(command
"_.mirror"
pt ""
"_none" "@"
"_none" "@0,1"
"_yes"
)
(setvar "osmode" 167)
(setvar "cmdecho" 1)
)

Advertisements