快速镜像（试过才知道）

yjr111

快速镜像（试过才知道）。。。有源码的仅能直线镜像，编译的可以用于多段线等（核心源码为平分线），我自己也不知道用哪一个好，上2张图片
1、对直线有效，快速镜像

2. (defun c:mirrmid (/ ss pt pt1)
   
3.   (setq oldosmode (getvar 'osmode))
   
4.   (setq oldorthomode (getvar 'orthomode))
   
5.   (setvar 'osmode 0)
   
6.   (setvar 'orthomode 0)
   
7.   (setvar 'cmdecho 0)
   
8.   (prompt "\n请选择要镜像的对象：")
   
9.   (if (setq s (ssget))
   
10.     (progn
    
11.       (setq n 0)
    
12.       (repeat (sslength s)
    
13.         (redraw (ssname s n) 3)
    
14.         (setq n (1+ n))
    
15.       )
    
16.       (prompt "\n请选择确定镜像的直线<小于2条>：")
    
17.       (if (setq ss (ssget '((0 . "LINE"))))
    
18.         (progn
    
19.           (setq n 0)
    
20.           (repeat (sslength s)
    
21.             (redraw (ssname s n) 4)
    
22.             (setq n (1+ n))
    
23.           )
    
24.           (cond
    
25.             ((= (sslength ss) 2)
    
26.              (setq p101        (cdr (assoc 10 (entget (ssname ss 0))))
    
27.                    p102        (cdr (assoc 10 (entget (ssname ss 1))))
    
28.                    p111        (cdr (assoc 11 (entget (ssname ss 0))))
    
29.                    p112        (cdr (assoc 11 (entget (ssname ss 1))))
    
30.                    p10        (polar p101
    
31.                                (angle p101 p102)
    
32.                                (/ (distance p101 p102) 2)
    
33.                         )
    
34.                    p11        (polar p111
    
35.                                (angle p111 p112)
    
36.                                (/ (distance p111 p112) 2)
    
37.                         )
    
38.              )
    
39.              (if (equal p10 p11 1e-3)
    
40.                (setq p10 (polar        p101
    
41.                                 (angle p101 p112)
    
42.                                 (/ (distance p101 p112) 2)
    
43.                          )
    
44.                      p11 (polar        p111
    
45.                                 (angle p111 p102)
    
46.                                 (/ (distance p111 p102) 2)
    
47.                          )
    
48.                )
    
49.              )
    
50.             )
    
51.             ((= (sslength ss) 1)
    
52.              (setq p10 (cdr (assoc 10 (entget (ssname ss 0))))
    
53.                    p11 (cdr (assoc 11 (entget (ssname ss 0))))
    
54.              )
    
55.             )
    
56.             ((> (sslength ss) 2)
    
57.              (alert "\n最多选择2根线!")
    
58.             )
    
59.           )
    
60.         )
    
61.       )
    
62.       (cond ((<= (sslength ss) 2)
    
63.              (command "_.mirror" s "" p10 p11)
    
64.              (command pause)
    
65.             )
    
66.       )
    
67.     )
    
68.   )
    
69.   (setvar 'osmode oldosmode)
    
70.   (setvar 'orthomode oldorthomode)
    
71.   (princ)
    
72. )

(defun c:mirrmid (/ ss pt pt1)<br />   (setq oldosmode (getvar 'osmode))<br />   (setq oldorthomode (getvar 'orthomode))<br />   (setvar 'osmode 0)<br />   (setvar 'orthomode 0)<br />   (setvar 'cmdecho 0)<br />   (prompt "\n请选择要镜像的对象：")<br />   (if (setq s (ssget))<br />     (progn<br />       (setq n 0)<br />       (repeat (sslength s)<br />         (redraw (ssname s n) 3)<br />         (setq n (1+ n))<br />       )<br />       (prompt "\n请选择确定镜像的直线<小于2条>：")<br />       (if (setq ss (ssget '((0 . "LINE"))))<br />         (progn<br />           (setq n 0)<br />           (repeat (sslength s)<br />             (redraw (ssname s n) 4)<br />             (setq n (1+ n))<br />           )<br />           (cond<br />             ((= (sslength ss) 2)<br />              (setq p101        (cdr (assoc 10 (entget (ssname ss 0))))<br />                    p102        (cdr (assoc 10 (entget (ssname ss 1))))<br />                    p111        (cdr (assoc 11 (entget (ssname ss 0))))<br />                    p112        (cdr (assoc 11 (entget (ssname ss 1))))<br />                    p10        (polar p101<br />                                (angle p101 p102)<br />                                (/ (distance p101 p102) 2)<br />                         )<br />                    p11        (polar p111<br />                                (angle p111 p112)<br />                                (/ (distance p111 p112) 2)<br />                         )<br />              )<br />              (if (equal p10 p11 1e-3)<br />                (setq p10 (polar        p101<br />                                 (angle p101 p112)<br />                                 (/ (distance p101 p112) 2)<br />                          )<br />                      p11 (polar        p111<br />                                 (angle p111 p102)<br />                                 (/ (distance p111 p102) 2)<br />                          )<br />                )<br />              )<br />             )<br />             ((= (sslength ss) 1)<br />              (setq p10 (cdr (assoc 10 (entget (ssname ss 0))))<br />                    p11 (cdr (assoc 11 (entget (ssname ss 0))))<br />              )<br />             )<br />             ((> (sslength ss) 2)<br />              (alert "\n最多选择2根线!")<br />             )<br />           )<br />         )<br />       )<br />       (cond ((<= (sslength ss) 2)<br />              (command "_.mirror" s "" p10 p11)<br />              (command pause)<br />             )<br />       )<br />     )<br />   )<br />   (setvar 'osmode oldosmode)<br />   (setvar 'orthomode oldorthomode)<br />   (princ)<br /> )

2、对直线多段线均有效

xj6019

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

sunny_8848

看起来很美，多谢大家的分享

etoxp

感觉是个很小众的功能

xiaxiang

呵呵，可否对选择集进行镜像？

功夫佬

有时候，很多的图在图档里面的时候，速度镜像实体，不知道为什么会跑得很远。

功夫佬

功夫佬

1. (defun c:lm(/ ss ent entlist b)
   
2.   (setvar "CMDECHO" 0)
   
3.   (setq ss(ssget "i" ))
   
4.   (if (not ss)
   
5.     (setq ss(ssget))
   
6.     )
   
7.   (if ss
   
8.     (progn
   
9.       (setq ent(entsel "\n选择做为镜像线的直线:" ))
   
10.       (command "ucs" "w")
    
11.       (if ent
    
12.         (progn
    
13.           (setq entlist(entget(car ent)))
    
14.           (if (= (cdr(assoc 0 entlist)) "LINE" )
    
15.             (progn
    
16.               (initget "y n" )
    
17.               (setq b(getkword "\n要删除源对象吗？[是(Y)/否(N)] <N>:" ))
    
18.               (if (not b)
    
19.                 (setq b "n" )
    
20.                 )
    
21.               (setvar "CMDECHO" 0)
    
22.               (command "mirror" ss "" (cdr(assoc 10 entlist)) (cdr(assoc 11 entlist)) b)
    
23.         (command "ucs" "p")
    
24.               (setvar "CMDECHO" 1)
    
25.               )
    
26.             )
    
27.           )
    
28.         )
    
29.       )
    
30.     )
    
31.   (princ)
    
32.   )

(defun c:lm(/ ss ent entlist b)<br />   (setvar "CMDECHO" 0)<br />   (setq ss(ssget "i" ))<br />   (if (not ss)<br />     (setq ss(ssget))<br />     )<br />   (if ss<br />     (progn<br />       (setq ent(entsel "\n选择做为镜像线的直线:" ))<br />       (command "ucs" "w")<br />       (if ent<br />         (progn<br />           (setq entlist(entget(car ent)))<br />           (if (= (cdr(assoc 0 entlist)) "LINE" )<br />             (progn<br />               (initget "y n" )<br />               (setq b(getkword "\n要删除源对象吗？[是(Y)/否(N)] <N>:" ))<br />               (if (not b)<br />                 (setq b "n" )<br />                 )<br />               (setvar "CMDECHO" 0)<br />               (command "mirror" ss "" (cdr(assoc 10 entlist)) (cdr(assoc 11 entlist)) b)<br />         (command "ucs" "p")<br />               (setvar "CMDECHO" 1)<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   (princ)<br />   )

功夫佬

功夫佬 发表于 2012-4-15 21:35

除了(command "ucs" "w")
还有别的方法吗？楼下的.

kwok

daidong013

参考！

能少一步就更好了！在选择确定镜像的直线后不用回车自动镜像就更快一点！~~

T_T

我都搞了一个平行中分的，http://bbs.mjtd.com/thread-91751-1-1.html
http://bbs.mjtd.com/forum.php?mod=attachment&aid=NjYxNzV8MTIxYWEzNDhkNzc3MzE2OTQ4M2I5NWE0ZjQwN2I1ZjJ8MTczMjMwMTc5OA%3D%3D&request=yes&_f=.gif



PL线只能用原的镜像一样了，

F3117021

非常感谢非常感谢非常感谢非常感谢非常感谢非常感谢