Moves one or more objects.
Rhino.MoveObjects (arrObjects, arrStart, arrEnd)
Rhino.MoveObjects (strObject, arrTranslation)
arrObjects |
Required. Array. An array of strings identifying the objects to move. |
arrStart |
Required. Array. The 3-D starting, or base, point of the move operation. |
arrEnd |
Required. Array. The 3-D ending point of the move operation. |
arrTranslation |
Required. Array. The 3-D translation vector. |
Array |
An array of strings identifying the moved objects if successful. |
Null |
If not successful, or on error. |
Dim arrObjects, arrStart, arrEnd, arrTranslation
arrObjects = Rhino.GetObjects("Select objects to move")
If IsArray(arrObjects) Then
arrStart = Rhino.GetPoint("Point to move from")
If IsArray(arrStart) Then
arrEnd = Rhino.GetPoint("Point to move to")
If IsArray(arrStart) Then
arrTranslation = Rhino.VectorCreate(end, start)
Rhino.MoveObjects arrObjects, arrTranslation
End If
End If
End If