空间三角形面积

Free-Lancer

更详细的见高飞鸟版主帖子 http://bbs.xdcad.net/forum.php?mod=viewthread&tid=667495
留存

1. ;;空间三点
   
2. (defun Tri:Area (p1 p2 p3)
   
3.   (abs (* 0.5
   
4.           (distance p3 p1)
   
5.           (car (trans (mapcar '- p2 p1) 0 (mapcar '- p3 p1)))
   
6.        )
   
7.   )
   
8. )
   

;;空间三点<br /> (defun Tri:Area (p1 p2 p3)<br />   (abs (* 0.5<br />           (distance p3 p1)<br />           (car (trans (mapcar '- p2 p1) 0 (mapcar '- p3 p1)))<br />        )<br />   )<br /> )<br />