点插入Lisp

jaylo23 · 发表于 2022-7-6 17:43:53

我个人一直在使用点过滤器。我不知道我的一些起草者是如何在没有掌握他们的3D技术的情况下生存下来的，我猜是起草者的偏好。但不幸的是，他们中的很多人都这么做了，当我们在这里专门从事3D工作时，有多少人不想使用他们，或者不能很好地掌握这个概念（尤其是刚从大学毕业的孩子们），这让人感到疯狂。这就是为什么我想要一个“错误”证明和有效的Lisp程序的完成这一点。谢谢你的建议，我非常感谢。我目前正试图拼凑出一个难看的Lisp程序，我将张贴（我有一些问题和问题）以获得一些建议和反馈。

jaylo23 · 发表于 2022-7-6 17:45:09

备注：这可以应用于圆锥体。除了象限或中心之外，圆锥体上没有捕捉点，但是我需要沿着圆锥体的斜率的跟踪点，或者我遗漏了什么，这可以用于圆锥体？

ReMark · 发表于 2022-7-6 17:49:53

你说得对。在圆锥体的水平面上必须有某种东西“在那里”，它将与喷嘴的C.L.相交。一个圆圈？但这将涉及另一个步骤。

jaylo23 · 发表于 2022-7-6 17:51:30

确切地还有其他建议吗？在与大假发共进午餐后，我正在完成Lisp程序。我大约一个小时后发到这里。

ReMark · 发表于 2022-7-6 17:56:54

目前没有其他建议。我祝愿你的努力取得成功。

jaylo23 · 发表于 2022-7-6 18:00:00

好吧，这已经有一段时间了，但在我的业余时间，我终于得到了这个Lisp程序的工作有点。如果任何一个Lisp程序的家伙可以看看这个，并提供一些意见和一些建议，以清理它将不胜感激。此外，他还想添加一个提示，询问用户“喷嘴的尺寸（英寸）”和，如果假设用户输入2，则lisp将从我们的网络中为块库中的其他尺寸喷嘴插入2“喷嘴块，依此类推，而不是插入点。此外，我如何使其接受用户的不同单位。例如，在lisp上，我无法为半径输入2’，我得到一个“需要数字值”“错误，我必须输入24.P.S。有关此lisp的更多信息，请参阅本文开头的附图。

jaylo23 · 发表于 2022-7-6 18:01:02

对不起，各位，这是Lisp程序

（defun DTR（D）
（/（*pi D）180.0）
);DTR结束
（defun C：喷嘴（/APEX PRO RAD PT1 PT2 PT3）
（命令“_ucs”“w”）
（setq APEX（getpoint“\n锥尖：”）
（setq PRO（getreal“\n输入喷嘴投影：”）
（setq RAD（getreal“\n输入油箱上喷嘴位置的半径：”）
（setq ROT（getreal“\n从180开始在油箱上插入喷嘴旋转：”）
（setq PT1（极顶点（DTR 0）RAD））
（setq上升（/RAD 3.732050807568877293527446341559））
（setq PT2（极性PT1（DTR 270）上升））
（setq PT3（polar PT2（DTR 90）PRO））
（命令“_点”PT3）
（命令“_rotate”“si”“l”APEX ROT）
（命令“_ucs”“p”）
);喷嘴末端