未测试
(setq w (getreal "\n高宽比:")
ss (ssget '((0 . "text"))))
谢谢您的回复，我试一下 本帖最后由 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))
你应该做个属性块，属性文字可以单独调节高度 本帖最后由 x_s_s_1 于 2023-4-26 16:22 编辑
cchessbd 发表于 2023-4-26 15:46
谢谢回复，大概测了一下，CAD2008报错不能运行。
修改了一下，这样可以运行了，就是水平位置稍微有点问 ...
改了一下，看原帖，水平位置不好判断，如果与原文字对齐方式有关联就好了，可以先用justifytext命令改下对齐方式，其实你这个可以一步到位的。做块之前，可以根据图例特点，先改变文字图元的相关性质，再做块，写起来也不是很复杂。 本帖最后由 kucha007 于 2023-4-26 22:14 编辑
试试这个：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=187701&fromuid=7329538
页:
1
[2]