Lisp程序分到一定长度

SteveK · 发表于 2022-7-6 13:10:47

啊，所有的公式不仅仅是线段的数量-我注意到这里有一个线段长度公式，它看起来类似于你所说的：
（setq#seglen（/（#len（-（#seg#gap）#gap））#seg））
其中：#seg=[C]和#gap=0.25
你能理解吗？

无论如何，我只是输入了[C]（更新后的post#2）的值，它在示例图形中返回了正确的段。让我知道，

史提夫

SteveK · 发表于 2022-7-6 13:17:59

为了解释我添加的代码：
如果直线长度小于36，则不要更改线段数（我认为该值最初为4），否则，如果向下舍入的长度值等于长度（即整数），则将线段数返回为长度/36，否则将线段数返回为长度/36的值，向上舍入到下一个整数。

只需再次检查metric ~ imperial的输出是否正确。我相信距离函数总是以公制形式工作，但输出是您想要的

eric_monceaux · 发表于 2022-7-6 13:20:08

绝对完美！干得好！我喜欢CADtutor如何弥合全世界所有CAD用户之间的差距。否则，这个伟大的Lisp程序将不会是今天的样子。再次感谢Steve1。。。你是一个救生员。

SteveK · 发表于 2022-7-6 13:27:43

哈哈，是的，除了我们在世界各地的位置有时会让事情花一周的时间，你可以在一天内完成。很高兴一切顺利！

[编程交流] Lisp程序分到一定长度

发表回复

精选推荐