自己用的mirror

hoodpinrh

(princ "\n選取物件：" )
(setq mi_ss(ssget))
(setq en(entsel "\n選取左右鏡射的水平線or垂直鏡射的垂直線："))
(setq pts(cadr en))
(setq mpt(osnap pts "_mid"))


(command "_.MIRROR" mi_ss "" mpt "@0,10" "_N")


(command "_.MIRROR" mi_ss "" mpt "@10,0" "_N")


最後兩個command我正在想要加入判斷式進去，有人有比較好的方法判斷嗎?
我從事的工作是雷射板金展開，鏡射這指令基本都是不用不行。
想把鏡射指令用的更簡單就好

kucha007

水平OR垂直镜像，加了循环可以一直选对象

2. (defun c:TT (/ ss pt1 pt2)
   
3.     (while
   
4.       (defun *error* ( msg );定义出错函数
   
5.         (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
   
6.           (progn
   
7.             (princ (strcat "\n错误: " msg))
   
8.             (command "redraw")
   
9.             (princ)
   
10.           )
    
11.         )
    
12.       )
    
13.       (if (ssget "i")
    
14.           (setq ss (ssget))
    
15.           (progn
    
16.               (princ "\n→请选择需镜像的对象：")
    
17.               (setq ss (ssget))
    
18.           )
    
19.       )
    
20.       (if ss
    
21.         (progn
    
22.           (if (not tymir)(setq tymir 1)) ;1垂直,-1统一
    
23.           (setq pt1 "S")
    
24.           (while (= pt1 "S");取值
    
25.               (initget "S s")
    
26.               (if (= "S" (setq pt1 (getpoint (strcat "\n→请选择("(if (= tymir 1) "垂直" "水平")")轴上的点""：[切换S]"))))
    
27.                   (setq tymir (* -1 tymir)) ;1/-1
    
28.               )
    
29.           )
    
30.           (if pt1
    
31.             (progn
    
32.                 (if (= tymir 1)
    
33.                     (setq pt2 (list (+ (car pt1) 0) (+ (cadr pt1) 10000)))
    
34.                     (setq pt2 (list (+ (car pt1) 10000) (+ (cadr pt1) 0)))
    
35.                 )
    
36.                 (command "_.MIRROR" ss "" pt1 pt2 "N")
    
37.             )
    
38.           )
    
39.         )
    
40.       )
    
41.       (command "redraw")
    
42.       (princ)
    
43.     )
    
44. )

(defun c:TT (/ ss pt1 pt2) <br />     (while<br />       (defun *error* ( msg );定义出错函数<br />         (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))<br />           (progn<br />             (princ (strcat "\n错误: " msg))<br />             (command "redraw")<br />             (princ)<br />           )<br />         )<br />       )<br />       (if (ssget "i")<br />           (setq ss (ssget))<br />           (progn<br />               (princ "\n→请选择需镜像的对象：")<br />               (setq ss (ssget))<br />           )<br />       )<br />       (if ss<br />         (progn<br />           (if (not tymir)(setq tymir 1)) ;1垂直,-1统一<br />           (setq pt1 "S")<br />           (while (= pt1 "S");取值<br />               (initget "S s")<br />               (if (= "S" (setq pt1 (getpoint (strcat "\n→请选择("(if (= tymir 1) "垂直" "水平")")轴上的点""：[切换S]"))))<br />                   (setq tymir (* -1 tymir)) ;1/-1<br />               )<br />           )<br />           (if pt1<br />             (progn<br />                 (if (= tymir 1)<br />                     (setq pt2 (list (+ (car pt1) 0) (+ (cadr pt1) 10000)))<br />                     (setq pt2 (list (+ (car pt1) 10000) (+ (cadr pt1) 0)))<br />                 )<br />                 (command "_.MIRROR" ss "" pt1 pt2 "N")<br />             )<br />           )<br />         )<br />       )<br />       (command "redraw")<br />       (princ)<br />     )<br /> )

kucha007

练习了一下，写了个快速镜像。可以预选对象，对称轴取的是经过所选对称轴起点和终点的直线(选圆弧或者多段线也是)。
不过我没太理解， 你是只要在水平或者垂直方向上镜像吗？

1. (defun c:TT (/ obj pt1 pt2)
   
2.     (vl-load-com)
   
3.     (if (ssget "i")
   
4.         (setq ss (ssget))
   
5.         (progn
   
6.             (princ "\n→请选择需镜像的对象：")
   
7.             (setq ss (ssget))
   
8.         )
   
9.     )
   
10.     (setq obj (vlax-ename->vla-object (car (entsel "\n→请选择对称轴："))))
    
11.     (setq pt1 (vlax-curve-getStartPoint obj)
    
12.           pt2 (vlax-curve-getEndPoint obj)
    
13.     )
    
14.     (command "_.MIRROR" ss "" (trans pt1 0 1) (trans pt2 0 1) "N")
    
15.     (princ)
    
16. )

(defun c:TT (/ obj pt1 pt2) <br />     (vl-load-com)<br />     (if (ssget "i")<br />         (setq ss (ssget))<br />         (progn<br />             (princ "\n→请选择需镜像的对象：")<br />             (setq ss (ssget))<br />         )<br />     )<br />     (setq obj (vlax-ename->vla-object (car (entsel "\n→请选择对称轴："))))<br />     (setq pt1 (vlax-curve-getStartPoint obj)<br />           pt2 (vlax-curve-getEndPoint obj)<br />     )<br />     (command "_.MIRROR" ss "" (trans pt1 0 1) (trans pt2 0 1) "N")<br />     (princ)<br /> )

hoodpinrh

kucha007 发表于 2022-12-4 23:42
水平OR垂直镜像，加了循环可以一直选对象

我要好好的消化一下你的程序，
有很多像我不知道的 if 後面不是都是三個符號都是 < 、= 、> 嗎？
原來還可以像你這樣用，我又進化了一大步。
我還有一大堆內亂七八糟的想法跟程序內，要不加好友丟給你玩玩吧。

ZYX2129

谢谢大佬的分享！！！！

hoodpinrh

是的   我要的只是線的部分，80%基本都碰到水平垂直的直線比較多。   有斜度的話我目前沒想到要怎麼做。但我會參考李麥克先生的做法的

hoodpinrh

kucha007 发表于 2022-12-4 20:40
练习了一下，写了个快速镜像。可以预选对象，对称轴取的是经过所选对称轴起点和终点的直线(选圆弧或者多段 ...

(setq obj (vlax-ename->vla-object (car (entsel "\n→请选择对称轴："))))
原來還可以這樣組合，我一直沒發現到。
感謝你

kucha007

hoodpinrh 发表于 2022-12-4 22:07
(setq obj (vlax-ename->vla-object (car (entsel "\n→请选择对称轴："))))
原來還可以這樣組合，我一 ...

现在就是需要选线作为对称轴，线是水平就是水平镜像咯，线是斜的也就斜着镜像了

hoodpinrh

kucha007 发表于 2022-12-4 23:42
水平OR垂直镜像，加了循环可以一直选对象

太專業了  真的
我剛也在想要怎麼做循環說

kucha007

hoodpinrh 发表于 2022-12-4 23:54
太專業了  真的
我剛也在想要怎麼做循環說

当练习写的，互相学习。镜像类型是我作为全局变量了，可能会方便一些

hoodpinrh

kucha007 发表于 2022-12-4 23:57
当练习写的，互相学习。镜像类型是我作为全局变量了，可能会方便一些

簡單方便就好
時間可以省下很多了
這樣我又可以有多的時間想東想西了