Compares two objects to determine if they are geometrically identical.
Rhino.CompareGeometry (strObject1, strObject2)
|
strObject1 |
Required. String. The identifier of the first object to compare. |
|
strObject2 |
Required. String. The identifier of the second object to compare. |
|
Boolean |
True if the objects are geometrically identical, otherwise False. |
|
Null |
On error. |
Dim strObject1, strObject2, bCompare
strObject1 = Rhino.GetObject("Select first object to compare")
If Not IsNull(strObject1) Then
strObject2 = Rhino.GetObject("Select second object to compare")
If Not IsNull(strObject2) Then
bCompare = Rhino.CompareGeometry(strObject1, strObject2)
If bCompare = True Then
Rhino.Print "Objects are geometrically identical."
Else
Rhino.Print "Objects are not geometrically identical."
End If
End If
End If