它不起作用，我不知道为什么。。。
继续flopo并发布它。越努力越好。现在不要担心代码的外观。这是学习过程的一部分，你认为我们是如何开始的？那么继续，把代码贴出来
顺便说一句：如果dr1-dr5的值。。。。是实数而不是字符串，请删除atof
(set
(read (strcat "pnr" (itoa i)))
(polar (eval (read (strcat "pnr" (itoa (- i 1)))))
0
(eval (read (strcat "dr" (itoa (- i 1)))))
)
)
也试图回答你的下午，但显然你已经超过了邮件配额。 在这项任务中使用列表将使您受益匪浅。
我们以前也提过同样的建议
http://www.cadtutor.net/forum/showthread.php?64133-lisp帮助while/page2 我同意你们的观点，你们给了我很好的建议。但是，因为我的lisp知识非常低，所以我没有使用这个：
（setq i 1）
（重复nrpct
（套
（读取（strcat“dc”（itoa i）））
（实时操作系统
(-
（汽车
（评估
（阅读
（strcat“p”（itoa i））
)
)
)
（p1车）
)
2.
2.
)
)
（setq i（1+i））
)
我用过
（如果（>=nrpct 7）
（setq dc7（rtos（-car p7）（car p1））2）
（如果（>=nrpct
（setq dc8（rtos（-car p8）（car p1））2）
（如果（>=nrpct 9）
（setq dc9（rtos（-car p9）（car p1））2）
（如果（>=nrpct 10）
（setq dc10（rtos（-car p10）（car p1））2 2）））
（如果（>=nrpct 11）
（setq dc11（rtos（-car p11）（car p1））2 2）））
（如果（>=nrpct 12）
（setq dc12（rtos（-car p12）（car p1））2 2）））
（如果（>=nrpct 13）
（setq dc13（rtos（-car p13）（car p1））2）
（如果（>=nrpct 14）
（setq dc14（rtos（-car p14）（car p1））2）
（如果（>=nrpct 15）
（setq dc15（rtos（-car p15）（car p1））2）
（如果（>=nrpct 16）
（setq dc16（rtos（-car p16）（car p1））2 2）））
（如果（>=nrpct 17）
（setq dc17（rtos（-car p17）（car p1））2）
（如果（>=nrpct 18）
（setq dc18（rtos（-car p18）（car p1））2 2）））
（如果（>=nrpct 19）
......................................
.......................................
直到
（如果（>=nrpct 19）
（setq dc100（rtos（-car p99）（car p1））2）
我用了这个if的“集合”。。。。在大约15起案件中。。。
现在我试着替换它们，使我的Lisp程序缩短。我想用列表代替，但我不知道如何。。。所以我使用pbe向我展示的东西，因为这对我来说更容易理解它是如何工作的。我没有太多时间学习更多的嘴唇。。。所以一步一步地。。。但我会给你们看我的Lisp程序的杰作，让你们开怀大笑！！！！
traversare-100。LSP
特拉弗萨雷。图纸 很高兴你能发布代码flopo。我待会儿再看，看起来很简单。但是首先
给我们一个提纲，这些数字代表什么以及它们下面的块（“TAL”）。
为了您的利益，我们可能会给您一些提示，尽量不要重新编写代码。
看/看相同但不同 关于表中的数字：
第一行-。。。。。是清楚的
第二行-x轴上两个顶点之间的距离
第三行-x轴上第一个垂直点和相应垂直点之间的距离
最后一行-每个垂直度的y值-在本例中，我的lisp要求我选择一个垂直度，并告诉我哪个是该点y上的真实值-是关于一个地形剖面，其中实际上y是该点的高度-在我的lisp中，我显示了一个点-多段线上的垂直度，并指示该点的高度值，无论是哪一个。
该块“tal”表示地形的方向-坡度，哪个方向是-左或右。对不起，我的英语！ 你看过我贴的链接了吗？您可以使用相同的方法。填充pont列表，查看如何使用每个多段线点顶点确定线性尺寸的第一个和第二个点的位置？我只用了两个点变量就可以做到这一切。
你可以在日常生活中运用这种方法。试试看，霍勒，如果你有任何问题 好的，我也会试试这个，但我不知道什么时候。我那又大又笨的Lisp程序还能用，现在我就这么用。我问过你关于用……缩短Lisp程序的问题。。。。。。（setq i 1）（重复nrpct（set（读取（strcat“dc”（itoa i））。。。。。。因为我想学更多。。。。但是你在最后一个Lisp程序的地方给我看的对我的水平来说太多了。。。谢谢你的建议！
告诉你什么是flopo。我们仍然会使用你的方法，我只是给你一些选择供你考虑。我会根据你现在的作息方式以及我们如何缩短作息时间提出我的建议。要有耐心。
页:
1
[2]