【工具】批量图元原地镜像（以自身的几何中心）

marting · 发表于 2020-6-27 02:31:17

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

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

×

本帖最后由 newer 于 2020-6-27 09:34 编辑

(defun c:xdtb_mirrori (/ ss p1 p2 x t1 t2 mat)
(if (setq ss
(xdrx-ssget
"\n*** 图元原地镜像(以自身的几何中心) ***\n选择要镜像的对象<退出>:"
)
)
(progn
(xdrx-begin)
(if (and (xdrx-initget "X Y")
(setq p1
(getpoint
(xdrx-prompt "\n镜像方向线第一点[(X)轴/(Y)轴]: <Y>" t)
)
)
)
(progn
(cond
((= p1 "X") (setq v (getvar "ucsxdir")))
((= p1 "Y") (setq v (getvar "ucsydir")))
((= (type p1) 'list)
(if (setq p2 (getpoint p1 "\n镜像方向线第二点<退出>:"))
(setq v (xdrx-vector-normalize (mapcar '- (trans p2 1 0)(trans p1 1 0))))
)
)
)
)
(setq v (getvar "ucsydir"))
)
(if v
(progn (mapcar '(lambda (x)
(setq mat
(xdrx-matrix-setmirror
(list (setq t1 (trans (xd::geom:get9pt x 5) 1 0))
(mapcar '+ t1 v)
)
)
)
(xdrx-entity-transform x mat)
)
(xdrx-pickset->ents ss)
)
)
)
(xdrx-end)
)
)
(princ)
)

(defun c:xdtb_mirrori (/ ss p1 p2 x t1 t2 mat) 
  (if (setq ss 
             (xdrx-ssget 
               "\n*** 图元原地镜像(以自身的几何中心) ***\n选择要镜像的对象<退出>:" 
             ) 
      ) 
    (progn 
      (xdrx-begin) 
      (if (and (xdrx-initget "X Y") 
               (setq p1 
                      (getpoint 
                        (xdrx-prompt "\n镜像方向线第一点[(X)轴/(Y)轴]: <Y>" t) 
                      ) 
               ) 
          ) 
        (progn 
          (cond 
            ((= p1 "X") (setq v (getvar "ucsxdir"))) 
            ((= p1 "Y") (setq v (getvar "ucsydir"))) 
            ((= (type p1) 'list) 
             (if (setq p2 (getpoint p1 "\n镜像方向线第二点<退出>:")) 
               (setq v (xdrx-vector-normalize (mapcar '- (trans p2 1 0)(trans p1 1 0)))) 
             ) 
            ) 
          ) 
        ) 
        (setq v (getvar "ucsydir")) 
      ) 
      (if v 
        (progn (mapcar '(lambda        (x) 
                          (setq        mat 
                                 (xdrx-matrix-setmirror 
                                   (list (setq t1 (trans (xd::geom:get9pt x 5) 1 0)) 
                                         (mapcar '+ t1 v) 
                                   ) 
                                 ) 
                          ) 
                          (xdrx-entity-transform x mat) 
                        ) 
                       (xdrx-pickset->ents ss) 
               ) 
        ) 
      ) 
      (xdrx-end) 
    ) 
  ) 
  (princ) 
)

tzfcn · 发表于 2020-6-27 12:18:27

这个插件可以学会不少命令

君是我的泪 · 发表于 2020-10-23 10:41:54

本帖最后由君是我的泪于 2020-10-23 10:56 编辑

导入文件夹内所有文件，同时能有顺序进行几次旋转或者镜像操作，在另存为文件吗？请看一下我最近的帖子。

武林高高手 · 发表于 2020-10-24 13:11:08

松树石头哥 · 发表于 2020-10-25 15:54:55

FGLG1980 · 发表于 2020-11-10 15:17:35

没有反应
没有反应

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

[工具] 【工具】批量图元原地镜像（以自身的几何中心）

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