3.0：大侠帮看看这2段代码

licml

Dim strObject, arrPoint, dblParam,arrPt
strObject = Rhino.GetObject("Select a curve")
If Rhino.IsCurve(strObject) Then
  arrPoint = Rhino.GetPointOnCurve(strObject, "Pick a test point")
  If IsArray(arrPoint) Then
    dblParam = Rhino.CurveClosestPoint(strObject, arrPoint)
    arrPt=Rhino.CurveEvaluate(strObject,dblParam)
    Rhino.AddPoint (arrPt)
    '哪错了？为啥老报：array required，arrPt是array啊
    Rhino.Print "Curve parameter: " & CStr(dblParam)
  End If
End If


----第二段代码---------------------------------------------------

Dim strSrf
Dim arrPt1,arrPt2,arrContour,arrPoints
strSrf=Rhino.GetObject("select a srf:")
arrPt1=Rhino.GetPoint("Select first point")
arrPt2=Rhino.GetPoint("select second point")
arrContour=Rhino.SurfaceContourPoints (strSrf,arrPt1,arrPt2)
If IsArray(arrContour) Then
  For Each arrPoints In arrContour
    '为啥arrPoints是in arrContour，arrPoints没有赋值啊
    rhino.AddCurve(arrPoints)
    rhino.addpoints(arrPoints)
  Next
End If
----------------------------------------
arrContour本身不就是点吗？why不能直接rhino.addpoints(arrContour)？

1235813

Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2011年1月2日 17:34:35

Call Main()
Sub Main()
        Dim strObject, arrPoint, dblParam,arrPt
        strObject = Rhino.GetObject("Select a curve")
        If Rhino.IsCurve(strObject) Then
                arrPoint = Rhino.GetPointOnCurve(strObject, "Pick a test point")
                If IsArray(arrPoint) Then
                        dblParam = Rhino.CurveClosestPoint(strObject, arrPoint)
                        arrPt=Rhino.CurveEvaluate(strObject,dblParam,1)
                       
                        'Rhino.CurveEvaluate ( strObject, dblParameter, intDerivative)

                        'Parameters
                        'strObject
                        'Required.  String.  The object's identifier.

                        'dblParameter
                        'Required.  Number.  The evaluation parameter.

                        '        intDerivative
                        'Required.  Number.  The number of derivatives to evaluate.


                       
                        call Rhino.AddPoint(arrPt(0))
                        '哪错了？为啥老报：array required，arrPt是array啊
                        Rhino.Print "Curve parameter: " & CStr(dblParam)
                End If
        End If


少了参数

1235813

多看帮助文件

1235813

'为啥arrPoints是in arrContour，arrPoints没有赋值啊
arrPoints是什么没关系吧，这种for each in循环就是这样用的，只是提供了一个物理地址来存储变量

licml

嗯，明白了，多谢