Changes the space, from world to page layout or from page layout to world, of objects.
Rhino.ChangeObjectSpace (strObject, strLayout, strDetail [, blnToLayout [, blnCopy]])
Rhino.ChangeObjectSpace (arrObjects, strLayout, strDetail [, blnToLayout [, blnCopy]])
strObject |
Required. String. The identifier of the object to change space. |
arrObjects |
Required. Array. An array of strings identifying the objects to change space. |
strLayout |
Required. String. The title or identifier of an existing page layout view. |
strDetail |
Required. String. The title identifier of an existing detail view in the layout view. |
blnToLayout |
Optional. Boolean. Change object(s) from world to page layout (True), or change object(s) from page layout to world (False). The default is True. |
blnCopy |
Optional. Boolean. Copy the object. If omitted, the object(s) will not be copied (False). |
String |
The identifier of the changed object if successful. |
Array |
An array of strings identifying the changed objects if successful. |
Null |
If not successful, or on error. |
Dim arrObjects, strLayout, strDetail
arrObjects = Rhino.GetObjects("Select objects to change to layout space")
strLayout = Rhino.CurrentView(, False)
If Rhino.IsLayout(strLayout) Then
strDetail = Rhino.CurrentDetail(strLayout,,False)
If (StrComp(strLayout, strDetail) <> 0) Then
Call Rhino.ChangeObjectSpace(arrObjects, strLayout, strDetail)
End If
End If