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

liminzheng · 发表于 2007-7-21 22:37:31

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

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

×

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

yi.gao · 发表于 2007-7-21 22:58:21

在第三、四行中间加一句：
(command "ortho" "on")
如果想最终还退出正交模式，可以在最后加上：
(command "ortho" "off")

yi.gao · 发表于 2007-7-21 23:08:08

方法还可以有很多——其实这是废话。

gysjy · 发表于 2007-7-21 23:25:22

[FONT=courier new]
(defun c:yy(/ ss p1 p2 os ortho)
(setq ss (ssget) os (getvar "osmode") ortho (getvar "orthomode"))
(setvar "orthomode" 1)
(setvar "osmode" 2)
(setq p1 (getpoint "\n第一点:"))
(setvar "osmode" 0)
(setq p2 (getpoint "\n第二点:" p1))
(command "mirror" ss "" p1 p2 "y")
(setvar "osmode" os)
(setvar "orthomode" ortho)
(princ)
)
[/FONT]

liminzheng · 发表于 2007-7-22 13:47:51

哈哈，多谢楼上两位，已经照此方法搞定。

用此可以在处理对称的平法结构施工图中轻松不少。

希望见到此的朋友也试一下。

yi.gao · 发表于 2007-7-22 14:14:03

我说了方法可以很多——还是废话

gysjy · 发表于 2007-7-22 19:06:22

[B]钱多得烧心，谁帮我烧点钱？[/B]

这么多的现金和存款是怎么攒来的呀？*-*3

yi.gao · 发表于 2007-7-22 19:30:24

说废话说出来的

gysjy · 发表于 2007-7-23 19:00:29

最初由 yi.gao 发布
[B]说废话说出来的 [/B]

岂不是有灌水的嫌疑？*-*1

果皮－7719 · 发表于 2007-8-18 11:29:43

已经改了，这里高手真是很多啊

jxdiy · 发表于 2007-8-29 08:30:52

只能多支持啊

攒钱下载

shep2008 · 发表于 2007-9-28 01:47:33

这么高深的东西呀,楼主利害!!!!!

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

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

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

相关帖子