Renames an existing layer.
Rhino.RenameLayer (strOldName, strNewName)
strOldName |
Required.字符串。The name of an existing layer. |
strNewName |
Required.字符串。The new layer name. |
String |
The new layer name if successful. |
Null |
如果执行不成功或出错,返回空值。 |
Dim strOldName, strNewName
strOldName = Rhino.GetString("Old layer name")
If Not IsNull(strOldName) Then
strNewName = Rhino.GetString("New layer name")
If Not IsNull(strNewName) Then
Rhino.RenameLayer strOldName, strNewName
End If
End If
AddLayer