社区 › AutoLISP/Visual LISP 编程技术 › 两个表的比较的问题

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

两个表的比较的问题

我有两个表：
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:55

本帖最后由 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:44

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

谢谢大侠的回复

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

(equal lst1 lst2 1.0)

查看完整版本: 两个表的比较的问题