规则镜像插件

Lispboy · 发表于 2016-9-22 19:30:29

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

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

×

和朋友聊天，他经常需要多次重复用MIRROR命令做些重复的工作，所以写了这个插件。

[it618postdisplay>0]

(defun c:xdtb_regmirror ( / box mat mat1 mat2 op ss ss1)
(xdrx_begin)
(if (not (xd::symbol:get '#xd_global_var_mirror_options))
(xd::symbol:put '#xd_global_var_mirror_options "A")
)
(if (and
(xdrx_prompt "\n选取镜像的实体<退出>:")
(setq ss (ssget))
(progn
(initget "A W D S X")
(xdrx_initget "A W D S X")
)
(if (setq op (getkword (xdrx_prompt "\n镜像选项[左(A)/右(D)/上(W)/下(X)/四象限(S)<"
(xd::symbol:get '#xd_global_var_mirror_options)
">:" t
)
)
)
(xd::symbol:put '#xd_global_var_mirror_options op)
(setq op (xd::symbol:get '#xd_global_var_mirror_options))
)
)
(progn
(setq box (xdrx_entity_box ss)
mat (xdrx_matrix_identity 3)
)
(if (/= "S" op)
(progn
(cond
((= op "A")
(setq mat (xdrx_matrix_setmirror mat (list (car box)
(last box)
)
)
)
)
((= op "W")
(setq mat (xdrx_matrix_setmirror mat (list (last box)
(caddr box)
)
)
)
)
((= op "D")
(setq mat (xdrx_matrix_setmirror mat (list (cadr box)
(caddr box)
)
)
)
)
((= op "X")
(setq mat (xdrx_matrix_setmirror mat (list (car box)
(cadr box)
)
)
)
)
)
(xdrx_entity_transformedcopy ss mat)
)
(progn
(setq mat1 (xdrx_matrix_setmirror mat (list (cadr box)
(caddr box)
)
)
mat2 (xdrx_matrix_setmirror mat (list (car box)
(cadr box)
)
)
)
(setq ss1 (xdrx_entity_transformedcopy ss mat1))
(xdrx_entity_transformedcopy (list ss1 ss) mat2)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:xdtb_regmirror ( / box mat mat1 mat2 op ss ss1) 
  (xdrx_begin) 
  (if (not (xd::symbol:get '#xd_global_var_mirror_options)) 
    (xd::symbol:put '#xd_global_var_mirror_options "A") 
  ) 
  (if (and 
        (xdrx_prompt "\n选取镜像的实体<退出>:") 
        (setq ss (ssget)) 
        (progn 
          (initget "A W D S X") 
          (xdrx_initget "A W D S X") 
        ) 
        (if (setq op (getkword (xdrx_prompt "\n镜像选项[左(A)/右(D)/上(W)/下(X)/四象限(S)<" 
                                            (xd::symbol:get '#xd_global_var_mirror_options) 
                                            ">:" t 
                               ) 
                     ) 
            ) 
          (xd::symbol:put '#xd_global_var_mirror_options op) 
          (setq op (xd::symbol:get '#xd_global_var_mirror_options)) 
        ) 
      ) 
    (progn 
      (setq box (xdrx_entity_box ss) 
            mat (xdrx_matrix_identity 3) 
      ) 
      (if (/= "S" op) 
        (progn 
          (cond 
            ((= op "A") 
              (setq mat (xdrx_matrix_setmirror mat (list (car box) 
                                                         (last box) 
                                                   ) 
                        ) 
              ) 
            ) 
            ((= op "W") 
              (setq mat (xdrx_matrix_setmirror mat (list (last box) 
                                                         (caddr box) 
                                                   ) 
                        ) 
              ) 
            ) 
            ((= op "D") 
              (setq mat (xdrx_matrix_setmirror mat (list (cadr box) 
                                                         (caddr box) 
                                                   ) 
                        ) 
              ) 
            ) 
            ((= op "X") 
              (setq mat (xdrx_matrix_setmirror mat (list (car box) 
                                                         (cadr box) 
                                                   ) 
                        ) 
              ) 
            ) 
          ) 
          (xdrx_entity_transformedcopy ss mat) 
        ) 
        (progn 
          (setq mat1 (xdrx_matrix_setmirror mat (list (cadr box) 
                                                      (caddr box) 
                                                ) 
                     ) 
                mat2 (xdrx_matrix_setmirror mat (list (car box) 
                                                      (cadr box) 
                                                ) 
                     ) 
          ) 
          (setq ss1 (xdrx_entity_transformedcopy ss mat1)) 
          (xdrx_entity_transformedcopy (list ss1 ss) mat2) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

[/it618postdisplay]

cjg691622 · 发表于 2016-10-4 08:44:42

测试一下。

jiantou · 发表于 2016-10-5 23:49:01

下载来用一用

lmq321 · 发表于 2016-10-21 22:25:00

hnnnhnjnmhj mnh m m m mhn m

xzs16 · 发表于 2016-10-22 09:48:07

我来测试一下，行不行

yangbaoshun · 发表于 2017-1-8 19:21:58

好东西啊虽然简单但可以提高效率

star19901219 · 发表于 2017-1-13 15:01:31

来看看是不是

1028882406@qq.c · 发表于 2017-3-1 13:34:11

谢谢楼主。顶一下

点灯 · 发表于 2017-3-20 21:07:59

确实是难得好帖啊，顶先

sicky111 · 发表于 2017-3-22 00:11:54

啥也不说了，感谢楼主分享哇！

qql7600 · 发表于 2017-3-22 09:37:40

你好，能分享一下吗？

hiONE · 发表于 2017-5-2 19:38:14

试用一下。。看看我是否需要

luorui2000 · 发表于 2017-5-7 21:30:01

挺有意思，谢谢

671609719845 · 发表于 2017-6-19 16:18:02

桂林来看看,,,,你这个很好用

ABC2016 · 发表于 2017-6-20 08:24:43

赞！！！！！！！！！！！！！！！！！！！！！！！！

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

[工具] 规则镜像插件

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