如何用GH建高尔夫球？

channelfei

如题，真的懂怎么建的？问问各位大大，圆孔大小一致

本来的思路是做UV，嵌圆球，布尔
但是UV怎么也做到这样，求助，希望找到简单的方法

试看一下:
http://bbs.rhino3d.asia/thread-11880-1-4.html

看过了，没有讲思路，电池组合里面附带很多函数，希望这不是最简单的方法，同时请教ly兄讲讲大概思路

如题，真的懂怎么建的？问问各位大大，圆孔大小一致

本来的思路是做UV，嵌圆球，布尔
但是UV怎么也做到这样，求助，希望找到简单的方法
50191
channelfei 发表于 2011-2-14 20:49

Rhino 就有一个类似的指令，直接做这样的模型
http://bbs.rhino3d.asia/thread-11881-1-1.html

数学函数最好用“目测”容易体会

那个"舞动曲线"最好用来“目测”的
我直观理解为球面公式
另：复杂的数学曲线、曲面可用 "mathcad"

今天看到一个比较好理解的做法，就是多面体细分，然后细分到一定程度做投影点到球，然后做圆
但是代码不太懂，看看有没人了解
Private Sub RunScript(ByVal pts As List(Of On3dPoint), ByRef A As Object)
        Dim Isoca As New List (Of onpolyline)

    Dim Tri1 As New OnPolyline
    Tri1.Append(pts(0))
    Tri1.Append(pts(1))
    Tri1.Append(pts(2))
    Tri1.Append(pts(0))
    Isoca.Add(Tri1)

    Dim Tri2 As New OnPolyline
    Tri2.Append(pts(0))
    Tri2.Append(pts(2))
    Tri2.Append(pts(3))
    Tri2.Append(pts(0))
    Isoca.Add(Tri2)

    Dim Tri3 As New OnPolyline
    Tri3.Append(pts(0))
    Tri3.Append(pts(3))
    Tri3.Append(pts(4))
    Tri3.Append(pts(0))
    Isoca.Add(Tri3)

    Dim Tri4 As New OnPolyline
    Tri4.Append(pts(0))
    Tri4.Append(pts(4))
    Tri4.Append(pts(5))
    Tri4.Append(pts(0))
    Isoca.Add(Tri4)

    Dim Tri5 As New OnPolyline
    Tri5.Append(pts(0))
    Tri5.Append(pts(5))
    Tri5.Append(pts(1))
    Tri5.Append(pts(0))
    Isoca.Add(Tri5)

    Dim Tri6 As New OnPolyline
    Tri6.Append(pts(1))
    Tri6.Append(pts(6))
    Tri6.Append(pts(2))
    Tri6.Append(pts(1))
    Isoca.Add(Tri6)

    Dim Tri7 As New OnPolyline
    Tri7.Append(pts(2))
    Tri7.Append(pts(7))
    Tri7.Append(pts(3))
    Tri7.Append(pts(2))
    Isoca.Add(Tri7)

    Dim Tri8 As New OnPolyline
    Tri8.Append(pts(3))
    Tri8.Append(pts(8))
    Tri8.Append(pts(4))
    Tri8.Append(pts(3))
    Isoca.Add(Tri8)

    Dim Tri9 As New OnPolyline
    Tri9.Append(pts(4))
    Tri9.Append(pts(9))
    Tri9.Append(pts(5))
    Tri9.Append(pts(4))
    Isoca.Add(Tri9)

    Dim Tri10 As New OnPolyline
    Tri10.Append(pts(5))
    Tri10.Append(pts(10))
    Tri10.Append(pts(1))
    Tri10.Append(pts(5))
    Isoca.Add(Tri10)

    Dim Tri11 As New OnPolyline
    Tri11.Append(pts(6))
    Tri11.Append(pts(7))
    Tri11.Append(pts(2))
    Tri11.Append(pts(6))
    Isoca.Add(Tri11)

    Dim Tri12 As New OnPolyline
    Tri12.Append(pts(8))
    Tri12.Append(pts(9))
    Tri12.Append(pts(4))
    Tri12.Append(pts(8))
    Isoca.Add(Tri12)

    Dim Tri13 As New OnPolyline
    Tri13.Append(pts(9))
    Tri13.Append(pts(10))
    Tri13.Append(pts(5))
    Tri13.Append(pts(9))
    Isoca.Add(Tri13)

    Dim Tri14 As New OnPolyline
    Tri14.Append(pts(10))
    Tri14.Append(pts(6))
    Tri14.Append(pts(1))
    Tri14.Append(pts(10))
    Isoca.Add(Tri14)

    Dim Tri15 As New OnPolyline
    Tri15.Append(pts(7))
    Tri15.Append(pts(8))
    Tri15.Append(pts(3))
    Tri15.Append(pts(7))
    Isoca.Add(Tri15)

    Dim Tri16 As New OnPolyline
    Tri16.Append(pts(6))
    Tri16.Append(pts(11))
    Tri16.Append(pts(7))
    Tri16.Append(pts(6))
    Isoca.Add(Tri16)

    Dim Tri17 As New OnPolyline
    Tri17.Append(pts(7))
    Tri17.Append(pts(11))
    Tri17.Append(pts(8))
    Tri17.Append(pts(7))
    Isoca.Add(Tri17)

    Dim Tri18 As New OnPolyline
    Tri18.Append(pts(8))
    Tri18.Append(pts(11))
    Tri18.Append(pts(9))
    Tri18.Append(pts(8))
    Isoca.Add(Tri18)

    Dim Tri19 As New OnPolyline
    Tri19.Append(pts(9))
    Tri19.Append(pts(11))
    Tri19.Append(pts(10))
    Tri19.Append(pts(9))
    Isoca.Add(Tri19)

    Dim Tri20 As New OnPolyline
    Tri20.Append(pts(10))
    Tri20.Append(pts(11))
    Tri20.Append(pts(6))
    Tri20.Append(pts(10))
    Isoca.Add(Tri20)

    A = Isoca
  End Sub

比较好理解的，在上面挖什么都行了

能解释下代码表达的过程么，我知道这些代码指向的是这个多面体
那些ptX都是先定义好的吗?
谢谢

“如何用GH建......"
“真的懂怎么建的？”
不用那裹脚布的


拉出来Galapagos震几下就好了
切割金字塔
http://bbs.rhino3d.asia/thread-12897-1-4.html


傻的都看出来了，摆啥? 一楼的版主大大?
http://bbs.rhino3d.asia/thread-13064-1-1.html

上一组点(可以任意点），不借助脚本把它弄成闭合面

Del.rar (14.78 KB, 下载次数: 139)

2011-2-16 16:00 上传

点击文件名下载附件

J大几个月学龄的门生都不止这水平了
（还是偷师的）
但修养还没偷着......

二十面体