【越飞越高讲堂17】论点、线、面、三角形及多边形

sunny20102

说好不灌水的,哎,下载了东东,最少也得说声谢谢
Highflybird , thank U a ton.

cheng5276

绝顶飞鸟！

gufeng

非常好 数学方面很难得

004

谢谢高飞老师。。

xyp1964

有些函数可以优化，如：

2. ;; 功能: 偏移一条线段
   
3. ;; 输入: 两点和一个距离（负数代表直线段的下方）
   
4. ;; 输出: 偏移后的两点
   
5. (defun LINE:Offset (p1 p2 dist / rad)
   
6.   (setq rad (+ (angle p1 p2) (* pi 0.5)))
   
7.   (list (polar p1 rad dist) (polar p2 rad dist))
   
8. )

;; 功能: 偏移一条线段<br /> ;; 输入: 两点和一个距离（负数代表直线段的下方）<br /> ;; 输出: 偏移后的两点<br /> (defun LINE:Offset (p1 p2 dist / rad)<br />   (setq rad (+ (angle p1 p2) (* pi 0.5)))<br />   (list (polar p1 rad dist) (polar p2 rad dist))<br /> )

chshsl

看到算法,头就大了,有了这么好的算法,不看不行啊!谢谢楼主

vormittag

空间三点求三角形面积，其实也可以直接用distance计算两点间的距离，应用海伦公式。

yshf

highflybir，你那个三角网生成程序algorithms(命令ddd)能不能改为生成的每个三角形用一条封闭的多段线表示？

highflybir

yshf 发表于 2013-1-14 20:20
highflybir，你那个三角网生成程序algorithms(命令ddd)能不能改为生成的每个三角形用一条封闭的多段线表示？ ...

手头上这几天没有vs，暂时不能修改，过几天把这几个修改一下。

yshf

谢谢highflybir！！！