一行文字拆分成单个的字

rocking2008

上面的附件，是一个可以将一行文字，拆分成一个一个单独的文字，原码出自“1028695446”，


功能：将选文字（支持单行和多行），这框选的所有文字，拆分成独立的一个一个的字，字，符号，数字，字母都是一个一个单独的，位置不变。

taoyi0727

http://bbs.mjtd.com/thread-184296-1-1.html

mikewolf2k

e2002 发表于 2022-4-25 17:53
没这个程序只处理Text，不管MTEXT的，MTEXT我就先Explode

请参考我的贴图。左列是原始元素MT，右列是拷贝过去然后炸掉的。
可以看到一行二列，如果MT设置的style是bigfont字体，MT中有格式用了其它字体，此时炸成单行文字，生成的单行文字会用textstyle，中英文混排的结果可能会乱，可以看到前面的123变宽，中文两个字位置偏左，但是宽度还是留出来了，3与中字重叠了。此时是ACAD炸的结果，我认为ACAD尚不能兼容这种情况。
我的MT也是先炸掉再处理炸掉的单行文字，所以第一行生成的边框是一样的，跟原始的MT不符，跟炸掉的DT相符。鉴于上面一段，我认为这是ACAD的bug，二开没法超越。

e2002

昨天就这个问题，发现程序处理ttf样式的TEXT对象，当此对象最前面是空格开头的时候，得到的结果是缺失了这些空格的宽度。但shx样式不会有这个问题。


查了一下，发现是 AutoLISP的 textbox 函数，对于这种情况的 Text ，返回的值不正确，应该是个bug（2023中是这样，以前版本请各位测试一下）

下面是测试用代码：




分解前后对比：



Update: 既然有这么个bug，思考了一个解决方案，写了个测试代码，验证了此方案可行，后续将针对空格开头的Text对象做一个处理，这样将能获得正确的结果。

e2002

很多年前写过，2020年改进了一下，分解结果做到了完全的原位置不变。
很少有人提这个需求，Maicy 之前也写了一个，几十年来都没人反馈过意见...

自贡黄明儒

e2002 发表于 2022-4-25 11:09
很多年前写过，2020年改进了一下，分解结果做到了完全的原位置不变。
很少有人提这个需求，Maicy 之前也写 ...

用了JUSTIFYTEXT？？

e2002

自贡黄明儒 发表于 2022-4-25 11:36
用了JUSTIFYTEXT？？

不是的，只是算法比较费事

hzyhzjjzh

谢谢分享

mikewolf2k

e2002 发表于 2022-4-25 11:50
不是的，只是算法比较费事

请问有没有试过bigfont的多行文字？我的程序，如果用bigfont，就会定位不准，如果下面的那个文字。上面文字是非bigfont字体，没问题。

masterlong

mikewolf2k 发表于 2022-4-25 13:21
请问有没有试过bigfont的多行文字？我的程序，如果用bigfont，就会定位不准，如果下面的那个文字。上面文 ...

多行文字非常复杂
不止字体的原因
控制符、特殊符号、自动换行等
都可能影响到单个字符的定位
find命令虽然不好用
但是它在定位这一块做得很到位

mikewolf2k

masterlong 发表于 2022-4-25 14:34
多行文字非常复杂
不止字体的原因
控制符、特殊符号、自动换行等

我是VBA做的，你的意思是LISP可以调用FIND？

masterlong

不是
我理解你的程序
是不炸开MT的情况下
给每个单独字符加框？

基于以上理解
我认为你的程序
很可能并没有考虑那些
前面回帖里说的很复杂的情况

说find命令这一点做得好
是因为各种情况下
它的定位都是准确的

e2002

mikewolf2k 发表于 2022-4-25 13:21
请问有没有试过bigfont的多行文字？我的程序，如果用bigfont，就会定位不准，如果下面的那个文字。上面文 ...

没这个程序只处理Text，不管MTEXT的，MTEXT我就先Explode