Exports all layer states to an external file.
Rhino.ExportLayerStates (strFilename)
|
strFilename |
Required. String. The name of an file to create. |
|
Boolean |
True or False indicating success or failure. |
|
Null |
On error. |
Sub TestExportLayerStates
Dim objPlugIn
On Error Resume Next
Set objPlugIn = Rhino.GetPluginObject("Rhino Bonus Tools")
If Err Then
MsgBox Err.Description
Exit Sub
End If
Call objPlugIn.ExportLayerStates("C:\LayerStates.lay")
End Sub