'[DIRECTORY]
'===================================================================================================

' Sub CurveCurveInsert

' Sub CurveCurveInsertAlternate

'===================================================================================================
'[DIRECTORY][%end]


' v091215



'[CODEPAGE]
'===================================================================================================



'[CurveCurveInsert]
'===================================================================================================

Sub CurveCurveInsert

  
  Dim   arrObjectsN()                   '1 initialisiere die variable als dynamisches array
  
  strCurve1 = Rhino.GetObject("kurve1",4)  'wirt
  strCurve2 = Rhino.GetObject("kurve2",4)  'virus

  arrReference  = Array(Rhino.curvestartpoint(strCurve2),Rhino.curveendpoint(strCurve2))
  arrPointsWirt = Rhino.curvepoints(strCurve1)  'array von n punkten.
  intPointCount = UBound(arrPointsWirt) 

  ReDim arrObjectsN(intPointCount - 1)  '2 bestimme die grösse des array containers.
  
  For i = 0 To intPointCount - 1
    
      arrPt1         = arrPointsWirt(i)
      arrPt2         = arrPointsWirt(i+1)
      arrTarget      = Array(arrPt1, arrPt2)
      strCurveN      = Rhino.orientobject (strCurve2, arrReference, arrTarget ,3)
      arrObjectsN(i) = strCurveN  ' sammeln von den neu generierten kurven in einem array

  Next
  
  blnDelete = vbTrue
  strCurveN = Rhino.JoinCurves (arrObjectsN ,blnDelete)

End Sub


'===================================================================================================
'[CurveCurveInsert][%end]




'[CurveCurveInsertAlternate]
'===================================================================================================

Sub CurveCurveInsertAlternate

  
  Dim   arrObjectsN()                   '1 initialisiere die variable als dynamisches array
    
  strCurve1     = Rhino.GetObject("kurve1",4)  'wirt
  strCurve2     = Rhino.GetObject("kurve2",4)  'virus
  arrReference  = Array(Rhino.curvestartpoint(strCurve2),Rhino.curveendpoint(strCurve2))
  arrPointsWirt = Rhino.curvepoints(strCurve1)  'array von n punkten.
  intPointCount = UBound(arrPointsWirt) 
  
  ReDim arrObjectsN(intPointCount - 1)  '2 bestimme die grösse des array containers.
  
  For i = 0 To intPointCount - 1
    
      arrPt1 = arrPointsWirt(i)
      arrPt2 = arrPointsWirt(i+1)
      
      arrTarget     = Array(arrPt1, arrPt2)
      strCurveN     = Rhino.orientobject (strCurve2, arrReference, arrTarget ,3)

      arrObjectsN(i) = strCurveN  ' sammeln von den neu generierten kurven in einem array

' arrayReverse ::
' -------------------------------------------------------
      arrTemp = arrReference
      arrReference = Array(arrTemp(1),arrTemp(0))
' -------------------------------------------------------

  Next
  
  blnDelete = vbTrue
  strCurveN = Rhino.JoinCurves (arrObjectsN ,blnDelete)

End Sub



'===================================================================================================
'[CurveCurveInsertAlternate][%end]



'===================================================================================================
'[CODEPAGE][%end]