请教大家文字位置移位了怎么解决呢

lingduwx

需要默认的文字字体，不改变字体的情况下怎么弄呢

你有种再说一遍

https://www.cnblogs.com/JJBox/p/10226119.html
是不是这个问题

liufii

我也经常碰到这个问题，具体原因不明，但是有个简单的方法。找个Z轴归0的插件，全选，Z轴归0就可以解决。

ssyfeng

lingduwx 发表于 2024-6-29 07:17
谢谢大哥，另外请问一下大哥，这个怎么加一个快捷键呢，另外怎么可以框选呢，或者执行命令全图有此问题的 ...

2. (defun c:tt (/ ss ent-data)
   
3.   (while (setq ss (ssget '((0 . "TEXT"))))
   
4.                 (mapcar (function (lambda (x)
   
5.                                                                                                 (setq ent-data (entget x))
   
6.                                                                                                 (entmod (subst (cons 73 0)(assoc 73 ent-data)ent-data))
   
7.                                                                                                 (entmod (subst (cons 10(cdr (assoc 11 ent-data)))(assoc 10 ent-data)(entget en)))
   
8.                                                                                         )
   
9.                                                 )
   
10.                         (vl-remove-if-not (function (lambda (x) (equal (type x) 'ename))) (mapcar 'cadr (ssnamex ss)))
    
11.                 )
    
12.         )
    
13.         (princ)
    
14. )

(defun c:tt (/ ss ent-data)<br />   (while (setq ss (ssget '((0 . "TEXT"))))<br />                 (mapcar (function (lambda (x)<br />                                                                                                 (setq ent-data (entget x))<br />                                                                                                 (entmod (subst (cons 73 0)(assoc 73 ent-data)ent-data))<br />                                                                                                 (entmod (subst (cons 10(cdr (assoc 11 ent-data)))(assoc 10 ent-data)(entget en)))<br />                                                                                         )<br />                                                 )<br />                         (vl-remove-if-not (function (lambda (x) (equal (type x) 'ename))) (mapcar 'cadr (ssnamex ss)))<br />                 )<br />         )<br />         (princ)<br /> )

tigcat

用move命令移动一点点距离看会不会

选中发现文字有两个点,上面的那个点可以随意移动.正常文字只有一个点的.

自贡黄明儒

好像是字体的bug,先用justifytext处理一下文字

lingduwx

自贡黄明儒 发表于 2024-6-28 12:57
好像是字体的bug,先用justifytext处理一下文字

处理之后，修改了文字对正方式，可是文字就没有回到原来的位置了

lingduwx

tigcat 发表于 2024-6-28 12:16
用move命令移动一点点距离看会不会跑

直接移动一下也没有用

tranque

我就知道这种硬核问题一定会有惊惊大佬的，果然翻到惊惊大佬

tigcat

(progn (setq ent-data (entget (setq en(car (entsel)))))(entmod (subst (cons 73 0)(assoc 73 ent-data)ent-data))(entmod (subst (cons 10(cdr (assoc 11 ent-data)))(assoc 10 ent-data)(entget en))))

你有种再说一遍

tranque 发表于 2024-6-28 20:08
我就知道这种硬核问题一定会有惊惊大佬的，果然翻到惊惊大佬

我觉得他描述的问题也不太像我超链接的,更多是像开发者不知道先平移到原点再变换造成的bug...而题主也没有回我