Sorta是这种“生产”型绘图的新手。我肯定会开始考虑其他可以简化的任务。
如果我正确地理解了你；我只需要从上面的代码中创建一个新的lsp文件？（您最初制作的，但现在已修改）
非常感谢，希望有一天我能提前付款。
我确实为您修改了原始代码。希望你能从评论中学习。 非常感谢，我希望明天能把它转发给你。 朗琼普，
您的代码运行良好，非常感谢。在更大的图纸上，一些文字变得混乱，可以说是放错了地方。有没有办法暂停用户输入，让我选择我想要的文本，然后让选择自动移动；然后根据需要重复。也许与下面类似？
（getpoint）等待用户输入点，并将点的坐标作为列表返回。如果提供了可选的点列表参数，则从点参数到十字光标会出现一条拖曳线。当用户选择点时程序暂停时，可选提示必须是字符串，并显示在命令行上。
谢谢
保罗 可能会在结果不符合要求的地方发布您的绘图。。也许还有其他规则需要寻找。 朗琼普，
随附的是（2）个dwg。在foo命令之前命名的dwg中的黄色文本是混淆的文本。执行的名为foo的dwg命令显示黄色文本的结束位置，并将其他红色文本进一步向下推到图形中。
谢谢
保罗
在FOO命令之前。图纸
执行了FOO命令。图纸 问题：要移动的文本是否总是一致的颜色？您的示例图形将它们全部显示为红色。
如果是这样，则将红色部分添加到过滤器（null（setq t2（ssget“_x”'（（0。“text”）（8。“OLI\u ANTEXT”）（62.1 k）а） 在这一点上，答案是否定的（它们都是相同的颜色）。为了清晰起见，我一直在改变颜色。我的第一个想法是把“混乱”的文字换成另一层，这意味着我要手动选择每一个。如果这是最好的解决方案，那就好了。我只是想知道我们是否还能做点别的。我非常感谢你的帮助。
再次感谢，
保罗 我想我可能有个主意。。稍后将发布内容。 试试这个版本。它只抓取指定最大距离（setq maxd（*y 8））内的文本。。根据我的测试，这种方法在您的绘图上效果很好。我还在代码中留下了两个双重检查项，用于圈出未处理的基本文本，并用一行显示文本所在的位置和移动到的位置。试试看！
2
页:
1
[2]