Moves a single object.
Rhino.MoveObject (strObject, arrStart, arrEnd)
|
strObject |
Required. String. The identifier of the object to move. |
|
arrStart |
Required. Array. The 3D starting, or base, point of the move operation. |
|
arrEnd |
Required. Array. The 3D ending point of the move operation. |
|
Boolean |
True or false indicating success or failure. |
|
Null |
If not successful, or on error. |
Dim strObject, arrStart, arrEnd
strObject = Rhino.GetObject("Select object to move")
If strObject <> vbNull Then
arrStart = Rhino.GetPoint("Point to move from")
If IsArray(arrStart) Then
arrEnd = Rhino.GetPoint("Point to move to")
If IsArray(arrStart) Then
Rhino.MoveObject strObject, arrStart, arrEnd
End If
End If
End If