关于镜像命令~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

xiaobo21cn · 发表于 2013-11-21 09:40:08

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

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

x

我在用镜像命令时，经常是删除原对像的
所以直接定义了EE命令如下：

(defun c:EE()
(command "_MIRROR" (ssget) "" (getpoint)(getpoint) "Y")
)

这个语句有点缺陷，在选对称轴时，没有辅助线。系统的MI在选第二个点时，会出现根辅助线。
请问我这个语句要怎么修改下
本人不会LISP，上面名话，是看别的命令中抄来的，谢谢高人指点

Lisphk · 发表于 2013-11-21 10:09:16

本帖最后由 Lisphk 于 2013-11-21 10:18 编辑

试试：

(defun c:ee ()
(command "_MIRROR" (ssget) "" (setq p1 (getpoint "\n第一点:"))
(getpoint p1 "\n第二点:") "Y"
)
)

/db_自贡黄明儒_ · 发表于 2013-11-21 10:16:28

(command "_MIRROR" (ssget) "" (setq p1 (getpoint))(getpoint p1) "Y")

xiaobo21cn · 发表于 2013-11-21 10:25:52

/db_自贡黄明儒_ 发表于 2013-11-21 10:16
(command "_MIRROR" (ssget) "" (setq p1 (getpoint))(getpoint p1) "Y")

这个可以了，谢谢兄弟

我估计二楼的也许也可以，可能哪里差了个空格，同谢

ysq101 · 发表于 2013-11-21 14:28:19

我来分享一下葛老的源码~~这个比以上的都要好用一些

PS: 话说怎么这么久都没见过葛老冒泡了?????改行做潜水员了???

;;;功能：如果想删除源对象，点下即可，(省的输入Y才能删除)
(defun c:YY-MIRROR (/ SS)
  (IF (SETQ SS (SSGET ":L"))
(PROGN
   (command "MIRROR" SS "" PAUSE PAUSE)
   (IF (GETPOINT "\n选点删除源对象<右键保留>:")
      (COMMAND "Y")
      (COMMAND "")
   )
)
  )
  (PRINC)
)

st788796 · 发表于 2013-11-21 15:03:53

本帖最后由 st788796 于 2013-11-21 15:05 编辑

折腾，少一个 Y 的事

ysq101 · 发表于 2013-11-21 15:18:29

st788796 发表于 2013-11-21 15:03
折腾，少一个 Y 的事

学习LISP就是为了方便操作
再说Y不在左手键内

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

[求助] 关于镜像命令~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

相关帖子

点评

点评

点评