找到值然后处理列表？

mojo8997 · 发表于 2022-7-6 11:37:31

嘿，伙计们，我有个问题，还在这里学习。。。但是

我的朋友给我发了这个例子，但一直很忙，我们没有时间多谈。我不知道怎么做，今天我真的可以用它，如果我能弄明白的话，任何帮助都将不胜感激！！


[font=Arial][font=Arial][font=Arial](setq ABC212 (LIST '(AA 1 2 3 4)[/font]
[font=Arial]                            '(AB 2 3 4 5)[/font]
[font=Arial]                            '(AC 3 4 5 6)[/font]
[font=Arial]                    );end list[/font]
[font=Arial]);end setq[/font]
[/font][/font]

Lee Mac · 发表于 2022-7-6 11:50:53

你想要实现什么？

mojo8997 · 发表于 2022-7-6 11:57:02

我想有一个参数化形状的列表，我可以绘制，然后沿着一条线拉伸它们，我将使用这些列表获得点，然后沿着点创建一个pline，然后拉伸它。因此，我试图找出如何钻取子列表并加载正确的子列表，然后从该子列表中绘制点，然后运行例程

Lee Mac · 发表于 2022-7-6 12:03:56

好的，那么你想在这个列表上执行什么操作？

mojo8997 · 发表于 2022-7-6 12:12:43

我想从一点到另一点绘制一条样条线，然后闭合它，然后挤出它（通过输入距离）

mojo8997 · 发表于 2022-7-6 12:17:34

所以我想输入defun，然后指定列表，比如AA，然后告诉它从我选择的基点挤出多远

Lee Mac · 发表于 2022-7-6 12:25:24

那么您在第一篇文章中提供的列表是多段线的顶点列表？

我建议调查assoc功能。

alanjt · 发表于 2022-7-6 12:35:03

不要忘记cdr。

copy

Command: (assoc "B" (list '("A" 1 2 3) '("B" 4 5 6) '("C" 7 8 9)))
("B" 4 5 6)
Command: (cdr (assoc "B" (list '("A" 1 2 3) '("B" 4 5 6) '("C" 7 8 9))))
(4 5 6)

mojo8997 · 发表于 2022-7-6 12:38:49

让我试试，我刚开始Lisp程序，然后我忙于工作，现在我试着记住一切

[编程交流] 找到值然后处理列表？

发表回复

精选推荐