[求助]："自由拷贝"的事情

aeo

拷贝时如果经过镜像，文字就是反的.
能不能象cad命令一样，自动反过来.

如果把dxf210转换过来，再修改dxf10(11),那还是和cad的mirror不一样(起点到了端点上了)
有没有好的算法.
(天正的挺好，但没scale)

XDSoft

最初由 aeo 发布
[B]拷贝时如果经过镜像，文字就是反的.
能不能象cad命令一样，自动反过来.

如果把dxf210转换过来，再修改dxf10(11),那还是和cad的mirror不一样(起点到了端点上了)
有没有好的算法.
(天正的挺好，但没scale) [/B]

这个问题在以后的版本会解决，主要是由于ARX在把镜像矩阵作用到文字实体时候，文字的法向量变成负的造成的，把法向量（组码210）的Z反过来，就正确了，AEO，你可以试试写个LISP，变换下，看看能否解决？

eachy

最初由 aeo 发布
[B]拷贝时如果经过镜像，文字就是反的.
能不能象cad命令一样，自动反过来.

如果把dxf210转换过来，再修改dxf10(11),那还是和cad的mirror不一样(起点到了端点上了)
有没有好的算法.
(天正的挺好，但没scale) [/B]

对文字使用3DRotate，把法线转过来。

ll_j

这里不是3DRotate问题，是由71组码控制的，今天写了个程序，姑且算作“咸鱼翻身”。

2. 
   
3. ;;;“咸鱼翻身”程序，用于将镜像或翻转的Text文本转正。
   
4. ;;;支持 Autocad R14+。作者：LL_J。
   
5. (defun c:mitxt(/ ss len i en ent p71 p72 p73 e0 ll hh ang p10 p11)
   
6.   (command "color" "")
   
7.   (setq ss(ssget '((0 . "TEXT") (-4 . "/=") (71 . 0))))
   
8.   (if ss
   
9.     (progn
   
10.       (setq len (sslength ss)
    
11.             i 0
    
12.       )
    
13.       (repeat len
    
14.         (setq en (ssname ss i)
    
15.               ent(entget en)
    
16.               p71(cdr (assoc 71 ent))
    
17.               ent(subst '(71 . 0) (assoc 71 ent) ent)
    
18.               e0 (subst '(51 . 0) (assoc 51 ent) ent)
    
19.               ll (abs (caadr (textbox e0)))
    
20.               hh (cdr (assoc 40 ent))
    
21.               ang(cdr (assoc 50 ent))
    
22.               p72(cdr (assoc 72 ent))
    
23.               p73(cdr (assoc 73 ent))
    
24.         )
    
25.         (cond
    
26.           ((= p71 2)    ;镜像
    
27.            (cond
    
28.              ((and (= p72 0) (= p73 0))
    
29.               (setq p10        (polar (cdr (assoc 10 ent)) ang (- ll))
    
30.                     ent        (subst (cons 10 p10) (assoc 10 ent) ent)
    
31.               )
    
32.              )
    
33.              ((= p72 0)
    
34.               (setq p11        (polar (cdr (assoc 11 ent)) ang (- ll))
    
35.                     ent        (subst (cons 11 p11) (assoc 11 ent) ent)
    
36.               )
    
37.              )
    
38.              ((= p72 2)
    
39.               (setq p11        (polar (cdr (assoc 11 ent)) ang ll)
    
40.                     ent        (subst (cons 11 p11) (assoc 11 ent) ent)
    
41.               )
    
42.              )
    
43.              ((or (= p72 3) (= p72 5))
    
44.               (setq p10        (cdr (assoc 10 ent))
    
45.                     p11        (cdr (assoc 11 ent))
    
46.                     ent        (subst (cons 10 p11) (assoc 10 ent) ent)
    
47.                     ent        (subst (cons 11 p10) (assoc 11 ent) ent)
    
48.               )
    
49.              )
    
50.              (t ent)
    
51.            )
    
52.           )
    
53.           ((= p71 4)   ;翻转
    
54.            (cond
    
55.              ((and (= p73 0) (= p72 4)) ent)
    
56.              ((and (= p73 0) (= p72 0))
    
57.               (setq p10 (polar (cdr (assoc 10 ent)) (- ang (/ pi 2)) hh)
    
58.                     ent (subst (cons 10 p10) (assoc 10 ent) ent)
    
59.               )
    
60.              )
    
61.              ((= p73 0)
    
62.               (setq p11 (polar (cdr (assoc 11 ent)) (- ang (/ pi 2)) hh)
    
63.                     ent (subst (cons 11 p11) (assoc 11 ent) ent)
    
64.               )
    
65.              )
    
66.              ((= p73 3)
    
67.               (setq p11 (polar (cdr (assoc 11 ent)) (+ ang (/ pi 2)) hh)
    
68.                     ent (subst (cons 11 p11) (assoc 11 ent) ent)
    
69.               )
    
70.              )
    
71.              ((= p73 1)
    
72.               (setq p11 (polar (cdr (assoc 11 ent)) (- ang (/ pi 2)) (/ (* hh 5) 3))
    
73.                     ent (subst (cons 11 p11) (assoc 11 ent) ent)
    
74.               )
    
75.              )
    
76.              (t ent)
    
77.            )
    
78.           )
    
79.           (t      ;镜像同时翻转
    
80.            (setq ent (subst '(71 . 0) (assoc 71 ent) ent)
    
81.                  ent (subst (cons 50 (+ ang pi)) (assoc 50 ent) ent)
    
82.            )
    
83.           )
    
84.         )
    
85.         (entmod ent)
    
86.         (setq i (1+ i))
    
87.       )
    
88.     )
    
89.     (princ "\n没有需要镜像的文本。")
    
90.   )
    
91.   (princ)
    
92. )
    
93. (princ "\nText文本转正程序。")
    
94. (princ "\n命令：mitxt")
    

<br /> ;;;“咸鱼翻身”程序，用于将镜像或翻转的Text文本转正。<br /> ;;;支持 Autocad R14+。作者：LL_J。<br /> (defun c:mitxt(/ ss len i en ent p71 p72 p73 e0 ll hh ang p10 p11)<br />   (command "color" "")<br />   (setq ss(ssget '((0 . "TEXT") (-4 . "/=") (71 . 0))))<br />   (if ss<br />     (progn<br />       (setq len (sslength ss)<br />             i 0<br />       )<br />       (repeat len<br />         (setq en (ssname ss i)<br />               ent(entget en)<br />               p71(cdr (assoc 71 ent))<br />               ent(subst '(71 . 0) (assoc 71 ent) ent)<br />               e0 (subst '(51 . 0) (assoc 51 ent) ent)<br />               ll (abs (caadr (textbox e0)))<br />               hh (cdr (assoc 40 ent))<br />               ang(cdr (assoc 50 ent))<br />               p72(cdr (assoc 72 ent))<br />               p73(cdr (assoc 73 ent))<br />         )<br />         (cond<br />           ((= p71 2)    ;镜像<br />            (cond<br />              ((and (= p72 0) (= p73 0))<br />               (setq p10        (polar (cdr (assoc 10 ent)) ang (- ll))<br />                     ent        (subst (cons 10 p10) (assoc 10 ent) ent)<br />               )<br />              )<br />              ((= p72 0)<br />               (setq p11        (polar (cdr (assoc 11 ent)) ang (- ll))<br />                     ent        (subst (cons 11 p11) (assoc 11 ent) ent)<br />               )<br />              )<br />              ((= p72 2)<br />               (setq p11        (polar (cdr (assoc 11 ent)) ang ll)<br />                     ent        (subst (cons 11 p11) (assoc 11 ent) ent)<br />               )<br />              )<br />              ((or (= p72 3) (= p72 5))<br />               (setq p10        (cdr (assoc 10 ent))<br />                     p11        (cdr (assoc 11 ent))<br />                     ent        (subst (cons 10 p11) (assoc 10 ent) ent)<br />                     ent        (subst (cons 11 p10) (assoc 11 ent) ent)<br />               )<br />              )<br />              (t ent)<br />            )<br />           )<br />           ((= p71 4)   ;翻转<br />            (cond<br />              ((and (= p73 0) (= p72 4)) ent)<br />              ((and (= p73 0) (= p72 0))<br />               (setq p10 (polar (cdr (assoc 10 ent)) (- ang (/ pi 2)) hh)<br />                     ent (subst (cons 10 p10) (assoc 10 ent) ent)<br />               )<br />              )<br />              ((= p73 0)<br />               (setq p11 (polar (cdr (assoc 11 ent)) (- ang (/ pi 2)) hh)<br />                     ent (subst (cons 11 p11) (assoc 11 ent) ent)<br />               )<br />              )<br />              ((= p73 3)<br />               (setq p11 (polar (cdr (assoc 11 ent)) (+ ang (/ pi 2)) hh)<br />                     ent (subst (cons 11 p11) (assoc 11 ent) ent)<br />               )<br />              )<br />              ((= p73 1)<br />               (setq p11 (polar (cdr (assoc 11 ent)) (- ang (/ pi 2)) (/ (* hh 5) 3))<br />                     ent (subst (cons 11 p11) (assoc 11 ent) ent)<br />               )<br />              )<br />              (t ent)<br />            )<br />           )<br />           (t      ;镜像同时翻转<br />            (setq ent (subst '(71 . 0) (assoc 71 ent) ent)<br />                  ent (subst (cons 50 (+ ang pi)) (assoc 50 ent) ent)<br />            )<br />           )<br />         )<br />         (entmod ent)<br />         (setq i (1+ i))<br />       )<br />     )<br />     (princ "\n没有需要镜像的文本。")<br />   )<br />   (princ)<br /> )<br /> (princ "\nText文本转正程序。")<br /> (princ "\n命令：mitxt")<br />

eachy

这种情况我是求text的BOX然后用中点Rotate（Vlax方法）。

hand21ccn

哇，你真伟大

aeo

最初由 eachy 发布
[B]这种情况我是求text的BOX然后用中点Rotate（Vlax方法）。 [/B]

应该不是Rotate.
BOX然后用中点垂直方向再mirror
关键是看变换中有没有上下和左右镜向.


其实这命令问题多多，肯定有改进的必要.
1:xdrx_entity_transFormCopy扩展数据丢失.我以前提过.

2:按$xdlsp_pickset_transformedCopy的写法(一个个来),显然原来选集的组是不复存在了.

3:xdrx_PickSet_dragGen,竟然不支持捕捉(不是临时设的，是对预设的不支持)

4:那就是文字了:文字镜像?  是属性还要麻烦些!