效果杠杠的，就是这个意思 表骑马实开车 发表于 2023-3-8 11:37
一个旋转180° ，一个是旋转0°才能达到要求
就是这个效果，非常的棒，谢谢大神 liunian0524 发表于 2023-3-8 08:09
论坛好像有
就是找了没有看到呢 (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 于 2023-3-8 21:34 编辑
999999 发表于 2023-3-8 16:03
效果杠杠的，就是这个意思
(defun c:tt ()
"原地镜像"
(xyp-Start)
(setq kw (Ukword 1 "1 2" "镜像轴: " kw))
(setq i -1)
(if (setq ss (ssget '((0 . "lw*") (8 . "Y2") (90 . 4) (70 . 1))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p5 (xyp-9pt s1 5)
ss1 (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9))
p5a (if (= kw "1")
(polar p5 0 10)
(polar p5 (* pi 0.5) 10)
)
aa(xyp-Mirror ss1 p5 p5a t)
)
)
)
(xyp-End)
)
我试了，那个就是镜像 我试了一下，那个是镜像
页:
1
[2]