社区 › 付费开发 › 求助：单行文字跟随文字样式批量更新宽度因子

lxl217114 发表于 2024-4-15 10:43:51

xiang19751218 发表于 2024-4-15 10:42
再试试，附件已更新。

感谢分享，这就试试去。

w379106181 发表于 2024-4-19 09:03:51

谢谢分享谢谢分享

xyp1964 发表于 2024-9-12 21:13:21

(defun c:ghzk (/ ss)
"ghzk(改换字宽)：将原有文本的字宽改为新字宽。"
(xyp-Start)
(princ "\n将原有文本的字宽改为新字宽")
(or $tw$ (setq $tw$ 0.75))
(setq $tw$ (ureal 7 "" "新字宽" $tw$))
(princ "\n选择文本: ")
(if (setq ss (ssget '((0 . "*TEXT,ATTDEF"))))
    (xyp-SubUpd ss 41 $tw$)
)
(xyp-End)
)

lxl217114 发表于 2024-9-13 10:39:39

xyp1964 发表于 2024-9-12 21:13


谢谢院长的分享，我去找找xyp-SubUpd去。

查看完整版本: 求助：单行文字跟随文字样式批量更新宽度因子