(XD::Pnts:TransForm)点表的矩阵变换

Lispboy

1. ;|
   
2. 点的矩阵变换
   
3. 参数：
   
4.     pts ---- 点表
   
5.     mat ---- 变换矩阵
   
6. 
   
7. 返回值： 点表
   
8. |;
   
9. (defun XD::Pnts:TransForm (pts mat)
   
10.    (mapcar '(lambda(x)(xdrx_point_transform x mat)) pts)
    
11. )
    
12. 
    

;|<br /> 点的矩阵变换<br /> 参数：<br />     pts ---- 点表<br />     mat ---- 变换矩阵<br /> <br /> 返回值： 点表<br /> |;<br /> (defun XD::Pnts:TransForm (pts mat)<br />    (mapcar '(lambda(x)(xdrx_point_transform x mat)) pts)<br /> )<br /> <br />