把一个文字按拆分点分成2行

王鹏_pBZlo

王鹏_pBZlo

比如说，想把文字"123456"分成"123"和"456","123"保留在原文字的位置，"456"在原文字下方，行距1.5(即2行有0.5倍字高的间隙)。仅需选择原文字和选择拆分点(设置在"3"和"4"之间，可以在"4"的位置上)，就可以达到目的了
来自: 微社区

yangjian001

谢谢分享一下

wskiqght

如果有个动态图来看效果更好

zhystar

这是多行文字，还是单行文字？

王鹏_pBZlo

zhystar 发表于 2019-3-10 09:07
这是多行文字，还是单行文字？

单行文字，多行文字自己就可以换行了，不需要这样操作吧
来自: 微社区

王鹏_pBZlo

wskiqght 发表于 2019-3-10 00:16
如果有个动态图来看效果更好

做了1个gif文件,但怎么可以上传演示呢?

王鹏_pBZlo

发现一个bug,修改后如下
(defun c:tt( / txt txtpro txtstr txthei exp wid i j ok nstr)
        (if (null lutscl) (setq lutscl 1.3))
        (setq lutscltemp lutscl)
        (setq lutscl (atof (getstring (strcat "\n[行距倍数]<" (rtos lutscltemp) ">:"))))
        (if (= 0 lutscl) (setq lutscl lutscltemp))
        (while        (setq txt (car (entsel "\n选择拆分文字:")))
                (setq txtpro (entget txt))
                (setq txtstr (cdr (assoc 1 txtpro)))
                (setq txthei (cdr (assoc 40 txtpro)))       
                (setq exp (trans (getpoint "\n选择拆分点:") 1 0))
                (command "copy"  txt "" (strcat "0,-" (rtos (* lutscl txthei))) "")       
                (vla-getboundingbox (vlax-ename->vla-object txt) 'minpoint 'maxpoint)
                (setq wid (- (car exp) (car (vlax-safearray->list minpoint))))
                (setq i (strlen txtstr) ok nil)
                (while (not ok)
                        (setq nstr (substr txtstr 1 i))
                        (while (= (substr nstr (strlen nstr)) " ") (setq i (1- i) nstr (substr nstr 1 (1- (strlen nstr)))))
                        (if (wcmatch (strcat (substr nstr (strlen nstr)) " ") "?") (setq j 2) (setq j 1))
                        (setq txtpro (subst (cons 1 nstr) (assoc 1 txtpro) txtpro))
                        (entmod txtpro)
                        (vla-getboundingbox (vlax-ename->vla-object txt) 'minpoint 'maxpoint)
                        (if (< (- (car (vlax-safearray->list maxpoint)) (car (vlax-safearray->list minpoint))) wid)
                            (setq ok T) (setq i (- i j)))
                )
                (setq nstr (substr txtstr (1+ i)))
                (while (= (substr nstr 1 1) " ") (setq nstr (substr nstr 2)))
                (setq txtpro (entget (entlast)))
                (setq txtpro (subst (cons 1 nstr) (assoc 1 txtpro) txtpro))
                (entmod txtpro)
        )        (princ)
)

lrd1861

多行文字好像有问题

王鹏_pBZlo

lrd1861 发表于 2019-3-10 13:49
多行文字好像有问题

多行文字是不需要这个功能的，通过拉动边界就可以实现多行显示了
来自: 微社区

tzfcn

不错的想法，可以将文字图形化。

sicky111

挺方便的。

王鹏_pBZlo

一个中文字符占2个字长，但分开就不能显示了。对于判断中文字符，有没有人有什么好办法呢？
来自: 微社区

Lisphk

王鹏_pBZlo 发表于 2019-3-10 22:07
一个中文字符占2个字长，但分开就不能显示了。对于判断中文字符，有没有人有什么好办法呢？

字符ASCII码大于128 或者用正则表达式

Lispboy

王鹏_pBZlo 发表于 2019-3-10 22:07
一个中文字符占2个字长，但分开就不能显示了。对于判断中文字符，有没有人有什么好办法呢？

开源函数库现成的函数

(XD::String:CEChrSplit)中西文字符串拆分函数

13 个回复 - 1724 次查看

2013-8-11 16:27 - Lispboy - 开源函数库

命令: (XD::String:CEChrSplit "晓东CAD欢迎您")

("晓东" "CAD" "欢迎您")