批量改字高与字宽

KO你

批量改字高与字宽，支持多行文本、单行文字、属性字。
快捷键  TT1  批量改字高
快捷键  TT2  批量改字宽
请大师看看怎么弄才能支持多行文本的字宽也可以改
(defun ch_dxf(en num ch / old_num new_num ent)
(if (setq ent (entget en)
new_num (cons num ch)
old_num (assoc num ent))
(entmod(subst new_num old_num ent))
(entmod(reverse(cons new_num (reverse  ent))))))

(defun c:tt1( / ss n x ww)
(setq ss (ssget '((0 . "text,mtext,attdef"))))
(setq ww (getreal "请输入字高："))
(repeat (setq N (sslength SS))
(apply '(lambda (x) (ch_dxf x 40 ww))
(list (ssname SS (setq N (1- N))))))
(princ))

(defun c:tt2( / ss n x ww)
(setq ss (ssget '((0 . "text,mtext,attdef"))))
(setq ww (getreal "请输入字宽："))
(repeat (setq N (sslength SS))
(apply '(lambda (x) (ch_dxf x 41 ww))
(list (ssname SS (setq N (1- N))))))
(princ))

alexmai

多行改文字宽高比

KO你

guosheyang 发表于 2022-4-18 20:55
多行文字也可以改宽度的，属性虽然不能直接改，可以通过其他方式改的

分享一下源码咯
(gkd(setq ss(ssget))(setq widfactor(getreal"\n请输入宽度")))
输入宽度后显示
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)

alexmai

pizi158545086 发表于 2023-6-9 20:14
这个可以改单独选中属性文字改字宽吗？不需要全部字体一起改

你要的单个调整文字宽度
程序来自Lee Mac，也可以去他的官网下

paulpipi

很好用的程序，谢谢分享，希望高手来解决

zhangcan0515

多行文字就不行的，见过标注文字修改字宽的 标注文字也属于多行文字，是常青藤插件做出来的，它是C#写的插件。

Q晋胡

特性里面改不一样吗？

KO你

Q晋胡 发表于 2022-4-16 21:43
特性里面改不一样吗？

特性只有高度没有宽度，只能一个一个进去编辑器去改，效率不高，如果有大批量需要修改，还是要追求插件方便

Q晋胡

KO你 发表于 2022-4-16 23:04
特性只有高度没有宽度，只能一个一个进去编辑器去改，效率不高，如果有大批量需要修改，还是要追求插件方 ...

海龙软件里面就有，可以参考一下

KO你

Q晋胡 发表于 2022-4-17 00:06
你是指属性块文字的宽度吧？

朋友，请认真看题好吗，都说了是批量修改多行文本，单行文字，和没成块的属性字咯，
现在是多行文本改不了字宽，我一直讨论完善多行文本字宽编辑问题

guosheyang

多行文字也可以改宽度的，属性虽然不能直接改，可以通过其他方式改的

bai2000

调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)


这个常出现，很麻烦，哪位大神做个程序能一次处理最好