如何快速修改一个列表里面的所有Z坐标
假如我有一个列表 fitPoints(1.0 1.0 0.0) (2.0 2.0 0.0) (3.0 3.0 0.0))有什么好的办法把里面的Z坐标全部统一改成100.0,就是这样子：
(1.0 1.0 100.0) (2.0 2.0 100.0) (3.0 3.0 100.0))
我是这样子的，但好像所有表的顺序都成了倒序的，
(foreach i fitPoints
(setq NewPoints (cons (list (car i) (cadr i) 100.0) NewPoints ))
)
有没有更好的办法呢
(setq newfitPoints (mapcar '(lambda(pt)(list (car pt) (cadr pt) 100.0)) fitPoints)) yshf 发表于 2017-10-8 20:19
(setq newfitPoints (mapcar '(lambda(pt)(list (car pt) (cadr pt) 100.0)) fitPoints))
非常感谢 ，这方法很管用，简洁。 多谢楼主的无私分享，学习了！
页:
[1]