需要Lisp程序。。。。。。。李·麦蒂

MikeP · 发表于 2022-7-6 12:59:39

如果有人愿意接受挑战，我需要一份清单。也许李会来解围：D

请看附件DWG，看看我需要什么。

我非常感谢任何花时间帮助我的人。
口袋Lisp程序。图纸

Lee Mac · 发表于 2022-7-6 13:04:14

哈哈“这是给你的”。。。

就我所见，创建Lisp程序不太困难，也许其他人也可以尝试一下。

李

MikeP · 发表于 2022-7-6 13:07:28

我想，你会喜欢的。你过去已经帮了我很多了

MikeP · 发表于 2022-7-6 13:09:28

任何人

lpseifert · 发表于 2022-7-6 13:13:45

为什么不试着自己写呢？这里有一个很好的网站可以帮助你开始。
http://afralisp.net/
请注意Getpoint、Polar和Command函数。如果你被卡住了，发布你的代码，我相信这里的很多人会很乐意帮助你。

BIGAL · 发表于 2022-7-6 13:16:01

让你开始

（setq pt1（getpoint“\n点击pt1”））
（setq pt2（getpoint“\n点击pt2”））
（setq pt3（getpoint“\n点击pt3”））

（setq pt4（极性pt2 0.0.875））
（setq p5（极性p4 4.712 1.125））
以此类推，如果你看你的画，算出pt1，pt2，pt3等等
然后（命令行p5 p6“”）等继续重复polars大提示，然后“重复”pt1和pt2秒提示之间的距离。