(XD::Pnts:Project)点集向过直线两点的垂平面任意方向的投影集

Lispboy

1. (defun XD::Pnts:Project (pnts p1 p2 direction / vx vz x)
   
2.    (setq vx (xdrx_vector_normalize (mapcar '- p2 p1))
   
3.          vz (xdrx_vector_perpvector vx)
   
4.    )
   
5.    (mapcar '(lambda(x)(xdrx_point_Project x (list p1 vz) direction)) pnts)
   
6. )
   
7. 
   

(defun XD::Pnts:Project (pnts p1 p2 direction / vx vz x)<br />    (setq vx (xdrx_vector_normalize (mapcar '- p2 p1))<br />          vz (xdrx_vector_perpvector vx)<br />    )<br />    (mapcar '(lambda(x)(xdrx_point_Project x (list p1 vz) direction)) pnts)<br /> )<br /> <br />