本帖最后由 lingduwx 于 2024-6-29 07:20 编辑
tigcat 发表于 2024-6-29 00:31
(progn (setq ent-data (entget (setq en(car (entsel)))))(entmod (subst (cons 73 0)(assoc 73 ent-data) ...
谢谢大哥，另外请问一下大哥，这个怎么加一个快捷键呢，另外怎么可以框选呢，或者执行命令全图有此问题的文字自动回正，谢谢
你有种再说一遍 发表于 2024-6-29 00:53
我觉得他描述的问题也不太像我超链接的,更多是像开发者不知道先平移到原点再变换造成的bug...而题主也没 ...
惊惊大神没下他的附件，的确不是您说的那种问题。
lingduwx 发表于 2024-6-29 07:17
谢谢大哥，另外请问一下大哥，这个怎么加一个快捷键呢，另外怎么可以框选呢，或者执行命令全图有此问题的 ...
你用我前面说那个方法啊，你的附件我下了，可以解决。
liufii 发表于 2024-6-29 09:26
你用我前面说那个方法啊，你的附件我下了，可以解决。
我Z轴归0了还是不行，大哥可否把你的轴归0发给我一下呢，谢谢
lingduwx 发表于 2024-6-29 07:17
谢谢大哥，另外请问一下大哥，这个怎么加一个快捷键呢，另外怎么可以框选呢，或者执行命令全图有此问题的 ...
(defun c:tt (/ ss ent-data)
(while (setq ss (ssget '((0 . "TEXT"))))
(mapcar (function (lambda (x)
(setq ent-data (entget x))
(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)))
)
)
(vl-remove-if-not (function (lambda (x) (equal (type x) 'ename))) (mapcar 'cadr (ssnamex ss)))
)
)
(princ)
)
;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)
ssyfeng 发表于 2024-6-29 09:50
谢谢大哥，我输入命令后提示如下，
命令: thz
选择对象: 指定对角点: 找到 6 个
选择对象:
; 错误: 参数类型错误: lentityp nil
命令:
麻烦大哥再看看呢，谢谢了
tigcat 发表于 2024-6-29 09:53
;20240629
(defun c:tt(/ en ent-data i ss)
(setq ss (ssget '((0 . "text")(73 . 1))))
谢谢大神终于可以了:victory:
这个问题，貌似以前铝膜图上看到过，字体跟基点位置存在错位，最后是用了一个命令，重新把所有的文字基点都重新调整了。命令还不短
是字体的问题吧。