[编程申请]：初次发帖，版主请进。
看了几个文字处理的程序，的确好用，感谢版主的辛勤成果。我也有个文字处理的问题，就是多行文字经过编辑后，调整行距时以前都是靠目测，版主能不能编个行距调整的程序，其他的都不用变只要行间距保持一致即可，这样图纸更美观些。:c 你完全可以先用合并工具再用Ｍｔｅｘｔ搞定嘛 写好了，请试用...
http://www.xdcad.net/forum/pic/txt_modintv.gif
;|
命令：txt_modintv
功能：对大段、多行水平文字修改行距。
说明：每行要求一个文字实体，如果有多个，请用工具“完美连接”把文字连接起来后运行。
|;
(defun c:txt_modintv (/ $txt_modintv ss intv)
(defun $txt_modintv (el / txt n tf pj pj1 basept box thigh dis)
(prompt "\n正在修改行距......")
(setq el1 (mapcar
'car
el
)
tf t
)
(foreach n el1
(xdrx_setenttodb n)
(setq pj (xdrx_getentdxf 10))
(if tf
(progn
(setq basept pj
tf nil
)
)
(progn
(setq box (xdrx_entity_box n)
thigh (mapcar
'-
(last box)
(car box)
)
thigh (cadr thigh)
dis (+ thigh intv)
pj1 (mapcar
'+
basept
(list 0.0 (- dis) 0.0)
)
)
(xdrx_modent 10 pj1)
(setq basept pj1)
)
)
)
(prompt "完毕!")
)
(prompt "\n请选取修改行距的大块文字<退出>:")
(if (and
(setq ss (ssget '((0 . "text"))))
(progn
(initget 4)
(setq intv (getreal "\n请输入间距<退出>:"))
)
)
(progn
(xdrx_begin)
($txt_modintv ($xdlsp_text_sort ss t))
(xdrx_end)
)
)
(princ)
)
下面附件是这个程序发布时候，所有关于“文字处理”工具的所有程序。 最初由 XDSoft 发布
写好了，请试用...
http://www.xdcad.net/forum/pic/txt_modintv.gif
;|
命令：txt_modintv
功能：对大段、多行水平文字修改行距。
说明：每行要求一个文...
这个字体工具集怎么加载比较好？是分成很多单个小文件好，还是集成为一个带参数来选择比较好？ 最初由 xzg_hello 发布
最初由 XDSoft 发布
写好了，请试用...
http://www.xdcad.net/forum/pic/txt_modintv.gif
;|
命令：txt_modintv
功能：对大段、多行水平文...
所有的“文字处理”工具，都已经提供到“晓东工具箱 bete 013”版本里面了，安装“晓东工具箱”即可，图标、菜单都有。 最初由 xzg_hello 发布
最初由 XDSoft 发布
写好了，请试用...
http://www.xdcad.net/forum/pic/txt_modintv.gif
;|
命令：txt_modintv
功能：对大段、多行水平文...
我想，既然用菜单，还是让大家方便比较好，很多集成一起，让参数选择，会降低效率。而大家可能并不常用一些选择。 这个程序很好用，可以大幅度提高效率。我在使用时发现，它现在的功能是修改多行文字之间的空隙大小，如果能修改包括文字本身高度在内的行距，它的应用范围会更广。一点建议，供朋友参考。 最初由 helei 发布
这个程序很好用，可以大幅度提高效率。我在使用时发现，它现在的功能是修改多行文字之间的空隙大小，如果能修改包括文字本身高度在内的行距，它的应用范围会更广。一点建议，供朋友参考。
实际应用中，我们主要在意的就是字行间的空袭大小吧？现在这样做可以不用考虑文字的具体高度，不管几行，多少不同高度的文字，都可以调整出一个固定的间隙来。
如果考虑了字高，那么反而不方便了吧？ 对于大段文本建议采用MTEXT命令.既方便又简单好用。 MTEXT命令在调整整块文字位置时，难以定位（我用的是R14） 下载学习下 txt_modintv
页:
[1]