Appends one or more objects to an existing named position..
Rhino.AppendNamedPosition (arrObjects, strName)
arrObjects |
Required. Array. The identifiers of one or more objects whose positions you want to append. |
strName |
Required. String. The name of an existing named position. |
Boolean |
True if successful, False otherwise. |
Null |
On error. |
Sub TestAppendNamedPosition
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.AppendNamedPosition(arrObjects, "MyNamedPosition")
End If
End Sub