[求助]镜像后如何不改变文字的相对关系？

XIAOFEILONG

几列文字，镜像后，相对的顺序就完全反了

如图一的情况

 

想请教，有无办法，使得镜像后变成图二的情况？也就是说原来的文字的相对位置不改变的情况

xhq1954425

好像没有直接办法，文字部分是不是可以用复制解决？

AMTONNY

是有一个变量设置的，不过我也找不到了，你看看CAD帮助吧

lenlenq

改系统变量是不行的（mirrtext)

直线镜像，文字复制

xyp1964

 

xhq1954425

xyp1964版主的动画演示好像不能满足楼主的要求？

zark

相对位置不变，还叫镜像？直接复制吧

 

13579

我们专业有特殊需求，这样来的更方便

Gu_xl

3. (defun c:Mr (/ gxl-MidPoint gxl-GetssBox )
4.   (defun gxl-GetssBox (ss / maxpt maxptlst minpt minptlst obj x ss1)
5.   (setq ss1 (gxl-Sel-SS->List ss))
6.   (foreach x ss1
7.     (setq obj (vlax-ename->vla-object x))
8.     ;(setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
9.     ;(setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
10.     (vla-GetBoundingBox Obj 'minpt 'maxpt) ; 得到包围框
11.     (setq minPt (vlax-safearray->list minPt))
12.     (setq maxPt (vlax-safearray->list maxPt))
13.     (setq minPtlst (append minPtlst (list minPt)))
14.     (setq maxPtlst (append maxPtlst (list maxPt)))
15.   ) ;_ 结束foreach
16.   (setq minPt (list (apply 'min (mapcar 'car minPtlst))
17.       (apply 'min (mapcar 'cadr minPtlst))
18.       0
19.        ) ;_ 结束list
20.   ) ;_ 结束setq
21.   (setq maxPt (list (apply 'max (mapcar 'car maxPtlst))
22.       (apply 'max (mapcar 'cadr maxPtlst))
23.       0
24.        ) ;_ 结束list
25.   ) ;_ 结束setq
26.   ;(command "rectang" minPt maxPt)
27. (list minPt maxPt)
28. )
29.   (defun gxl-MidPoint (p1 p2)
30.   (if (> 2 (length p1))
31.       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))) (* 0.5 (+ (caddr p1) (caddr p2))))
32.       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))))
33.   )  
34.   )
35.   (defun gxl-Sel-SS->List (ss / cs_i out)
36.   (if (= (type ss) 'PICKSET)
37.     (progn
38.       (setq cs_i 0.0
39.      out  '()
40.       )
41.       (repeat (sslength ss)
42. (setq out (cons (ssname ss cs_i) out))
43. (setq cs_i (1+ cs_i))
44.       )
45.       (setq out (reverse out))
46.     )
47.   )
48. )
49.   (defun gxl-getbox (e1 / obj minpoint maxpoint)
50.   (if (= 'ENAME (type e1))
51.   (setq obj (vlax-ename->vla-object e1)) ;转换图元名
52.     (setq obj e1)
53.     )
54.   (vla-GetBoundingBox obj 'minpoint 'maxpoint)
55.      ;取得包容图元的最大点和最小点
56.   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
57.   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
58.   ;;(command "box" minpoint maxpoint 2)
59.   (setq obj (list minpoint maxpoint))
60. )
61.   (setq oldosmode (getvar "osmode"))
62.   (setvar "osmode" 0)
63.   (princ "\n选择要镜像的物体：")
64.   (setq ss (ssget))
65.   (if ss
66.     (progn
67.       (setq pt1(getpoint "\n指定镜像线的第一点:")
68.      pt2 (getpoint pt1 "\n指定镜像线的第二点:")
69.      )
70.       (command "line" pt1 pt2 "")
71.     (setq line (entlast))
72.       (initget 7 "Yes No  ")
73.       (setq kd (getkword "\n是否删除源对象?[是<Yes>/否<No>]否<No>"))
74.       (if (= kd "") (setq kd "No"))
75.       (setq nn (sslength ss)
76.      n 0)
77.       ;|
78.       (repeat nn
79.       (setq pl (GXL-GETBOX (setq en (ssname ss n))))
80.       (setq pt (GXL-MIDPOINT (car pl) (cadr pl)))
81.       (setq mpt (vlax-curve-getclosestpointto line pt t))
82.       (setq ang (angle pt mpt))
83.       (command "copy" en "" pt (polar pt ang (* 2 (distance pt mpt))))
84.       
85.       (if (= kd "Yes") (command "erase" en ""))
86. (setq n (1+ n))
87. )|;
88.       (setq pl (gxl-GetssBox ss))
89.       (setq pt (GXL-MIDPOINT (car pl) (cadr pl)))
90.       (setq mpt (vlax-curve-getclosestpointto line pt t))
91.       (setq ang (angle pt mpt))
92.       (command "copy" ss "" pt (polar pt ang (* 2 (distance pt mpt))))
93.       
94.       (if (= kd "Yes") (command "erase" ss ""))
95.       
96.       )
97.       
98.     )
99.   (entdel line)
100.   (setvar "osmode" oldosmode)
101.   )

(defun c:Mr (/ gxl-MidPoint gxl-GetssBox )   (defun gxl-GetssBox (ss / maxpt maxptlst minpt minptlst obj x ss1)   (setq ss1 (gxl-Sel-SS->List ss))   (foreach x ss1     (setq obj (vlax-ename->vla-object x))     ;(setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))     ;(setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2)))     (vla-GetBoundingBox Obj 'minpt 'maxpt) ; 得到包围框     (setq minPt (vlax-safearray->list minPt))     (setq maxPt (vlax-safearray->list maxPt))     (setq minPtlst (append minPtlst (list minPt)))     (setq maxPtlst (append maxPtlst (list maxPt)))   ) ;_ 结束foreach   (setq minPt (list (apply 'min (mapcar 'car minPtlst))       (apply 'min (mapcar 'cadr minPtlst))       0        ) ;_ 结束list   ) ;_ 结束setq   (setq maxPt (list (apply 'max (mapcar 'car maxPtlst))       (apply 'max (mapcar 'cadr maxPtlst))       0        ) ;_ 结束list   ) ;_ 结束setq   ;(command "rectang" minPt maxPt) (list minPt maxPt) )   (defun gxl-MidPoint (p1 p2)   (if (> 2 (length p1))       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))) (* 0.5 (+ (caddr p1) (caddr p2))))       (list (* 0.5 (+ (car p1) (car p2))) (* 0.5 (+ (cadr p1) (cadr p2))))   )     )   (defun gxl-Sel-SS->List (ss / cs_i out)   (if (= (type ss) 'PICKSET)     (progn       (setq cs_i 0.0      out  '()       )       (repeat (sslength ss) (setq out (cons (ssname ss cs_i) out)) (setq cs_i (1+ cs_i))       )       (setq out (reverse out))     )   ) )   (defun gxl-getbox (e1 / obj minpoint maxpoint)   (if (= 'ENAME (type e1))   (setq obj (vlax-ename->vla-object e1)) ;转换图元名     (setq obj e1)     )   (vla-GetBoundingBox obj 'minpoint 'maxpoint)      ;取得包容图元的最大点和最小点   (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表   (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表   ;;(command "box" minpoint maxpoint 2)   (setq obj (list minpoint maxpoint)) )   (setq oldosmode (getvar "osmode"))   (setvar "osmode" 0)   (princ "\n选择要镜像的物体：")   (setq ss (ssget))   (if ss     (progn       (setq pt1(getpoint "\n指定镜像线的第一点:")      pt2 (getpoint pt1 "\n指定镜像线的第二点:")      )       (command "line" pt1 pt2 "")     (setq line (entlast))       (initget 7 "Yes No  ")       (setq kd (getkword "\n是否删除源对象?[是<Yes>/否<No>]否<No>"))       (if (= kd "") (setq kd "No"))       (setq nn (sslength ss)      n 0)       ;|       (repeat nn       (setq pl (GXL-GETBOX (setq en (ssname ss n))))       (setq pt (GXL-MIDPOINT (car pl) (cadr pl)))       (setq mpt (vlax-curve-getclosestpointto line pt t))       (setq ang (angle pt mpt))       (command "copy" en "" pt (polar pt ang (* 2 (distance pt mpt))))              (if (= kd "Yes") (command "erase" en "")) (setq n (1+ n)) )|;       (setq pl (gxl-GetssBox ss))       (setq pt (GXL-MIDPOINT (car pl) (cadr pl)))       (setq mpt (vlax-curve-getclosestpointto line pt t))       (setq ang (angle pt mpt))       (command "copy" ss "" pt (polar pt ang (* 2 (distance pt mpt))))              (if (= kd "Yes") (command "erase" ss ""))              )            )   (entdel line)   (setvar "osmode" oldosmode)   )

liaoliang317

G版主就是强大啊~~~~~！