27#yonggandewx1
代码:
Private Sub RunScript(ByVal x As List(Of On3dPoint), ByVal y As Object, ByRef A As Object, ByRef p As Object)
Dim pt As New list(Of on3dpoint)
Dim i As Integer
For i = 0 To x.count - 1
If x(i).x = 0 Then
Else
pt.add(x(i))
End If
Next
a = pt