分层

luiscarneirorm · 发表于 2022-7-6 09:25:43

我正在尝试制作一个gif，就像我在这里看到的一样，来展示我打算做什么。

luiscarneirorm · 发表于 2022-7-6 09:30:37

这是我的gif（太大了？？）

我在这里还放置了gif中出现的示例的初始文件和最终文件。

这个文件不是最好的解释我的问题，因为它是非常“线性”，但我认为你可以尝试解释我做什么。

pBe · 发表于 2022-7-6 09:33:41

说真的，我现在就告诉你，你把这些数字分组在一个正方形盒子里的方法是行不通的。你需要考虑的是窗口的大小。

最初，示例代码会提示您输入起点，这样您就可以以某种方式指定“扫描”的开始位置。对于这样一个例子，你可以不受惩罚。，但是，同样的，一个相等的LxW选择更有可能给你带来问题，提示窗口大小2点可以消除这个问题。

luiscarneirorm · 发表于 2022-7-6 09:34:26

对不起，我不太明白你的帖子。
在我之前的帖子中，我试着放一个gif，但似乎效果不太好。

对不起，我的英语很差，我正在使用翻译，这意味着有时我不能很好地解释，我无法理解我想说的话，就像之前的帖子：哎呀：

在我之前的帖子中，我说我放了2个文件，但失败了，最后没有放。

现在，是的，我拿到了文件，看看我是否这样理解自己，因为用词很难：哭：

第一个文件是原件，第二个是我打算得到的。
placa1.dxf
placa2.dxf

luiscarneirorm · 发表于 2022-7-6 09:38:58

也许如果我解释一下我的目标，你们会更容易理解。
就是这样，我正在使用激光雕刻机，记录区域是200x200，或者其他值取决于我使用的镜头。所以当我有一个比这更大的绘图区域时，我必须在这个区域中加入几个层，然后继续录音。我认为这是显而易见的，这是我的目标。
这是我需要有这个自动化过程的功能之一，这将节省我很多小时的工作。

Jeff H · 发表于 2022-7-6 09:42:27

我想我理解他在追求什么。

我不是一个Lisp程序的人，但一种方式来做到这一点。NET类似于lisp的方法是从0,0到200200执行SelectWindow，然后更改属于SelectWindow的所有实体层

现在做一个从0,0到200200的CrossingWindow，看看和之前的select窗口相比，CrossingWindow中是否有任何对象。（查看是否有任何对象仅部分位于选择窗口中）

如果没有新对象，则下一个窗口将从200，0到400200。

如果有新对象，则获取每个对象的边界框
对于右上角大于200的每个边界框，使用最小的Y值作为下一个级别的开始。（因此，如果最低的Y值是180，那么当您移动到下一行时，您从0180开始）

对于其他窗口，获取最低的X值作为下一组窗口的开始。

在前两组窗口的图片中，d由两个不同的对象组成，因此绿色部分完全落在窗口中，其最低X值将是下一个绿色窗口的X值。

可能会出现问题，例如，当你向上移动时，你需要检查一个对象是否已经改变了层，因为一个对象可能会落在多个窗口中。

如果所有对象与窗口相比都不大于某个大小，那么这可能会起作用。当您得到边界框时，如果它的面积大于窗口面积的百分比，则显示错误消息并停止例程

pBe · 发表于 2022-7-6 09:45:12

我也注意到了。我是在“太大”的规则下工作的。我们可以通过“C”而不是“W”修改选择，唯一的问题是它将取代“过大”条件。

一个快速的解决方案是创建实体的副本，该副本位于多个窗口中。这样，实体将显示在两个窗口（层）上

同样从OP发布的dxf样本来看，200*200框似乎不是从0,0开始的。所以我用“_C”选项测试了代码，结果有点不对劲。

工作太多

已更新发布代码

附加的lisp包括CopytoPreviousLayer选项
拆分层2。LSP