Bulb

club house concept

Form

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

lamp

voronoi

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