原地镜像180度，看有没有大神帮忙出手

999999

求助各位大神，看有空是否可以实现原地180度镜像，图片及附件已上传
1.选择文件
2.空格（以文件左右之间的中心镜像180度）如图片所式

表骑马实开车

2. 
   
3. (vl-load-com)
   
4. (defun c:tt (/ os ss box ssmid p3)
   
5.   (setq os (getvar "osmode"))
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "osmode" 0)
   
8.   (if (setq ss (ssget))
   
9.     (progn
   
10.       (setq box          (LM:ssboundingbox ss)
    
11.             ssmid (mapcar '*
    
12.                           (mapcar '+ (car box) (cadr box))
    
13.                           '(0.5 0.5 0.5)
    
14.                   )
    
15.             p3          (polar ssmid (* 1.5 pi) 10)
    
16.       )
    
17.       (command "mirror" ss "" ssmid p3 "y")
    
18.     )
    
19.   )
    
20.   (setvar "osmode" os)
    
21.   (setvar "cmdecho" 1)
    
22.   (princ)
    
23. )
    
24. 
    
25. 
    
26. ;; 选择集边界框 - Lee Mac
    
27. ;; 返回一个列表的左下角和右上角的 WCS 坐标
    
28. ;; 包围提供的选择集中所有对象的矩形框。
    
29. ;; sel - [sel] 返回边界框的选择集
    
30. (defun LM:ssboundingbox        (sel / idx llp ls1 ls2 obj urp)
    
31.   (repeat (setq idx (sslength sel))
    
32.     (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
    
33.     (if        (and (vlax-method-applicable-p obj 'getboundingbox)
    
34.              (not (vl-catch-all-error-p
    
35.                     (vl-catch-all-apply
    
36.                       'vla-getboundingbox
    
37.                       (list obj 'llp 'urp)
    
38.                     )
    
39.                   )
    
40.              )
    
41.         )
    
42.       (setq ls1        (mapcar        'min
    
43.                         (vlax-safearray->list llp)
    
44.                         (cond (ls1)
    
45.                               ((vlax-safearray->list llp))
    
46.                         )
    
47.                 )
    
48.             ls2        (mapcar        'max
    
49.                         (vlax-safearray->list urp)
    
50.                         (cond (ls2)
    
51.                               ((vlax-safearray->list urp))
    
52.                         )
    
53.                 )
    
54.       )
    
55.     )
    
56.   )
    
57.   (if (and ls1 ls2)
    
58.     (list ls1 ls2)
    
59.   )
    
60. )
    

<br /> (vl-load-com)<br /> (defun c:tt (/ os ss box ssmid p3)<br />   (setq os (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq box          (LM:ssboundingbox ss)<br />             ssmid (mapcar '*<br />                           (mapcar '+ (car box) (cadr box))<br />                           '(0.5 0.5 0.5)<br />                   )<br />             p3          (polar ssmid (* 1.5 pi) 10)<br />       )<br />       (command "mirror" ss "" ssmid p3 "y")<br />     )<br />   )<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> <br /> <br /> ;; 选择集边界框 - Lee Mac<br /> ;; 返回一个列表的左下角和右上角的 WCS 坐标<br /> ;; 包围提供的选择集中所有对象的矩形框。<br /> ;; sel - [sel] 返回边界框的选择集<br /> (defun LM:ssboundingbox        (sel / idx llp ls1 ls2 obj urp)<br />   (repeat (setq idx (sslength sel))<br />     (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))<br />     (if        (and (vlax-method-applicable-p obj 'getboundingbox)<br />              (not (vl-catch-all-error-p<br />                     (vl-catch-all-apply<br />                       'vla-getboundingbox<br />                       (list obj 'llp 'urp)<br />                     )<br />                   )<br />              )<br />         )<br />       (setq ls1        (mapcar        'min<br />                         (vlax-safearray->list llp)<br />                         (cond (ls1)<br />                               ((vlax-safearray->list llp))<br />                         )<br />                 )<br />             ls2        (mapcar        'max<br />                         (vlax-safearray->list urp)<br />                         (cond (ls2)<br />                               ((vlax-safearray->list urp))<br />                         )<br />                 )<br />       )<br />     )<br />   )<br />   (if (and ls1 ls2)<br />     (list ls1 ls2)<br />   )<br /> )<br />

一个旋转180° ，一个是旋转0°才能达到要求

fangmin723

CAD自带的镜像不好用吗？？

liunian0524

论坛好像有

ssyfeng

你这说的好像不是很清楚，第一个图应该是以Y轴镜像的，第二个图应该是以x轴镜像的。
你说的图层是特定图层吗？某个图层就以Y轴镜像，某个图层就以X轴镜像？

小毛草

另的网友写的，你看下是不是要这样？

(defun c:MMI (/  cmn osn  ss i n ssn ssndata ssnsty pt ptmin ptmax cenpt
        *error* msg)
  (defun *error* (msg)
    (if
      (wcmatch msg "; 错误:,函数被取消")
       (progn
   (setvar 'cmdecho cmn)
   (setvar 'osmode osn)
   (princ)
       )
       (princ msg)
    )
  )
  (setq cmn (getvar 'cmdecho))
  (setq osn (getvar 'osmode))
  (setvar 'cmdecho 0)
  (setvar 'osmode 0)
  (princ"\n选择要原地反转的对象：")
  (setq ss (ssget ))
  (setq i 0)
  (setq n (sslength ss))
  (repeat n
    (setq ssn (vlax-ename->vla-object (ssname ss i)))
    (vla-GetBoundingBox ssn 'ptmax 'ptmin)
    (setq pt (mapcar '(lambda (a b) (/ (+ a b) 2))
         (vlax-safearray->list ptmax)
         (vlax-safearray->list ptmin)
       )
    )
    (vlax-invoke-method
      ssn
      'rotate
      (vlax-3d-point pt)
      pi
    )
    (setq i (1+ i))
  )
  (command "ucs" "")
  (setvar 'cmdecho cmn)
  (setvar 'osmode osn)
  (princ "\n命令：MMI")
  (princ)
)

xyp1964

p-3-ianlcc

小毛草 发表于 2023-3-8 11:02
另的网友写的，你看下是不是要这样？

(defun c:MMI (/  cmn osn  ss i n ssn ssndata ssnsty pt ptmin ...

这个试用了一下
感觉好象是旋转180°
应该不是镜像

999999

fangmin723 发表于 2023-3-8 07:44
CAD自带的镜像不好用吗？？

自带的镜像好用呀，就是要自己定义中心线原地镜像，我就是想输入命令直接让它镜个像，就不用自己定义镜像的两点了呢

999999

小毛草 发表于 2023-3-8 11:02
另的网友写的，你看下是不是要这样？

(defun c:MMI (/  cmn osn  ss i n ssn ssndata ssnsty pt ptmin ...

这个效果不是我想要的那种哦，谢谢您