快速镜像（试过才知道）

ddisddis

谢谢楼主分享，下载试试

有123

看起来挺不错的

adc

编译的那个能不能加个出错处理，操作过程中esc取消时捕捉方式不能恢复原来的，多谢了，给你加分。

朽木大师

留个记号，以后学习

lifenwei

镜像后删除源图，请问如何修改？

xyp1964

;; 也玩镜像

2. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url] 访问密码 2ffa;; 镜像
   
3. (defun c:tt ()
   
4.   (prompt "\n请选择要镜像的对象: ")
   
5.   (if (and (setq ss (ssget))
   
6.            (setq e1 (entsel "\n选择镜像直线: "))
   
7.       )
   
8.     (progn
   
9.       (setq s0 (car e1)
   
10.             pt (cadr e1)
    
11.             pt (osnap pt "nea")
    
12.       )
    
13.       (cond ((xyp-etype s0 "line")
    
14.              (setq p1 (xyp-DXF 10 s0)
    
15.                    p2 (xyp-DXF 11 s0)
    
16.              )
    
17.              (xyp-Mirror ss p1 p2 nil)
    
18.             )
    
19.             ((xyp-etype s0 "*polyline")
    
20.              (setq ptn (xyp-Get-Pts&Pte e1)
    
21.                    p1 (car ptn)
    
22.                    p2 (cadr ptn)
    
23.              )
    
24.              (xyp-Mirror ss p1 p2 nil)
    
25.             )
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    

;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url] 访问密码 2ffa;; 镜像<br /> (defun c:tt ()<br />   (prompt "\n请选择要镜像的对象: ")<br />   (if (and (setq ss (ssget))<br />            (setq e1 (entsel "\n选择镜像直线: "))<br />       )<br />     (progn<br />       (setq s0 (car e1)<br />             pt (cadr e1)<br />             pt (osnap pt "nea")<br />       )<br />       (cond ((xyp-etype s0 "line")<br />              (setq p1 (xyp-DXF 10 s0)<br />                    p2 (xyp-DXF 11 s0)<br />              )<br />              (xyp-Mirror ss p1 p2 nil)<br />             )<br />             ((xyp-etype s0 "*polyline")<br />              (setq ptn (xyp-Get-Pts&Pte e1)<br />                    p1 (car ptn)<br />                    p2 (cadr ptn)<br />              )<br />              (xyp-Mirror ss p1 p2 nil)<br />             )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

杜阳

院长的很美啊  院长的代码有几个叠加呢  一个一个函数的学习   有才啊

CHEN123456

都不错！我一直在找快速镜像！

664571221

源码能给个吗

xj6019

先留下 等有空的时候试试，看着很不错哦，应该实用