求助：单行文字跟随文字样式批量更新宽度因子

lxl217114

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

感谢分享，这就试试去。

w379106181

谢谢分享谢谢分享

xyp1964

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

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

lxl217114

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

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