替换点对

aloy · 发表于 2022-7-5 17:53:55

大家好，
我想替换列表l中以3开头的所有虚线对，如下代码所示。但该代码仅替换第一次出现的代码。如何解决问题：


(defun test()
(setq l '((3 . 7) (2 . 5) (3 . 9)))  
(setq l (subst '(3 . 6)  (assoc 3 l) l))    
)

Tharwat · 发表于 2022-7-5 18:04:47

你好

您应该遍历列表并验证第一个元素是否等于3，然后进行替换，以便此时可以使用foreach函数。
先自己试试，让我们知道你做得怎么样。

Lee Mac · 发表于 2022-7-5 18:05:08

假设您希望用第一个出现的点对替换第一个（3.7）项，用“3”作为键，然后用第二个出现的点对替换第二个（3.9）项，用键为3？

如果是这样，我建议使用mapcar迭代主列表，并使用assoc对照替换列表检查每个列表项的键（第一个元素）。如果进行了替换，则需要从替换列表中删除该项。

aloy · 发表于 2022-7-5 18:13:12

LM，
谢谢你的建议。我尝试了以下方法，但没有成功。我怎样才能纠正它？。

copy


(defun test() 
(setq l '((3 . 7) (2 . 5) (3 . 9)))
 (setq n(length l))
 (setq a '(3 . 6))
 (repeat n
(setq l (subst '(3 . 6)  (assoc 3 l) l))
 (setq l(vla-remove a l))
 )
)

aloy · 发表于 2022-7-5 18:21:00

嗨，塔瓦，
我在“if”条件下尝试了你的方法。迭代似乎不采用“if”。
当做
芦荟

BIGAL · 发表于 2022-7-5 18:24:19

试试这个

copy


(defun test() 
(setq l '((3 . 7) (2 . 5) (3 . 9)))
 (setq a '(3 . 6))
 (repeat (setq n (length l))
 (setq b (nth (setq n (- n 1)) l))
   (if (= (car b) 3)(setq l (subst a b l)))
 )
)
(test)

aloy · 发表于 2022-7-5 18:28:48

谢谢BIGAL，它很管用。我相信这将使我能够通过访问数据库中的项目来处理Autocad 2010无法使用Visual Lisp处理的“表”实体。然后，我可以从列表中输入数据。
再次感谢，
芦荟

Tharwat · 发表于 2022-7-5 18:36:05

在这里；

copy


(setq l '((3 . 7) (2 . 5) (3 . 9)))
(foreach x l
 (if (= (car x) 3)
   (setq l (subst '(3 . 6) x l))
   )
 )

aloy · 发表于 2022-7-5 18:37:45

谢谢Tharwat，
它工作得很好。
当做
芦荟

Tharwat · 发表于 2022-7-5 18:46:31

真为你高兴。不客气。

[编程交流] 替换点对

发表回复

精选推荐