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

999999

xyp1964 发表于 2023-3-8 11:31

效果杠杠的，就是这个意思

999999

表骑马实开车 发表于 2023-3-8 11:37
一个旋转180° ，一个是旋转0°才能达到要求

就是这个效果，非常的棒，谢谢大神

999999

liunian0524 发表于 2023-3-8 08:09
论坛好像有

就是找了没有看到呢

kwok

(defun c:IK ( / p1 p2);;;垂直镜像
(if (and (setq ss (ssget ))
         (setq p1 (getpoint "\n镜像点: "))
         (setq p2 (polar p1 (* pi 0.5) 2)) )
  (command "_.mirror" ss "" "non" p1 "non" p2 "y") )(princ))
(defun c:IL ( / p1 p2);;;上下横向镜像
(if (and (setq ss (ssget ))
         (setq p1 (getpoint "\n镜像点: "))
         (setq p2 (polar p1 (* pi 1) 2)) )
  (command "_.mirror" ss "" "non" p1 "non" p2 "y") )(princ))

xyp1964

999999 发表于 2023-3-8 16:03
效果杠杠的，就是这个意思

1. (defun c:tt ()
   
2.   "原地镜像"
   
3.   (xyp-Start)
   
4.   (setq kw (Ukword 1 "1 2" "镜像轴: [X轴(1)/Y轴(2)]" kw))
   
5.   (setq i -1)
   
6.   (if (setq ss (ssget '((0 . "lw*") (8 . "Y2") (90 . 4) (70 . 1))))
   
7.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.       (setq p5 (xyp-9pt s1 5)
   
9.             ss1 (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9))
   
10.             p5a (if (= kw "1")
    
11.                   (polar p5 0 10)
    
12.                   (polar p5 (* pi 0.5) 10)
    
13.                 )
    
14.             aa(xyp-Mirror ss1 p5 p5a t)
    
15.       )
    
16.     )
    
17.   )
    
18.   (xyp-End)
    
19. )

(defun c:tt ()<br />   "原地镜像"<br />   (xyp-Start)<br />   (setq kw (Ukword 1 "1 2" "镜像轴: [X轴(1)/Y轴(2)]" kw))<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "lw*") (8 . "Y2") (90 . 4) (70 . 1))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p5 (xyp-9pt s1 5)<br />             ss1 (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9))<br />             p5a (if (= kw "1")<br />                   (polar p5 0 10)<br />                   (polar p5 (* pi 0.5) 10)<br />                 )<br />             aa(xyp-Mirror ss1 p5 p5a t)<br />       )<br />     )<br />   )<br />   (xyp-End)<br /> )

999999

我试了，那个就是镜像

999999

我试了一下，那个是镜像