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

lingduwx

tigcat 发表于 2024-6-29 00:31
(progn (setq ent-data (entget (setq en(car (entsel)))))(entmod (subst (cons 73 0)(assoc 73 ent-data) ...

谢谢大哥，另外请问一下大哥，这个怎么加一个快捷键呢，另外怎么可以框选呢，或者执行命令全图有此问题的文字自动回正，谢谢

tigcat

你有种再说一遍 发表于 2024-6-29 00:53
我觉得他描述的问题也不太像我超链接的,更多是像开发者不知道先平移到原点再变换造成的bug...而题主也没 ...

惊惊大神没下他的附件，的确不是您说的那种问题。

liufii

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

你用我前面说那个方法啊，你的附件我下了，可以解决。

lingduwx

liufii 发表于 2024-6-29 09:26
你用我前面说那个方法啊，你的附件我下了，可以解决。

我Z轴归0了还是不行，大哥可否把你的轴归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

;20240629
(defun c:tt(/ en ent-data i ss)
        (setq ss (ssget '((0 . "text")(73 . 1))))
        (setq i -1)
        (repeat (sslength ss)
                (setq en (ssname ss (setq i (1+ i))))
                (progn (setq ent-data (entget en))(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))))
        )
        (prin1)
)
(prompt "\n*****选择组码73不为0的文字归位")
(prin1)

lingduwx

ssyfeng 发表于 2024-6-29 09:50

谢谢大哥，我输入命令后提示如下，
命令: thz
选择对象: 指定对角点: 找到 6 个
选择对象:
; 错误: 参数类型错误: lentityp nil
命令:
麻烦大哥再看看呢，谢谢了

lingduwx

tigcat 发表于 2024-6-29 09:53
;20240629
(defun c:tt(/ en ent-data i ss)
        (setq ss (ssget '((0 . "text")(73 . 1))))

谢谢大神终于可以了

weimeng555

这个问题，貌似以前铝膜图上看到过，字体跟基点位置存在错位，最后是用了一个命令，重新把所有的文字基点都重新调整了。命令还不短

MZ_li

是字体的问题吧。