NCF参数化建筑论坛

标题: ListLength的原代码 [打印本页]
作者: 1235813    时间: 2011-5-24 00:42
标题: ListLength的原代码
本帖最后由 1235813 于 2011-5-24 00:44 编辑

推荐反编译软件
http://www.reflector.net/
  1. Public Class Component_ListLength
  2. Inherits GH_Component
  3. ' Methods
  4. Public Sub New()
  5. MyBase.New("List Length", "Lng", "Measure the length of a list.", "Sets", "List")
  6. End Sub

  8. Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_InputParamManager)
  9. pManager.Register_GenericParam("List", "L", "Base list", GH_ParamAccess.list)
  10. End Sub

  12. Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_OutputParamManager)
  13. pManager.Register_IntegerParam("Length", "L", "Number of items in L")
  14. End Sub

  16. Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
  17. Dim list As New List(Of IGH_Goo)
  18. If DA.GetDataList(Of IGH_Goo)(0, list) Then
  19. DA.SetData(0, list.Count)
  20. End If
  21. End Sub


  24. ' Properties
  25. Public Overrides ReadOnly Property ComponentGuid As Guid
  26. Get
  27. Return New Guid("{1817FD29-20AE-4503-B542-F0FB651E67D7}")
  28. End Get
  29. End Property

  31. Public Overrides ReadOnly Property Exposure As GH_Exposure
  32. Get
  33. Return GH_Exposure.primary
  34. End Get
  35. End Property

  37. Protected Overrides ReadOnly Property HelpDescription As String
  38. Get
  39. Return (Me.Description & " Elements in a list are identified by their index. The first element is stored at index zero, the second element is stored at index one and so on and so forth. The highest possible index in a list equals the length of the list minus one.")
  40. End Get
  41. End Property

  43. Protected Overrides ReadOnly Property Internal_Icon_24x24 As Bitmap
  44. Get
  45. Return Resources.Default_24x24_ListLength
  46. End Get
  47. End Property

  49. End Class


复制代码

作者: 1235813    时间: 2011-5-24 00:46
把gha文件改为dll文件格式，在用reflector打开就可以看到所有的grasshopper的代码，以此作参考，希望能提高大家的编程能力。
作者: 1235813    时间: 2011-5-24 00:47
Series的代码


  1. Public Class Component_Series
  2. Inherits GH_Component
  3. Implements IGH_InitCodeAware
  4. ' Methods
  5. Public Sub New()
  6. MyBase.New("Series", "Series", "Create a series of numbers.", "Sets", "Sequence")
  7. End Sub

  9. Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_InputParamManager)
  10. pManager.Register_DoubleParam("Start", "S", "First number in the series", CDbl(0))
  11. pManager.Register_DoubleParam("Step", "N", "Step size for each successive number", CDbl(1))
  12. pManager.Register_IntegerParam("Count", "C", "Number of values in the series", 10)
  13. End Sub

  15. Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_OutputParamManager)
  16. pManager.Register_DoubleParam("Series", "S", "Series of numbers")
  17. End Sub

  19. Public Sub SetInitCode(ByVal code As String) Implements IGH_InitCodeAware.SetInitCode
  20. Me.AssignInitCodeToInputParameter(2, code)
  21. End Sub

  23. Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
  24. Dim destination As GH_Integer = Nothing
  25. Dim number As GH_Number = Nothing
  26. Dim number2 As GH_Number = Nothing
  27. If ((((DA.GetData(Of GH_Number)(0, number) AndAlso DA.GetData(Of GH_Number)(1, number2)) AndAlso DA.GetData(Of GH_Integer)(2, destination)) AndAlso number.IsValid) AndAlso number2.IsValid) Then
  28. If (destination.Value < 0) Then
  29. MyBase.AddRuntimeMessage(GH_RuntimeMessageLevel.Warning, "Series with negative count ignored.")
  30. ElseIf (Not destination.Value Is 0) Then
  31. Dim data As New List(Of GH_Number)
  32. Dim num As Double = number.Value
  33. Dim num3 As Integer = destination.Value
  34. Dim i As Integer = 1
  35. Do While (i <= num3)
  36. data.Add(New GH_Number(num))
  37. num = (num + number2.Value)
  38. i += 1
  39. Loop
  40. DA.SetDataList(0, data)
  41. End If
  42. End If
  43. End Sub


  46. ' Properties
  47. Public Overrides ReadOnly Property ComponentGuid As Guid
  48. Get
  49. Return New Guid("{E64C5FB1-845C-4ab1-8911-5F338516BA67}")
  50. End Get
  51. End Property

  53. Public Overrides ReadOnly Property Exposure As GH_Exposure
  54. Get
  55. Return GH_Exposure.secondary
  56. End Get
  57. End Property

  59. Protected Overrides ReadOnly Property HelpDescription As String
  60. Get
  61. Return (Me.Description & " The numbers are spaced according to the {Step} value. If you need to distribute numbers inside a fixed numeric range, consider using the [Range] component instead.")
  62. End Get
  63. End Property

  65. Protected Overrides ReadOnly Property Internal_Icon_24x24 As Bitmap
  66. Get
  67. Return Resources.Default_24x24_Series
  68. End Get
  69. End Property

  71. End Class

复制代码
作者: 1235813    时间: 2011-5-24 00:50
DivideInterval


  1. Public Class Component_DivideInterval
  2. Inherits GH_Component
  3. ' Methods
  4. Public Sub New()
  5. MyBase.New("Divide Domain", "Div", "Divide an domain into equal segments.", "Math", "Domain")
  6. End Sub

  8. Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_InputParamManager)
  9. pManager.Register_IntervalParam("Domain", "I", "Base domain")
  10. pManager.Register_IntegerParam("Count", "C", "Number of segments", 10)
  11. End Sub

  13. Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_OutputParamManager)
  14. pManager.Register_IntervalParam("Segments", "S", "Division segments")
  15. End Sub

  17. Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
  18. Dim destination As GH_Integer = Nothing
  19. Dim interval As GH_Interval = Nothing
  20. If (((DA.GetData(Of GH_Interval)(0, interval) AndAlso DA.GetData(Of GH_Integer)(1, destination)) AndAlso interval.IsValid) AndAlso (destination.Value >= 1)) Then
  21. Dim num As Integer = destination.Value
  22. Dim data As New List(Of GH_Interval)
  23. Dim num7 As Integer = num
  24. Dim i As Integer = 1
  25. Do While (i <= num7)
  26. Dim normalizedParameter As Double = (CDbl((i - 1)) / CDbl(num))
  27. Dim num6 As Double = (CDbl(i) / CDbl(num))
  28. Dim num2 As Double = interval.Value.ParameterAt(normalizedParameter)
  29. Dim interval2 As Interval = interval.Value
  30. Dim num3 As Double = interval2.ParameterAt(num6)
  31. interval2 = New Interval(num2, num3)
  32. data.Add(New GH_Interval(interval2))
  33. i += 1
  34. Loop
  35. DA.SetDataList(0, data)
  36. End If
  37. End Sub


  40. ' Properties
  41. Public Overrides ReadOnly Property ComponentGuid As Guid
  42. Get
  43. Return New Guid("{75EF4190-91A2-42d9-A245-32A7162B0384}")
  44. End Get
  45. End Property

  47. Public Overrides ReadOnly Property Exposure As GH_Exposure
  48. Get
  49. Return (GH_Exposure.dropdown Or GH_Exposure.primary)
  50. End Get
  51. End Property

  53. Protected Overrides ReadOnly Property Internal_Icon_24x24 As Bitmap
  54. Get
  55. Return Resources.Default_24x24_DivideInterval
  56. End Get
  57. End Property

  59. End Class


复制代码
作者: 1235813    时间: 2011-5-24 00:58
  1. <Serializable, StructLayout(LayoutKind.Sequential, Size:=&H18, Pack:=8), DebuggerDisplay("({m_x}, {m_y}, {m_z})"), DefaultMember("Item")> _
  2. Public Structure Point3d
  3. Friend m_x As Double
  4. Friend m_y As Double
  5. Friend m_z As Double
  6. Public Sub New(ByVal x As Double, ByVal y As Double, ByVal z As Double)
  7. Public Sub New(ByVal vector As Vector3d)
  8. Public Sub New(ByVal point As Point3f)
  9. Public Sub New(ByVal point As Point3d)
  10. Public Sub New(ByVal point As Point4d)
  11. Public Shared ReadOnly Property Origin As Point3d
  12. Public Shared ReadOnly Property Unset As Point3d
  13. Public Shared Operator *(ByVal point As Point3d, ByVal t As Double) As Point3d
  14. Public Shared Function Multiply(ByVal point As Point3d, ByVal t As Double) As Point3d
  15. Public Shared Operator *(ByVal t As Double, ByVal point As Point3d) As Point3d
  16. Public Shared Function Multiply(ByVal t As Double, ByVal point As Point3d) As Point3d
  17. Public Shared Operator /(ByVal point As Point3d, ByVal t As Double) As Point3d
  18. Public Shared Function Divide(ByVal point As Point3d, ByVal t As Double) As Point3d
  19. Public Shared Operator +(ByVal point As Point3d, ByVal point2 As Point3d) As Point3d
  20. Public Shared Function Add(ByVal point As Point3d, ByVal point2 As Point3d) As Point3d
  21. Public Shared Operator +(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
  22. Public Shared Function Add(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
  23. Public Shared Operator +(ByVal point As Point3d, ByVal vector As Vector3f) As Point3d
  24. Public Shared Function Add(ByVal point As Point3d, ByVal vector As Vector3f) As Point3d
  25. Public Shared Operator +(ByVal vector As Vector3d, ByVal point As Point3d) As Point3d
  26. Public Shared Function Add(ByVal vector As Vector3d, ByVal point As Point3d) As Point3d
  27. Public Shared Operator -(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
  28. Public Shared Function Subtract(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
  29. Public Shared Operator -(ByVal point As Point3d, ByVal point2 As Point3d) As Vector3d
  30. Public Shared Function Subtract(ByVal point As Point3d, ByVal point2 As Point3d) As Vector3d
  31. Public Shared Operator =(ByVal a As Point3d, ByVal b As Point3d) As Boolean
  32. Public Shared Operator <>(ByVal a As Point3d, ByVal b As Point3d) As Boolean
  33. Public Shared Widening Operator CType(ByVal pt As Point3d) As ControlPoint
  34. Public Shared Narrowing Operator CType(ByVal pt As Point3d) As Vector3d
  35. Public Shared Narrowing Operator CType(ByVal vec As Vector3d) As Point3d
  36. Public Shared Widening Operator CType(ByVal pt As Point3f) As Point3d
  37. Public Property X As Double
  38. Public Property Y As Double
  39. Public Property Z As Double
  40. Public Default Property Item(ByVal index As Integer) As Double
  41. Public ReadOnly Property IsValid As Boolean
  42. Public ReadOnly Property MinimumCoordinate As Double
  43. Public ReadOnly Property MaximumCoordinate As Double
  44. Public Overrides Function Equals(ByVal obj As Object) As Boolean
  45. Public Overrides Function GetHashCode() As Integer
  46. Public Sub Interpolate(ByVal pA As Point3d, ByVal pB As Point3d, ByVal t As Double)
  47. Public Overrides Function ToString() As String
  48. Public Function DistanceTo(ByVal other As Point3d) As Double
  49. Public Sub Transform(ByVal xform As Transform)
  50. Public Shared Function ArePointsCoplanar(ByVal points As IEnumerable(Of Point3d), ByVal tolerance As Double) As Boolean
  51. Public Shared Function CullDuplicates(ByVal points As IEnumerable(Of Point3d), ByVal tolerance As Double) As Point3d()
  52. Public Shared Function SortAndCullPointList(ByVal points As IEnumerable(Of Point3d), ByVal minimumDistance As Double) As Point3d()
  53. End Structure


  56. Expand Methods

复制代码
作者: ping88    时间: 2011-5-24 01:54
谢谢lz  我之前都在问好多朋友  那些电池代码什么看呢？你好猛哈。。。
作者: panhao1    时间: 2011-5-24 02:42
本帖最后由 panhao1 于 2011-5-24 02:43 编辑

5# 1235813
说实在的你这公开吧代码贴出来实在是不好

我大概2年前在grasshopper3d网站上看到版主说用反编译可以看代码~

不过还是不要这么赤裸裸的贴出来，其实大家都知道reflector的，不过都很低调
作者: 翳影    时间: 2011-5-24 07:42
非常给力啊，果断下载了
作者: darklight    时间: 2011-5-24 08:58
一直就想看看它的的代码，苦于无法下手，谢谢LZ了。。。。
作者: ccomix    时间: 2011-5-24 09:51
大家心照不宣就好了
作者: nxwzgng    时间: 2011-5-24 11:02
hhhhhhhhhhhhhhhhhhhhh
作者: 3828669    时间: 2011-5-24 12:24
说实话，建筑的真还不知道这个。贴出来也看不太懂。
作者: 1235813    时间: 2011-5-24 14:35
{:3_49:}算我无知吧
作者: cgfan    时间: 2011-5-25 13:24
很给力支持支持！
作者: wawa    时间: 2011-5-26 09:57
let me see
作者: ccc159    时间: 2011-5-26 10:03
7# panhao1
嗯 我以前干过这事情····
作者: 红板砖    时间: 2011-6-6 08:54
强大啊！！！！！！！！
作者: xurugen    时间: 2016-7-11 12:55
谢谢,编程确实是快,高效运用



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