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

marting

1. (defun c:xdtb_mirrori (/ ss p1 p2 x t1 t2 mat)
   
2.   (if (setq ss
   
3.              (xdrx-ssget
   
4.                "\n*** 图元原地镜像(以自身的几何中心) ***\n选择要镜像的对象<退出>:"
   
5.              )
   
6.       )
   
7.     (progn
   
8.       (xdrx-begin)
   
9.       (if (and (xdrx-initget "X Y")
   
10.                (setq p1
    
11.                       (getpoint
    
12.                         (xdrx-prompt "\n镜像方向线第一点[(X)轴/(Y)轴]: <Y>" t)
    
13.                       )
    
14.                )
    
15.           )
    
16.         (progn
    
17.           (cond
    
18.             ((= p1 "X") (setq v (getvar "ucsxdir")))
    
19.             ((= p1 "Y") (setq v (getvar "ucsydir")))
    
20.             ((= (type p1) 'list)
    
21.              (if (setq p2 (getpoint p1 "\n镜像方向线第二点<退出>:"))
    
22.                (setq v (xdrx-vector-normalize (mapcar '- (trans p2 1 0)(trans p1 1 0))))
    
23.              )
    
24.             )
    
25.           )
    
26.         )
    
27.         (setq v (getvar "ucsydir"))
    
28.       )
    
29.       (if v
    
30.         (progn (mapcar '(lambda        (x)
    
31.                           (setq        mat
    
32.                                  (xdrx-matrix-setmirror
    
33.                                    (list (setq t1 (trans (xd::geom:get9pt x 5) 1 0))
    
34.                                          (mapcar '+ t1 v)
    
35.                                    )
    
36.                                  )
    
37.                           )
    
38.                           (xdrx-entity-transform x mat)
    
39.                         )
    
40.                        (xdrx-pickset->ents ss)
    
41.                )
    
42.         )
    
43.       )
    
44.       (xdrx-end)
    
45.     )
    
46.   )
    
47.   (princ)
    
48. )
    
49. 
    

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

tzfcn

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

君是我的泪

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

武林高高手

松树石头哥

FGLG1980

没有反应
没有反应