请教大神，帮忙把调整行距程序加上包围框概念，批量调整~有原程序参考~

听见天晴

手上有2个从明经下载的程序想整合，自己又不太会，所以尝试想让chatgpt整合在一起，试了很多次都不成功，可能是我表达能力太差了，还是希望大神帮忙整合一下：

1.包围盒加上模糊距离的程序
2.调整文字行距程序（有2个），我觉得都不错，均希望可以实现，如不方便就改第一个。
我希望达到的目的：可以用X轴方向包围盒设置模糊距离的概念去分组文字，这个距离预设定为100，可以通过输入调整，批量调整，然后不同分组单独执行这个程序，实现批量调整行距，又不把文字拉到一起。
目前的程序只要一次框选的，全部会拉到一列，左边对齐排列，但我的文字是在不同图框里，我希望通过图层仅显示那些文字，然后设置一个距离，距离内的才拉到一起左边对齐调整行距，距离外的单独调整行距。一次框选批量调整行距，只需要输入一次行距，所有分组都按这个行距执行。这样就可以实现我一次调整很多个图框里的文字。
如图中距离是24.5 我输入的距离小于24.5就分组单独调整，如果我输入的值大于25，则和原程序一样，合并到一起，希望大神帮改一下，谢谢~

以下是原程序：

xtjd

听见天晴 发表于 2024-7-11 14:57
问题解决，程序很好，谢谢大佬~大佬有空的话能否帮改一个同时判断X和Y方向的，之前想着图纸只排一排 ...

(defun c:t3()(c:X:Str-Arrange))

xtjd

听见天晴 发表于 2024-7-10 21:56
感谢大佬，程序可以用，但是我同时选多组文字，字高有差异，我执行后，会按框选第一行的字高计算，后面有 ...

附件 字串堆排列.lsp
仅针对本贴楼主所提供图档测试通过
注意：
1）文字成堆Y向间距未作判别
2）堆文字排列间距以堆第一行字高为依据

ssyfeng

这个可以试试先按距离分组，再逐一用你的程序应该就可以

有区别吗

表达确实有点问题.
你这需求就是要分个堆.
善用论坛搜索.

xtjd

测试：隐藏内容回复可见
=================

=================

tigcat

看着挺好用的

听见天晴

xtjd 发表于 2024-7-10 11:15
测试：隐藏内容回复可见
=================
**** 本内容被作者隐藏 ****

感谢大佬，程序可以用，但是我同时选多组文字，字高有差异，我执行后，会按框选第一行的字高计算，后面有些字大一些的话就会重叠在一起，这个可以改成按每组的第一行字高算吗？

bai2000

感谢大佬，程序可以用

cj52000

谢谢，来看看

听见天晴

xtjd 发表于 2024-7-9 23:21
附件 字串堆排列.lsp
仅针对本贴楼主所提供图档测试通过
注意：

问题解决，程序很好，谢谢大佬~大佬有空的话能否帮改一个同时判断X和Y方向的，之前想着图纸只排一排，刚刚想到如果过图纸多的话，可能还是会有2排的情况。