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

啊，所有的公式不仅仅是线段的数量-我注意到这里有一个线段长度公式，它看起来类似于你所说的：
（setq#seglen（/（#len（-（#seg#gap）#gap））#seg））
其中：#seg=和#gap=0.25
你能理解吗？
 
无论如何，我只是输入了（更新后的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

哈哈，是的，除了我们在世界各地的位置有时会让事情花一周的时间，你可以在一天内完成。很高兴一切顺利！
页: 1 [2]
查看完整版本: Lisp程序分到一定长度