Saves, or creates, a new named position in the document.
Rhino.SaveNamedPosition (arrObjects, strName)
arrObjects |
Required. Array. The identifiers of one or more objects whose positions you want to save. |
strName |
Required. String. The name of the named position to create. |
Boolean |
True if successful, False otherwise. |
Null |
On error. |
Sub TestSaveNamedPosition
Dim objPlugIn, arrObjects
On Error Resume Next
Set objPlugIn = Rhino.GetPluginObject("Named Position")
If Err Then
MsgBox Err.Description
Exit Sub
End If
arrObjects = Rhino.GetObjects("Select objects")
If IsArray(arrObjects) Then
Call objPlugIn.SaveNamedPosition(arrObjects, "MyNamedPosition")
End If
End Sub