（完成）[编程申请]：初次发帖，求修改文字行距的程序，版主请进。

Tong · 发表于 2002-8-4 19:45:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

看了几个文字处理的程序，的确好用，感谢版主的辛勤成果。

我也有个文字处理的问题，就是多行文字经过编辑后，调整行距时以前都是靠目测，版主能不能编个行距调整的程序，其他的都不用变只要行间距保持一致即可，这样图纸更美观些。:c

xzg_hello · 发表于 2002-8-9 20:33:23

你完全可以先用合并工具再用Ｍｔｅｘｔ搞定嘛

XDSoft · 发表于 2002-8-10 19:57:53

写好了，请试用...

登录/注册后可看大图

[FONT=courier new]
;|
命令：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)
)
[/font]

[FONT=courier new] 
;| 
   命令：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) 
) 
[/font]

下面附件是这个程序发布时候，所有关于“文字处理”工具的所有程序。

xzg_hello · 发表于 2002-8-12 11:40:01

最初由 XDSoft 发布
[B]写好了，请试用...

登录/注册后可看大图

[CODE]

;|
命令：txt_modintv
功能：对大段、多行水平文字修改行距。
说明：每行要求一个文... [/B]

这个字体工具集怎么加载比较好？是分成很多单个小文件好，还是集成为一个带参数来选择比较好？

XDSoft · 发表于 2002-8-14 01:11:26

最初由 xzg_hello 发布
[B][QUOTE]最初由 XDSoft 发布
[B]写好了，请试用...

登录/注册后可看大图

[CODE]

;|
命令：txt_modintv
功能：对大段、多行水平文... [/B]

所有的“文字处理”工具，都已经提供到“晓东工具箱 bete 013”版本里面了，安装“晓东工具箱”即可，图标、菜单都有。

XDSoft · 发表于 2002-8-14 01:37:31

最初由 xzg_hello 发布
[B][QUOTE]最初由 XDSoft 发布
[B]写好了，请试用...

登录/注册后可看大图

[CODE]

;|
命令：txt_modintv
功能：对大段、多行水平文... [/B]

我想，既然用菜单，还是让大家方便比较好，很多集成一起，让参数选择，会降低效率。而大家可能并不常用一些选择。

helei · 发表于 2003-1-22 17:29:32

这个程序很好用，可以大幅度提高效率。我在使用时发现，它现在的功能是修改多行文字之间的空隙大小，如果能修改包括文字本身高度在内的行距，它的应用范围会更广。一点建议，供朋友参考。

XDSoft · 发表于 2003-1-22 17:34:50

最初由 helei 发布
[B]这个程序很好用，可以大幅度提高效率。我在使用时发现，它现在的功能是修改多行文字之间的空隙大小，如果能修改包括文字本身高度在内的行距，它的应用范围会更广。一点建议，供朋友参考。 [/B]

实际应用中，我们主要在意的就是字行间的空袭大小吧？现在这样做可以不用考虑文字的具体高度，不管几行，多少不同高度的文字，都可以调整出一个固定的间隙来。

如果考虑了字高，那么反而不方便了吧？

hewb · 发表于 2003-2-8 16:24:05

对于大段文本建议采用MTEXT命令.既方便又简单好用。

徐志凯 · 发表于 2003-2-8 19:29:52

MTEXT命令在调整整块文字位置时，难以定位（我用的是R14）

fengche1915 · 发表于 2019-5-14 12:00:08

下载学习下

290887497 · 发表于 2024-11-11 19:02:56

txt_modintv

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

（完成）[编程申请]：初次发帖，求修改文字行距的程序，版主请进。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子