(defun c:MH (/ pt); = Kent Cooper's one point Mirror across Horizontal axis, with Object Snap for selection

(setq pt (getpoint "\nOsnap-select single object at Horizontal-Mirror-axis location: "))
(command
"_.mirror"
pt ""
"_none" "@"
"_none" "@1,0"
"_yes"
)
)

Advertisements