(CTW)批量修改CAD文字宽度因子2024.4.17

yyz123121

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

xotoo

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

sooltk

谢谢大佬赐教

tranque

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

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

命令: TEXTSCR

阿猪蛋

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

wudechao

代码有错，下面的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))
                )
              )