【已解决】文字镜像问题

wx_EKdL75Rx · 发表于 2018-12-31 09:02:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2018-12-31 20:01 编辑

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

wx_EKdL75Rx · 发表于 2018-12-31 09:03:41

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

konglong604 · 发表于 2018-12-31 10:43:11

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

evayleung · 发表于 2018-12-31 11:17:52

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

wx_EKdL75Rx · 发表于 2018-12-31 11:31:06

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

已经解决了谢谢

newer · 发表于 2018-12-31 12:37:45

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

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

wx_EKdL75Rx · 发表于 2018-12-31 15:14:04

这是我自己的方法：
如果有更好的请也发上来学习学习！谢谢！
(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 · 发表于 2018-12-31 15:15:29

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

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

wx_EKdL75Rx · 发表于 2018-12-31 15:17:14

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

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

xudi1234 · 发表于 2018-12-31 15:22:52

mirr?

marting · 发表于 2018-12-31 15:29:12

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

写的很好了，帮你修改下

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

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

wx_EKdL75Rx · 发表于 2018-12-31 15:33:24

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

谢谢大神！！！！

tzfcn · 发表于 2018-12-31 16:44:32

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

kqqt6236 · 发表于 2019-1-1 19:11:20

谢谢分享源码。

konglong604 · 发表于 2019-1-1 20:11:26

学习了，谢谢各位大神。

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】文字镜像问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。