[求助]：如何获得字体的宽度？

CFXQM

比如说有这样一段文字“我是一个兵，来自老百姓”，我要将它从逗号处分为2段，但是文字的显示位置不变。我想将它分为2段后，第一段只是文字内容变化，第二段要添加，但是第二段的起点位置如何定？各种字体的宽度不一样。

lsjjm

"字体的宽度"是指单个字还是整个文本的宽度?
你的问题已知条件不充分: 第一段变化后, 字数变不变? 第二段要添加, 这长度不是变了吗?
我看还不如用一个新的文本来替换旧文本来得快?

CFXQM

字体的宽度指单个字的宽度，由字数我可以算出“我是一个兵，”的长度，然后可以确定“来自老百姓”的起点在哪儿。知道了起点，我就可以用TEXT或其他的方法写“来自老百姓”。我是想把一段文字从某个点分成两段。

eachy

晓东工具箱－》文字－》中西拆分、文字断开；
你看懂了代码，也就会用纯Lisp完成了同样的功能了。

lijiao

最初由 CFXQM 发布
[B]字体的宽度指单个字的宽度，由字数我可以算出“我是一个兵，”的长度，然后可以确定“来自老百姓”的起点在哪儿。知道了起点，我就可以用TEXT或其他的方法写“来自老百姓”。我是想把一段文字从某个点分成两段。 [/B]

不用逐个字符计算宽度，可以用TEXTBOX函数进行处理。

ll_j

大体上就是这样：

1. 
   
2. (+ x0 (- (caadr (textbox '((1 . "我是一个兵，来自老百姓"))))
   
3.             (caadr (textbox '((1 . "来自老百姓"))))
   
4.          )
   
5. )
   

复制代码

当不使用当前字体设置时还需要在textbox列表中加上相关选项。