讨论 --- 如何用GH建高尔夫球?

[复制链接]
跳转到指定楼层
585310 channelfei 发表于 2011-2-14 20:49:58 楼主
如题,真的懂怎么建的?问问各位大大,圆孔大小一致

本来的思路是做UV,嵌圆球,布尔
但是UV怎么也做到这样,求助,希望找到简单的方法
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享
关于大陆地区Rhino原厂培训中心
lyyy 发表于 2011-2-14 20:55:18
2
 楼主| channelfei 发表于 2011-2-14 21:03:22
3
看过了,没有讲思路,电池组合里面附带很多函数,希望这不是最简单的方法,同时请教ly兄讲讲大概思路
Jessesn 发表于 2011-2-14 22:12:34
4
如题,真的懂怎么建的?问问各位大大,圆孔大小一致

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


Rhino 就有一个类似的指令,直接做这样的模型
http://bbs.rhino3d.asia/thread-11881-1-1.html
lyyy 发表于 2011-2-14 22:40:27
5
本帖最后由 lyyy 于 2011-2-14 23:01 编辑

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

那个"舞动曲线"最好用来“目测”的
我直观理解为球面公式
另:复杂的数学曲线、曲面可用 "mathcad"
 楼主| channelfei 发表于 2011-2-15 12:35:26
6
今天看到一个比较好理解的做法,就是多面体细分,然后细分到一定程度做投影点到球,然后做圆
但是代码不太懂,看看有没人了解
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
lyyy 发表于 2011-2-15 12:46:48
7
本帖最后由 lyyy 于 2011-2-15 12:49 编辑

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

评分

参与人数 1坛币 +2 收起 理由
Jessesn + 2

查看全部评分

 楼主| channelfei 发表于 2011-2-15 15:57:09
8
能解释下代码表达的过程么,我知道这些代码指向的是这个多面体
那些ptX都是先定义好的吗?
谢谢
lyyy 发表于 2011-2-16 13:09:42
9
本帖最后由 lyyy 于 2011-2-16 13:49 编辑

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


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


傻的都看出来了,摆啥? 一楼的版主大大?
http://bbs.rhino3d.asia/thread-13064-1-1.html
lyyy 发表于 2011-2-16 15:57:19
10
本帖最后由 lyyy 于 2011-2-25 12:43 编辑

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

Del.rar (14.78 KB, 下载次数: 135)
J大几个月学龄的门生都不止这水平了
(还是偷师的)
但修养还没偷着......

二十面体
您需要登录后才可以回帖 登录 | 注册成为会员

本版积分规则