2009年4月29日星期三

2009年4月25日星期六

2009年4月21日星期二

2009年4月17日星期五

Convert text into 3D point in the space


今天真是郁闷,拿到一张没有高程的cad。于是找了一堆插件,居然不是要钱就是不能用。

很生气,自己写了个script,可以把cad的地形中的文字标高数值,直接转化成空间点脚本。配合voronoi插件,应该可以山寨一个地形出来吧。

Option Explicit

'Script written by 'Script version 2009年4月18日 1:09:06
Call ConvertTextintoPoint()

Sub ConvertTextintoPoint()

Dim strobjects: strobjects = rhino.GetObjects("select an texts",512,True,True)

Dim i

For i = 0 To ubound(strobjects)

Dim arrp: arrp= Rhino.TextObjectPoint(strobjects(i))

Dim number : number = CSng(rhino.TextObjectText(strobjects(i)))

On Error Resume Next

Dim Ve : ve = rhino.PointAdd(arrp,array(0,0,number))

Call rhino.AddPoint(ve)

Next

End Sub


2009年4月15日星期三

2009年4月13日星期一

2009年4月6日星期一

Gyroid minimal surface


Describe in math:
F()=cos(x) * sin(y) + cos(y) * sin(z) + cos(z) * sin(x)
[x]: -4 , 4
[y]: -4 , 4
[z]: -4 , 4


















Describe in math:
F()= cos(x) * sin(y) + cos(y) * sin(z) + cos(z) * sin(x)
[x]: -4 , 4
[y]: -4 , 4
[z]: -4 , 20