ListLength的原代码

1235813 · 发表于 2011-5-24 00:42:43

本帖最后由 1235813 于 2011-5-24 00:44 编辑

推荐反编译软件
http://www.reflector.net/

Public Class Component_ListLength
Inherits GH_Component
' Methods
Public Sub New()
MyBase.New("List Length", "Lng", "Measure the length of a list.", "Sets", "List")
End Sub
Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_InputParamManager)
pManager.Register_GenericParam("List", "L", "Base list", GH_ParamAccess.list)
End Sub
Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_OutputParamManager)
pManager.Register_IntegerParam("Length", "L", "Number of items in L")
End Sub
Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
Dim list As New List(Of IGH_Goo)
If DA.GetDataList(Of IGH_Goo)(0, list) Then
DA.SetData(0, list.Count)
End If
End Sub
' Properties
Public Overrides ReadOnly Property ComponentGuid As Guid
Get
Return New Guid("{1817FD29-20AE-4503-B542-F0FB651E67D7}")
End Get
End Property
Public Overrides ReadOnly Property Exposure As GH_Exposure
Get
Return GH_Exposure.primary
End Get
End Property
Protected Overrides ReadOnly Property HelpDescription As String
Get
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.")
End Get
End Property
Protected Overrides ReadOnly Property Internal_Icon_24x24 As Bitmap
Get
Return Resources.Default_24x24_ListLength
End Get
End Property
End Class

复制代码

1235813 · 发表于 2011-5-24 00:46:21

把gha文件改为dll文件格式，在用reflector打开就可以看到所有的grasshopper的代码，以此作参考，希望能提高大家的编程能力。

1235813 · 发表于 2011-5-24 00:47:41

Series的代码

Public Class Component_Series
Inherits GH_Component
Implements IGH_InitCodeAware
' Methods
Public Sub New()
MyBase.New("Series", "Series", "Create a series of numbers.", "Sets", "Sequence")
End Sub
Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_InputParamManager)
pManager.Register_DoubleParam("Start", "S", "First number in the series", CDbl(0))
pManager.Register_DoubleParam("Step", "N", "Step size for each successive number", CDbl(1))
pManager.Register_IntegerParam("Count", "C", "Number of values in the series", 10)
End Sub
Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_OutputParamManager)
pManager.Register_DoubleParam("Series", "S", "Series of numbers")
End Sub
Public Sub SetInitCode(ByVal code As String) Implements IGH_InitCodeAware.SetInitCode
Me.AssignInitCodeToInputParameter(2, code)
End Sub
Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
Dim destination As GH_Integer = Nothing
Dim number As GH_Number = Nothing
Dim number2 As GH_Number = Nothing
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
If (destination.Value < 0) Then
MyBase.AddRuntimeMessage(GH_RuntimeMessageLevel.Warning, "Series with negative count ignored.")
ElseIf (Not destination.Value Is 0) Then
Dim data As New List(Of GH_Number)
Dim num As Double = number.Value
Dim num3 As Integer = destination.Value
Dim i As Integer = 1
Do While (i <= num3)
data.Add(New GH_Number(num))
num = (num + number2.Value)
i += 1
Loop
DA.SetDataList(0, data)
End If
End If
End Sub
' Properties
Public Overrides ReadOnly Property ComponentGuid As Guid
Get
Return New Guid("{E64C5FB1-845C-4ab1-8911-5F338516BA67}")
End Get
End Property
Public Overrides ReadOnly Property Exposure As GH_Exposure
Get
Return GH_Exposure.secondary
End Get
End Property
Protected Overrides ReadOnly Property HelpDescription As String
Get
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.")
End Get
End Property
Protected Overrides ReadOnly Property Internal_Icon_24x24 As Bitmap
Get
Return Resources.Default_24x24_Series
End Get
End Property
End Class

复制代码

1235813 · 发表于 2011-5-24 00:50:38

DivideInterval

Public Class Component_DivideInterval
Inherits GH_Component
' Methods
Public Sub New()
MyBase.New("Divide Domain", "Div", "Divide an domain into equal segments.", "Math", "Domain")
End Sub
Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_InputParamManager)
pManager.Register_IntervalParam("Domain", "I", "Base domain")
pManager.Register_IntegerParam("Count", "C", "Number of segments", 10)
End Sub
Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_OutputParamManager)
pManager.Register_IntervalParam("Segments", "S", "Division segments")
End Sub
Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
Dim destination As GH_Integer = Nothing
Dim interval As GH_Interval = Nothing
If (((DA.GetData(Of GH_Interval)(0, interval) AndAlso DA.GetData(Of GH_Integer)(1, destination)) AndAlso interval.IsValid) AndAlso (destination.Value >= 1)) Then
Dim num As Integer = destination.Value
Dim data As New List(Of GH_Interval)
Dim num7 As Integer = num
Dim i As Integer = 1
Do While (i <= num7)
Dim normalizedParameter As Double = (CDbl((i - 1)) / CDbl(num))
Dim num6 As Double = (CDbl(i) / CDbl(num))
Dim num2 As Double = interval.Value.ParameterAt(normalizedParameter)
Dim interval2 As Interval = interval.Value
Dim num3 As Double = interval2.ParameterAt(num6)
interval2 = New Interval(num2, num3)
data.Add(New GH_Interval(interval2))
i += 1
Loop
DA.SetDataList(0, data)
End If
End Sub
' Properties
Public Overrides ReadOnly Property ComponentGuid As Guid
Get
Return New Guid("{75EF4190-91A2-42d9-A245-32A7162B0384}")
End Get
End Property
Public Overrides ReadOnly Property Exposure As GH_Exposure
Get
Return (GH_Exposure.dropdown Or GH_Exposure.primary)
End Get
End Property
Protected Overrides ReadOnly Property Internal_Icon_24x24 As Bitmap
Get
Return Resources.Default_24x24_DivideInterval
End Get
End Property
End Class

复制代码

1235813 · 发表于 2011-5-24 00:58:59

<Serializable, StructLayout(LayoutKind.Sequential, Size:=&H18, Pack:=8), DebuggerDisplay("({m_x}, {m_y}, {m_z})"), DefaultMember("Item")> _
Public Structure Point3d
Friend m_x As Double
Friend m_y As Double
Friend m_z As Double
Public Sub New(ByVal x As Double, ByVal y As Double, ByVal z As Double)
Public Sub New(ByVal vector As Vector3d)
Public Sub New(ByVal point As Point3f)
Public Sub New(ByVal point As Point3d)
Public Sub New(ByVal point As Point4d)
Public Shared ReadOnly Property Origin As Point3d
Public Shared ReadOnly Property Unset As Point3d
Public Shared Operator *(ByVal point As Point3d, ByVal t As Double) As Point3d
Public Shared Function Multiply(ByVal point As Point3d, ByVal t As Double) As Point3d
Public Shared Operator *(ByVal t As Double, ByVal point As Point3d) As Point3d
Public Shared Function Multiply(ByVal t As Double, ByVal point As Point3d) As Point3d
Public Shared Operator /(ByVal point As Point3d, ByVal t As Double) As Point3d
Public Shared Function Divide(ByVal point As Point3d, ByVal t As Double) As Point3d
Public Shared Operator +(ByVal point As Point3d, ByVal point2 As Point3d) As Point3d
Public Shared Function Add(ByVal point As Point3d, ByVal point2 As Point3d) As Point3d
Public Shared Operator +(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
Public Shared Function Add(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
Public Shared Operator +(ByVal point As Point3d, ByVal vector As Vector3f) As Point3d
Public Shared Function Add(ByVal point As Point3d, ByVal vector As Vector3f) As Point3d
Public Shared Operator +(ByVal vector As Vector3d, ByVal point As Point3d) As Point3d
Public Shared Function Add(ByVal vector As Vector3d, ByVal point As Point3d) As Point3d
Public Shared Operator -(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
Public Shared Function Subtract(ByVal point As Point3d, ByVal vector As Vector3d) As Point3d
Public Shared Operator -(ByVal point As Point3d, ByVal point2 As Point3d) As Vector3d
Public Shared Function Subtract(ByVal point As Point3d, ByVal point2 As Point3d) As Vector3d
Public Shared Operator =(ByVal a As Point3d, ByVal b As Point3d) As Boolean
Public Shared Operator <>(ByVal a As Point3d, ByVal b As Point3d) As Boolean
Public Shared Widening Operator CType(ByVal pt As Point3d) As ControlPoint
Public Shared Narrowing Operator CType(ByVal pt As Point3d) As Vector3d
Public Shared Narrowing Operator CType(ByVal vec As Vector3d) As Point3d
Public Shared Widening Operator CType(ByVal pt As Point3f) As Point3d
Public Property X As Double
Public Property Y As Double
Public Property Z As Double
Public Default Property Item(ByVal index As Integer) As Double
Public ReadOnly Property IsValid As Boolean
Public ReadOnly Property MinimumCoordinate As Double
Public ReadOnly Property MaximumCoordinate As Double
Public Overrides Function Equals(ByVal obj As Object) As Boolean
Public Overrides Function GetHashCode() As Integer
Public Sub Interpolate(ByVal pA As Point3d, ByVal pB As Point3d, ByVal t As Double)
Public Overrides Function ToString() As String
Public Function DistanceTo(ByVal other As Point3d) As Double
Public Sub Transform(ByVal xform As Transform)
Public Shared Function ArePointsCoplanar(ByVal points As IEnumerable(Of Point3d), ByVal tolerance As Double) As Boolean
Public Shared Function CullDuplicates(ByVal points As IEnumerable(Of Point3d), ByVal tolerance As Double) As Point3d()
Public Shared Function SortAndCullPointList(ByVal points As IEnumerable(Of Point3d), ByVal minimumDistance As Double) As Point3d()
End Structure
Expand Methods

复制代码

ping88 · 发表于 2011-5-24 01:54:51

谢谢lz 我之前都在问好多朋友那些电池代码什么看呢？你好猛哈。。。

panhao1 · 发表于 2011-5-24 02:42:44

本帖最后由 panhao1 于 2011-5-24 02:43 编辑

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

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

不过还是不要这么赤裸裸的贴出来，其实大家都知道reflector的，不过都很低调

翳影 · 发表于 2011-5-24 07:42:43

非常给力啊，果断下载了

darklight · 发表于 2011-5-24 08:58:06

一直就想看看它的的代码，苦于无法下手，谢谢LZ了。。。。

ccomix · 发表于 2011-5-24 09:51:07

大家心照不宣就好了

nxwzgng · 发表于 2011-5-24 11:02:17

hhhhhhhhhhhhhhhhhhhhh

3828669 · 发表于 2011-5-24 12:24:31

说实话，建筑的真还不知道这个。贴出来也看不太懂。

1235813 · 发表于 2011-5-24 14:35:29

{:3_49:}算我无知吧

cgfan · 发表于 2011-5-25 13:24:08

很给力支持支持！

wawa · 发表于 2011-5-26 09:57:59

let me see

ccc159 · 发表于 2011-5-26 10:03:09

7# panhao1
嗯我以前干过这事情····

红板砖 · 发表于 2011-6-6 08:54:14

强大啊！！！！！！！！

xurugen · 发表于 2016-7-11 12:55:45

谢谢,编程确实是快,高效运用

帐号		自动登录	找回密码
密码			注册

[网络资源] ListLength的原代码

评分