선택한 커브옵셋하기, 선택한 커브의 끝점과 마지막 점을 잇는 선 생성

Dim strobject, arrPointS, arrPointE

strObject = Rhino.GetObject("select a curve")

Dim strResultObj

If Rhino.IsCurve(strObject) Then

  arrPointS = Rhino.CurveStartPoint(strObject)

  arrPointE = Rhino.CurveEndPoint(strObject)

  Rhino.addLine arrPointS, arrPointE

  Rhino.OffsetCurve strObject, Array(0,0,0), -1.0

  Rhino.Command("_line")

End If