VB.NET求助

ememery

83   Private Sub RunScript(ByVal N As Integer, ByVal P As Integer, ByVal Q As Integer, ByRef A As Object, ByRef B As Object, ByRef C As Object)
84     Dim Txt_s As New Rhino.Input.Custom.GetObject()
85     Txt_s.DisablePreSelect
86     Txt_s.AcceptNothing(True)
87     Txt_s.SetCommandPrompt("Select text")
88     Txt_s.SubObjectSelect = False
89     Txt_s.GroupSelect = True
90     Txt_s.GetMultiple(1, 0)
91
92     Dim Grd As New arraylist()
93     Dim T_s As New List(Of String)
94     Dim P_s As New arraylist()
95
96     Dim i,j As int32
97     For i = 0 To Txt_s.ObjectCount() - 1 Step N
98       Dim Row As New list(Of Double)
99       Dim P_r As New List(Of Point3d)
100
101      For j = i To i + N - 1
102        Dim Ant As AnnotationBase = DirectCast(Txt_s.Object(j).Geometry, AnnotationBase)
103        Dim Pt As New Point3d()
104        Pt = Ant.Plane.Origin
105        P_r.Add(Pt)
106        If Ant.IsValid Then
107          Dim Txt As String = Ant.Text
108          T_s.Add(Txt)
109          If IsNumeric(Txt) Then
110            Dim Dbl As Double = convert.ToDouble(txt)
120            Row.add(Dbl)
121            Print("Dot(" & i & ")(" & j & ")_Value=" & dbl)
122          Else
123            Row.add(0)
124          End If
125        End If
126      Next
127
128      Grd.add(Row)
129      P_s.Add(P_r)
130    Next
131
132    a = Grd
133    b = t_s
134    c = P_s(P)(Q)


用GH的  VB  模块儿编写的
出现的错误提示：未将对象引用设置到对象的实例(line104)

即上面的E:\gh编程练习\unsorted\1
104        Pt = Ant.Plane.Origin      

在线等待高手解答！
file:///E:\360data\重要数据\我的文档\Tencent Files\736629329\Image\50`())$4A25190SW3OYWL)E.jpg

file:///E:\360data\重要数据\我的文档\Tencent Files\736629329\Image\50`())$4A25190SW3OYWL)E.jpg

file:///E:\360data\重要数据\我的文档\Tencent Files\736629329\Image\50`())$4A25190SW3OYWL)E.jpg

ememery

我总是出现这个问题，好多次了。都找不到原因。。。

未将对象引用设置到对象的实例

ememery

我的上一篇提问帖：
http://ncf.5d6d.com/thread-4306-1-1.html

再补充一个问题，怎么样决定是从小到大还是从大到小？

richo

你这个vb电池块儿是不是左边没有连东西啊......连了就好了~试试

richo

还有啊，图片貌似挂了，我看不到~~

ememery

4# richo
当然是连了的啊。

ememery

5# richo
怎么发图片呢

wenchongyun

3# ememery
.sort()默认从小到大，要从大到小可以用.Reverse反向

ememery

8# wenchongyun 多谢！

我看到  .sort  这个用法里面还有几个overload，如下：

Sort(IComparer(T))  
Sort(Comparison(T))
Sort(Double[])
Sort(Int32[])
Sort(Int32, Int32, IComparer(T))


这几个分别都怎么用呢？

panhao1

图看不到 添加附加发图

claudemit

你这是要从text提取坐标生成点？我也不熟悉，命令都好生僻，可以搜下论坛帖子用用外部excel或者gh的panel输入数据，比较常见一些。
不知道有没有帮助

ememery

11# claudemit

对，确实是想从text提取坐标点。你的建议很有用。谢谢~