块缩放后（调整了XY比例），怎么把文字大小变为原来的呢？

cchessbd · 发表于 2023-4-26 14:42

x_s_s_1 发表于 2023-4-26 11:57
未测试
(setq w (getreal "\n高宽比:")
ss (ssget '((0 . "text"))))

谢谢您的回复，我试一下

cchessbd · 发表于 2023-4-26 15:46

本帖最后由 cchessbd 于 2023-4-26 15:56 编辑

x_s_s_1 发表于 2023-4-26 11:57
未测试
(setq w       (getreal "\n高宽比:")
   ss (ssget '((0 . "text"))))
(repeat       (setq n (sslength ss))
(setq en (ssname (setq n (1- n)) ss)
      en (entget en)
      en (subst (cons 41 w) (assoc 41 en) en))
(entmod en))

谢谢回复，大概测了一下，CAD2008报错不能运行。
修改了一下，这样可以运行了，就是水平位置稍微有点问题。

(setq w 0.7)
(setq ss (ssget '((0 . "text"))))
(setq n (sslength ss))
(repeat n
(setq n (1- n)
      en (ssname ss n)
      en (entget en)
      en (subst (cons 41 w) (assoc 41 en) en))
(entmod en))

菜卷鱼 · 发表于 2023-4-26 16:11

你应该做个属性块，属性文字可以单独调节高度

x_s_s_1 · 发表于 2023-4-26 16:16

本帖最后由 x_s_s_1 于 2023-4-26 16:22 编辑

cchessbd 发表于 2023-4-26 15:46
谢谢回复，大概测了一下，CAD2008报错不能运行。
修改了一下，这样可以运行了，就是水平位置稍微有点问 ...

改了一下，看原帖，水平位置不好判断，如果与原文字对齐方式有关联就好了，可以先用justifytext命令改下对齐方式，其实你这个可以一步到位的。做块之前，可以根据图例特点，先改变文字图元的相关性质，再做块，写起来也不是很复杂。

kucha007 · 发表于 2023-4-26 22:10

本帖最后由 kucha007 于 2023-4-26 22:14 编辑

试试这个：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=187701&fromuid=7329538

账号		自动登录	找回密码
密码			注册

[讨论] 块缩放后（调整了XY比例），怎么把文字大小变为原来的呢？