偶数整除性检查
我在一个Lisp程序的过程中把墙板放在建筑的轮廓上。带尺寸和面板计数。
如果建筑长度正好可以被嵌板宽度整除，我希望嵌板从侧面开始。。
否则，面板将从中间走向边缘。
我只是不知道如何检查它是否完全可除（没有余数）。。 在我的脑海里。。。
(if
(= 0 (rem bldglength panelwidth))
(start from end)
(start from middle)
)
太棒了，谢谢。，我甚至还没有完成变量的本地化。这正是我需要的。 我在模块化制冷面板上使用了非常类似的东西
owid=总宽度
pwid=面板宽度
xl=接缝点列表
(if (zerop (rem owid pwid))
(progn
(setq xp 0 i 0)
(repeat (1+ (fix (/ owid pwid)))
(setq xl (cons (* pwid i) xl)
i (1+ i))))
(progn
(setq xp (* owid 0.5) i 0)
(repeat (fix (* (/ owid pwid) 0.5))
(setq xl (cons (- xp (* pwid (+ i 0.5))) xl)
xl (cons (+ xp (* pwid (+ i 0.5))) xl)
i (1+ i)))
(setq xl (cons 0 xl)
xl (cons owid xl))))
xl使用相等的面板排序，而不是使用中点列表-大卫 这看起来确实很像我正在做的，我已经得到它，你选择屋顶线，然后墙线，输入面板宽度，它创建了多个矩形，增加到最高点（面板上的屋顶），每个都有一个尺寸。。。当我（接近）完成时，我会把它贴出来，以防有人需要它。。大便，每栋楼可以节省我大约一个小时。。特别是如果我将dim值打印到csv。。。。嗯：嗯：
页:
[1]