[LISP函数]：帮忙给改个很小的lsp程序，使得镜像的时候少一个y

liminzheng

我经常使用镜像命令，每次重复输入y，挺麻烦的，参照别人的程序定义快捷键yy为镜像，可用的时候选择的两个点不能够保持水平或竖直，很头痛，那位高手给我解决一下，不胜感激。

(defun C:yy ()
       (setvar "cmdecho" 0)
       (setq yymir (ssget))
       (setq pt1 (getpoint "\n选择第一点 : "))
       (setq pt2 (getpoint "\n选择第二点 : "))
       (command "mirror" yymir "" pt1 pt2 "y")
       (setq yymir nil) (setvar "cmdecho" 1)
       (prin1)
)

flysky123

我上传一个lisp 镜像的时候可以直接选"Y"