NCF参数化建筑论坛

标题: 随机渐变的圆 [打印本页]
作者: cjsyzwsh    时间: 2010-3-2 20:16
标题: 随机渐变的圆
嗯，看到网站上有人用GH做了东西，自己也写了一个，给大家看下……
[attach]4698[/attach]

[attach]4698[/attach]
作者: skywoolf    时间: 2010-3-2 22:19
学习一下，感谢分享～
作者: wangsh    时间: 2010-3-2 22:23
很不错哈…………
作者: wangsh    时间: 2010-3-2 22:24
我是新手，向大家学习
作者: wangsh    时间: 2010-3-2 22:28
我是新手，向大家学习
作者: scott    时间: 2010-3-2 22:35
很好的练习材料~希望以后多来点一起交流学习!
作者: claudemit    时间: 2010-3-3 03:08
本帖最后由 claudemit 于 2010-3-3 04:41 编辑

费了半天老鼻子劲 终于也做出来了
但是 好像x大于等于2y的时候 效果才比较好  否则就有一行BUG
调整了半天也弄不好


LZ麻烦吧阅读权限设低一些 买不了啊

最后修正了下 X与Y的比例还是要限定
是不是加个Vb做判断就好了 但是我还没有学
[attach]4722[/attach]
作者: hadid    时间: 2010-3-3 16:43
很不错，分享rvb让人敬佩
作者: huanglee    时间: 2010-3-3 17:34
学习一下 谢分享
作者: 特莱嘻嘻嘻    时间: 2010-3-5 23:16
Randomize  是干什么的。。
作者: cjsyzwsh    时间: 2010-3-6 09:03
随机函数初始化
作者: 552zxp64    时间: 2010-4-13 14:37
强烈支持！ 谢谢分享
作者: wikii    时间: 2010-4-18 01:49
挺有趣的一个小任务，没有看楼主的代码，自己完成的。
[attach]6031[/attach]
  1. Option Explicit

  3. '------------------------------------------------------------------------------

  5. ' Subroutine: ArrayPointsOnSurface

  7. ' Purpose: Creates an array of points on a surface.

  9. '------------------------------------------------------------------------------
  10. Dim rad
  11. rad=10

  13. Dim radfin
  14. radfin=2

  16. Dim grid
  17. grid=rad*2.05


  20. Dim fade
  21. fade=0.95

  23. Dim origin,oldorigin
  24. origin=Array(0,0,0)
  25. oldorigin=origin

  27. Dim columns
  28. columns=20

  30. Dim odd
  31. odd=True


  34. Randomize

  36. Dim n ,m
  37. m=0

  39. Dim circle
  40. Dim arrObject
  41. arrObject=Array
  42. ReDim arrObject(1)


  45. While rad>radfin
  46. For n=0 To columns
  47. If Rnd*10<rad Then
  48. 'Rhino.AddPoint origin
  49. circle= Rhino.Addcircle(Rhino.MovePlane (Rhino.WorldXYPlane, Origin),rad)
  50. arrObject(UBound(arrObject, 1)-1) = circle
  51. ReDim Preserve arrObject(UBound(arrObject, 1)+1)

  53. End If

  55. origin(0)=origin(0)+grid

  57. Next
  58. m=m+1
  59. If odd Then
  60. origin(0)=grid/2
  61. columns=columns-1
  62. Else
  63. origin(0)=0
  64. columns=columns+1
  65. End If
  66. odd=Not(odd)
  67. origin(1)=origin(1)+rad*2.05
  68. rad=rad*fade
  69. Wend

  71. ReDim Preserve arrObject(UBound(arrObject, 1)-1)
  72. Dim name
  73. For n=0 To UBound(arrObject, 1)-1
  74. name=Array( arrObject(n))
  75. Rhino.AddPlanarSrf (name)
  76. Next




复制代码
作者: wikii    时间: 2010-4-18 01:51
本来打算加上注释的，发现rhino的script编辑器对中文支持不好，会出乱码。
作者: wikii    时间: 2010-4-18 01:53
我想用
Rhino.AddPlanarSrf (arrObject)

可是老出错

只好用 笨办法
Dim name
For n=0 To UBound(arrObject, 1)-1
name=Array( arrObject(n))
Rhino.AddPlanarSrf (name)
Next
作者: bbjlk    时间: 2010-4-20 17:36
学习一下~~
作者: baobaoshu    时间: 2010-4-21 16:27
想学习下随机的写法
作者: baobaoshu    时间: 2010-4-22 14:16
恩？是要什么身份才可以下呢？
作者: zoezhao    时间: 2010-5-16 20:23
very useful
作者: buffett17    时间: 2010-11-25 13:45
gan she fenxiang le
作者: buffett17    时间: 2010-11-25 13:46
gan she fenxiang le
作者: buffett17    时间: 2010-11-25 13:46
gan she fenxiang le
作者: buffett17    时间: 2010-11-25 13:46
gan she fenxiang le
作者: buffett17    时间: 2010-11-25 13:47
gan she fenxiang le
作者: buffett17    时间: 2010-11-25 13:47
gan she fenxiang le
作者: huangchang0528    时间: 2010-12-11 22:55
做得挺好~~~
作者: 最牛的粽子    时间: 2010-12-15 23:12
很不错啊。。。学习
作者: 05310130    时间: 2010-12-21 00:07
不错不错！！
作者: hswdm_1984    时间: 2010-12-30 09:01
谢谢分享 哈
作者: nelson241930    时间: 2011-1-28 05:07
支持楼主 感谢分享~
作者: ukcolour    时间: 2011-1-30 08:24
这是个好办法呀
作者: whku    时间: 2011-4-1 13:12
權限也太高了吧
作者: 我最爱飙车    时间: 2011-4-2 10:30
感谢啦~~~~~~~~~~~~~~~~~~~~·
作者: evilsheep    时间: 2011-4-4 21:33
谢谢分享，下载学习一下～
作者: zpxyyzx    时间: 2011-4-10 00:19
看看呢，不知道怎么评论
作者: ping88    时间: 2011-4-16 18:58
rhino的script编辑器 ？不明白  那位高手说说下 谢谢哈!
作者: wawa    时间: 2011-4-28 17:32
let me see
作者: cuilei33    时间: 2011-12-9 16:12
thanks。。。。。。。。。。。。
作者: howldyx    时间: 2011-12-14 18:14
顶~~~~~~~~~~~
作者: JiangLi.arch    时间: 2011-12-14 19:27
30权限，完全不够啊~
作者: howldyx    时间: 2011-12-14 21:16
收藏之哈哈哈
作者: howldyx    时间: 2011-12-14 21:17
收藏之哈哈哈
作者: 冬星    时间: 2011-12-14 21:24
好好学习一下
作者: howldyx    时间: 2011-12-14 22:09
收藏之哈哈哈
作者: s.k.    时间: 2011-12-14 22:41
写脚本的都是大神
作者: thomas1203    时间: 2011-12-24 20:08
强人！~！~！~
作者: 修行    时间: 2011-12-26 21:48
哎，才2个照度，想看都看不了
作者: 三石    时间: 2012-1-7 09:38
观摩观摩 请多指教
作者: shisanlang    时间: 2012-2-2 17:06
谢谢楼主分享
作者: kayleexue    时间: 2012-2-10 03:22
看不见图~先下了再说
作者: wuliaop3    时间: 2012-3-7 23:13
学习一下，感谢分享～
作者: newbhoho    时间: 2012-4-2 15:46
sip ip good
作者: 风竹    时间: 2012-5-7 20:19
下下来学习学习
作者: 风竹    时间: 2012-5-7 20:20
下下来学习学习
作者: kakubin84    时间: 2012-6-10 15:02
我练阅读的权限都没有，真不舒服
作者: angel120317    时间: 2012-6-11 16:09
恩，学习学习
作者: angel120317    时间: 2012-6-12 16:18
学习一下~~
作者: ken1547    时间: 2012-6-26 13:35
学习......
作者: wawxfcao    时间: 2012-6-30 21:24
学习了  可惜下载不下来  阅读权限不够  够十个字了吧
作者: 卡戎    时间: 2012-11-5 20:13
that's perfect
作者: 半山四月    时间: 2015-2-13 19:01
看不到图啊，是要回复吗？
作者: 半山四月    时间: 2015-2-17 19:07
新入门，学习了
作者: 点石成妖    时间: 2015-3-8 02:14
楼主辛苦了！支持一下！



欢迎光临 NCF参数化建筑论坛 (http://bbs.ncf-china.com/) Powered by Discuz! X3.2