yyz123121 发表于 2024-9-14 23:56:01

太好了，以前需要改多行文字要不就是炸开改，要不就是点进去改，这个可以直接改了

xotoo 发表于 2024-10-17 22:23:04

希望能支持属性块的文字，和多重引线的文字

sooltk 发表于 2025-2-13 17:09:39

谢谢大佬赐教

tranque 发表于 2025-5-9 14:39:01

sammy 发表于 2024-4-9 18:51
cad有原生命令justfytext

CAD2022路过，输入后未知命令
命令: justfytext 未知命令“JUSTFYTEXT”。按 F1 查看帮助。

命令: TEXTSCR

阿猪蛋 发表于 2025-5-12 13:25:55


不错呢~感谢分享源码。
学习了~！

wudechao 发表于 2025-5-13 21:06:37

代码有错，下面的str要改为endstr
(if (wcmatch str "{*}")
                (progn
                  (setq newwidstr (strcat "{\\W" (rtos newwid 2 2) ";"))
                  (setq str (vl-string-subst newwidstr "{" str))
                  (entmod (subst (cons 1 str) (assoc 1 edata) edata))
                )
                (progn
                  (setq str (strcat "{\\W" (rtos newwid 2 2) ";" str "}"))
                  (entmod (subst (cons 1 str) (assoc 1 edata) edata))
                )
            )
页: 1 2 3 4 [5]
查看完整版本: (CTW)批量修改CAD文字宽度因子2024.4.17