Mirrors a single object.
Rhino.MirrorObject (strObject, arrStartPt, arrEndPt [, blnCopy])
|
strObject |
Required. String. The identifier of the object to mirror. |
|
arrStartPt |
Required. Array. The start of the mirror plane. |
|
arrEndPt |
Required. Array. The end of the mirror plane. |
|
blnCopy |
Optional. Boolean. Copy the object. If omitted, the object will not be copied (False). |
|
String |
The identifier of the mirrored object if successful. |
|
Null |
If not successful, or on error. |
Dim strObject, arrStartPt, arrEndPt
strObject = Rhino.GetObject("Select object to mirror")
If (strObject <> vbNull) Then
arrStartPt = Rhino.GetPoint("Start of mirror plane")
arrEndPt = Rhino.GetPoint("End of mirror plane")
If IsArray(arrStartPt) And IsArray(arrEndPt) Then
Rhino.MirrorObject strObject, arrStartPt, arrEndPt, vbTrue
End If
End If