求多行文字间距格式刷。

品茗新秀 · 发表于 2012-9-24 21:27:19

求多行文字间距格式刷。

zyhandw · 发表于 2012-9-24 21:27:20

仔细上了下革天明的代码，好像不对哦，组码44不是多行文字的行间距的值！
简单写了个，看是否是楼主要的结果：

(defun c:hjj()
(princ"\n请选择多行文字源对象:")
(setq en-vl (vlax-ename->vla-object(car(entsel))))
(setq num (vlax-get-property en-vl 'LineSpacingDistance))
(princ"\n请选择要修改的多行文字目标对象:")
(setq ss (ssget '((0 . "Mtext"))))
(setq n 0)
(repeat (sslength ss)
(setq mtxt-vl (vlax-ename->vla-object (ssname ss n)))
;(setq mtxt-lst (entget mtxt-name))
;(setq mtxt-lst (subst (cons )))
(vlax-put-property mtxt-vl 'LineSpacingDistance num)
(setq n (1+ n))
)
(princ)
)

sscylh · 发表于 2012-9-24 23:02:26

问题不是很直白............

革天明 · 发表于 2012-9-25 08:57:15

(defun c:test1 (/ ss ra i en endata old new)
(prompt "\n请选择要处理的多行文字:")
(setq ss (ssget '((0 . "Mtext"))))
(setq ra (getreal "\n请输入文字间距比例<0.25-4之间>"))
(setq i 0)
(repeat (sslength ss)
   (setq en (ssname ss i))
   (setq endata (entget en))
   ;;(setvar "TSPACEFAC" ra)
   ;;TSPACEFAC  控制多行文字的行间距（按文字高度的比例因子测量）
   (setq old (assoc 44 endata))
   (setq new (cons 44 ra))
   (setq endata (subst new old endata))
   (entmod endata)
   (setq i (1+ i))
)
)

zyhandw · 发表于 2012-9-25 14:53:54

楼上已给出了解决方法

461045462 · 发表于 2012-9-25 16:07:37

楼上已经给出了。
试试。
谢谢楼上！

海盗曹 · 发表于 2012-9-25 19:33:59

向源码致敬~

革天明 · 发表于 2012-9-26 08:06:58

zyhandw 发表于 2012-9-24 21:27
仔细上了下革天明的代码，好像不对哦，组码44不是多行文字的行间距的值！
简单写了个，看是否是楼主要的结 ...

组码44是TSPACEFAC的值，控制多行文字的行间距（按文字高度的比例因子测量），文字间距与字高是比例关系，LineSpacingDistance应该是纯粹的距离吧？

zyhandw · 发表于 2012-9-26 10:31:50

革天明发表于 2012-9-26 08:06
组码44是TSPACEFAC的值，控制多行文字的行间距（按文字高度的比例因子测量），文字间距与字高是比例关系， ...

哦，谢谢指教！

革天明 · 发表于 2012-9-26 16:29:24

zyhandw 发表于 2012-9-26 10:31
哦，谢谢指教！

不敢当！你的方法也是相当好，受教了！

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

求多行文字间距格式刷。

最佳答案

评分

浏览过的版块