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

找到值然后处理列表?

嘿,伙计们,我有个问题,还在这里学习。。。但是
 
我的朋友给我发了这个例子,但一直很忙,我们没有时间多谈。我不知道怎么做,今天我真的可以用它,如果我能弄明白的话,任何帮助都将不胜感激!!
 

(setq ABC212 (LIST '(AA 1 2 3 4)
                            '(AB 2 3 4 5)
                            '(AC 3 4 5 6)
                  );end list
);end setq

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。
 
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程序,然后我忙于工作,现在我试着记住一切
页: [1]
查看完整版本: 找到值然后处理列表?