[LISP函数]：镜像的时候去除"

liminzheng · 发表于 2007-7-21 22:27:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我经常使用镜像命令，每次重复输入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)
)

zys1211 · 发表于 2007-8-20 22:28:47

不会

zhf710511 · 发表于 2007-9-3 21:39:39

复杂

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：镜像的时候去除"

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子