[LISP函数-点]：3D点转换到2D点

eachy

2. 
   
3. (defun xd-point->2d (p)
   
4.   (list (float (car p)) (float (cadr p)))
   
5. )
   
6. (defun xd-point->3d (p z)
   
7.   (list (float (car p)) (float (cadr p)) z)
   
8. )

<br /> (defun xd-point->2d (p)<br />   (list (float (car p)) (float (cadr p)))<br /> )<br /> (defun xd-point->3d (p z)<br />   (list (float (car p)) (float (cadr p)) z)<br /> )

aeo

无条件转成3d (只要有数据)

2. 
   
3. (defun 3d(p / x y)
   
4. (if p(mapcar '(lambda(x y)x)(append p '(0. 0. 0.)) '(0. 0. 0.)))
   
5. )
   

<br /> (defun 3d(p / x y)<br /> (if p(mapcar '(lambda(x y)x)(append p '(0. 0. 0.)) '(0. 0. 0.)))<br /> )<br />

(3d '(1)) -> '(1 0 0)
(3d '(1 2)) -> '(1 2 0) ...
前几天刚改的  :)

a_yun007

还可以，学习下

shaojingjing

无条件转成3D点   代码精炼,学习了

ScmTools

支持一个

FlyBird888

简单实用，支持！

yjch

代码经典，实用收下学习