gh的vb编程的问题

qiancy88

代码如下：

Sub RunScript(ByVal pts As On3dPoint, ByVal divU As Integer, ByVal divV As Integer)

    Dim n As Integer = 0
      
    Dim ptsList As New List(Of List(Of On3dPoint))
   
    Dim newpts As New List(Of On3dPoint)
   
    For i As Integer=0 To divU Step 2
      
      Dim ptsRow As List(Of On3dPoint)
      For j As Integer=0 To divV Step 2
        
        Dim pt As New On3dPoint(pts(n))
        
        ptsRow.Add(pt)
        
        n = n + 1
        
      Next
      
      ptsList.Add(ptsRow)
      
    Next
        
是根据那个WooJingsung的教程改的，结果提示

         Error：类“RMA.openNURBS.On3dPoint"没有默认属性，因此无法被索引。

这是什么原因……
请教各位大侠

原来是你 不是已经解决了么？

同样的问题,反复写了几次,提示没有数据.no data was collected.请教高人.

3# 木又寸
需要在VB块的input中指定变量类型

pts参数没有flatten

我也遇到同样的问题，研究了好久，发现是引用的pts的数据结构是tree多分支的，也即是2d的，需要选中flatten选项，把他变成一个序列。