【已解决】文字镜像问题

wx_EKdL75Rx

CAD中文字（包括单行和多行）有正常的文字和镜像的混合在一起！怎么样让正常的不变，镜像的文字都镜像成镜像的？改完后位置也不能变！有没有好的LISP谢谢大神们了！

wx_EKdL75Rx

不好意思！上面写错了！是把镜像的文字镜像成正的！

konglong604

首要问题就是判断哪些文字是镜像过的。

evayleung

给个示例图看看，估计大神们也不明白你在说的是什么意思。。。

wx_EKdL75Rx

konglong604 发表于 2018-12-31 10:43
首要问题就是判断哪些文字是镜像过的。

已经解决了谢谢

newer

wx_EKdL75Rx 发表于 2018-12-31 11:31
已经解决了谢谢

解决了，代码能发上来吗？

wx_EKdL75Rx

这是我自己的方法：
如果有更好的请也发上来学习学习！谢谢！
(defun c:JXXF();
        (setvar "osmode" 0)
        (setvar "MIRRTEXT" 0)
        (setq SZ_JXXF_P1 '(0 0))
        (setq SZ_JXXF_P2 (polar SZ_JXXF_P1 (/ pi 2) 1000))
        (setq SZ_JXXF (ssget '((0 . "*text")(-4 . "<OR") (71 . 2)(71 . 4) (210 0.0 0.0 -1.0)(-4 . "OR>"))))
        (command "_mirror" SZ_JXXF "" SZ_JXXF_P1 SZ_JXXF_P2 "Y")
        (setvar "MIRRTEXT" 1)
        (command "_mirror" SZ_JXXF "" SZ_JXXF_P1 SZ_JXXF_P2 "Y")
  (setq SZ_JXXF_txt (strcat "震哥提示你已经完成镜像文字修复^ ^！！！"))
  (alert SZ_JXXF_txt)
        (setvar "osmode" 16383)
        )

wx_EKdL75Rx

newer 发表于 2018-12-31 12:37
解决了，代码能发上来吗？

发了，请提提意见，谢谢！

wx_EKdL75Rx

newer 发表于 2018-12-31 12:37
解决了，代码能发上来吗？

源码已经发上来了，请指导指导有什么不足的地方或者更好的方法，谢谢！

xudi1234

mirr?

marting

wx_EKdL75Rx 发表于 2018-12-31 15:14
这是我自己的方法：
如果有更好的请也发上来学习学习！谢谢！
(defun c:JXXF();

写的很好了，帮你修改下

1. (defun c:JXXF (/ oldcmd oldmirr sz_jxxf_p1 sz_jxxf_p2 sz_jxxf)
   
2.   (setq oldcmd (getvar "cmdecho"))
   
3.   (setq oldmirr (getvar "mirrtext"))
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "osmode" 0)
   
6.   (setvar "mirrtext" 0)
   
7.   (setq sz_jxxf_p1 '(0 0))
   
8.   (setq sz_jxxf_p2 (polar sz_jxxf_p1 (/ pi 2) 1000))
   
9.   (if (setq sz_jxxf (ssget '((0 . "*text")
   
10.                              (-4 . "<or")
    
11.                              (71 . 2)
    
12.                              (71 . 4)
    
13.                              (210 0.0 0.0 -1.0)
    
14.                              (-4 . "or>")
    
15.                             )
    
16.                     )
    
17.       )
    
18.     (progn (command "_mirror" sz_jxxf "" sz_jxxf_p1 sz_jxxf_p2 "y")
    
19.            (setvar "mirrtext" 1)
    
20.            (command "_mirror" sz_jxxf "" sz_jxxf_p1 sz_jxxf_p2 "y")
    
21.            (alert "震哥提示你已经完成镜像文字修复^ ^！！！")
    
22.     )
    
23.   )
    
24.   (setvar "cmdecho" oldcmd)
    
25.   (setvar "mirrtext" oldmirr)
    
26.   (setvar "osmode" 16383)
    
27.   (princ)
    
28. )
    

(defun c:JXXF (/ oldcmd oldmirr sz_jxxf_p1 sz_jxxf_p2 sz_jxxf) <br />   (setq oldcmd (getvar "cmdecho"))<br />   (setq oldmirr (getvar "mirrtext"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setvar "mirrtext" 0)<br />   (setq sz_jxxf_p1 '(0 0))<br />   (setq sz_jxxf_p2 (polar sz_jxxf_p1 (/ pi 2) 1000))<br />   (if (setq sz_jxxf (ssget '((0 . "*text")<br />                              (-4 . "<or")<br />                              (71 . 2)<br />                              (71 . 4)<br />                              (210 0.0 0.0 -1.0)<br />                              (-4 . "or>")<br />                             )<br />                     )<br />       )<br />     (progn (command "_mirror" sz_jxxf "" sz_jxxf_p1 sz_jxxf_p2 "y")<br />            (setvar "mirrtext" 1)<br />            (command "_mirror" sz_jxxf "" sz_jxxf_p1 sz_jxxf_p2 "y")<br />            (alert "震哥提示你已经完成镜像文字修复^ ^！！！")<br />     )<br />   )<br />   (setvar "cmdecho" oldcmd)<br />   (setvar "mirrtext" oldmirr)<br />   (setvar "osmode" 16383)<br />   (princ)<br /> )<br />

wx_EKdL75Rx

marting 发表于 2018-12-31 15:29
写的很好了，帮你修改下

谢谢大神！！！！

tzfcn

不错的代码，可以解决很多问题。

kqqt6236

谢谢分享源码。

konglong604

学习了，谢谢各位大神。