如何快速修改一个列表里面的所有Z坐标

zjh2785

假如我有一个列表 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 ))
  )

有没有更好的办法呢

yshf

(setq newfitPoints (mapcar '(lambda(pt)(list (car pt) (cadr pt) 100.0)) fitPoints))

zjh2785

yshf 发表于 2017-10-8 20:19
(setq newfitPoints (mapcar '(lambda(pt)(list (car pt) (cadr pt) 100.0)) fitPoints))

非常感谢 ，这方法很管用，简洁。

nf0212

多谢楼主的无私分享，学习了！