两个表的比较的问题

小师傅 · 发表于 2024-4-13 15:35

我有两个表：
lst1 (330.0 384.0 203.0 311.0 330.0)
lst2 (330 384 203 311 330)
两个表的数量是一样的，我想对两个对比，
如： (car lst1)- (car lst2) (cadr lst1)- (cadr lst2)
依次比较下去，如果其中一项的差值大于1.0，则执行程序1，
如果差值全部<=1,则执行程序2
请问要怎么写

ssyfeng · 发表于 2024-4-13 15:35

本帖最后由 ssyfeng 于 2024-4-13 17:01 编辑

试试这个可以不：

(cond
((vl-some (function (lambda (x y)
(> (- x y) 1)
)
)
lst1 lst2
)
(princ "\n111");;执行程序1
)
(T
(princ "\n222");;执行程序2
)
)

复制代码

小师傅 · 发表于 2024-4-14 19:09

ssyfeng 发表于 2024-4-13 15:35
试试这个可以不：

谢谢大侠的回复

xtjd · 发表于 2024-4-19 09:28

(equal lst1 lst2 1.0)

账号		自动登录	找回密码
密码			注册

[提问] 两个表的比较的问题

最佳答案