Lt Dan's l 发表于 2022-7-6 10:02:00

选择设置块顺序

如何按顺序排列块的选择集。我可能错了，但它似乎通过插入点。
 
如果我打开这两个街区，它将首先选择角落。如果角块在4块上镜像，则仍将首先选择角块。

David Bethel 发表于 2022-7-6 10:15:40

我认为这取决于SORTENTS的价值。但问题是“为什么？”-大卫

Lt Dan's l 发表于 2022-7-6 10:26:58


顶部是我拥有的，底部是我努力实现的。
 
我已经能够选择面板块，我的lisp将为它们编号。我想做的是能够选择角块和面板块并对其编号。

David Bethel 发表于 2022-7-6 10:38:37

看起来像一个步入式冷藏箱。
 
如果面板插入点形成一个真正的矩形，则可以创建一个算法来计算每个面板插入点的顺时针位置。对于插入点的位置与气球编号的位置，这将是非常特定于项目的-大卫

Lt Dan's l 发表于 2022-7-6 10:54:47

这是一个步入式餐厅
 
我有一个程序，插入面板，角落，门和尺寸。圆圈和数字用于生产。问题是我们在构建步入式之前做了很多修改。就像我说的，我把它放在你选择面板的地方，然后它被插入到正确的位置，用正确的#。我的问题是角落。。。似乎我需要找到一种更好的方法来对这些区块进行编号

David Bethel 发表于 2022-7-6 11:08:08

我倾向于这样：
 
；；；ARG 2D点列表（defun cwnumber（lst/minx maxx miny maxy ll lr ur ul minxl maxxl minyl maxyl i tp fl）（defun AtoR（a）（*pi（/a 180.0））（setq minx（apply‘min（mapcar’car lst））maxx（apply‘max（mapcar’car lst））miny（apply‘min（mapcar’cadr lst））maxy（apply‘max（mapcar’cadr lst）））（setq ll（List minx miny）lr（List maxx miny）ul（list minx maxy）ur（list maxx maxy））（grvecs（list 1 ul ur 2 ur lr 3 lr ll 4 ll ul））（foreach p lst（and（not（member p（list ul ur lr ll））（=minx（car p））（setq minxl（cons（cadr p）minxl））（not（member p（list ul ur lr ll））（=maxx（car p））（setq maxl（cons（cadr p）maxl））（not（member p（list ul ur lr ll））（=miny（cadr p））（setq minyl（cons（car p）minyl））（和（not（member p（list ul ur lr ll））（=maxy（cadr p））（setq maxyl（cons（car p）maxyl）））（setq minxl（qsort minxl'
页: [1]
查看完整版本: 选择设置块顺序