Specifies the name of the layer state of the view.
Supported platforms: Windows only
Read-only: No
Type: String
The name of the layer state.
No additional remarks.
VBA:
Sub Example_LayerState() ' This example demonstrates the ' CategoryName, LayoutId, LayerState, ' and HasVpAssociation properties of the View object Dim oLSM As AcadLayerStateManager ' Access the LayerStateManager object Set oLSM = ThisDrawing.Application. _ GetInterfaceObject("AutoCAD.AcadLayerStateManager.20") ' Associate the current drawing database with LayerStateManager oLSM.SetDatabase ThisDrawing.Database oLSM.Save "ColorLinetype", acLsColor + acLsLineType ' Create a view named "New_View" in current drawing Dim viewObj As AcadView ' Add the view to the views collection Set viewObj = ThisDrawing.Views.Add("New_View") MsgBox viewObj.Name & " has been added." & vbCrLf & _ "Height: " & viewObj.Height & vbCrLf & _ "Width: " & viewObj.Width, , "Example" viewObj.CategoryName = "My View Category" viewObj.LayerState = "My Layer State" viewObj.LayoutId = ThisDrawing.Layouts(1).ObjectID MsgBox viewObj.CategoryName & " is the Category name." & vbCrLf & _ viewObj.LayoutId & " is the Layout ID." & vbCrLf & _ viewObj.LayerState & " is the Layer state." If viewObj.HasVpAssociation = True Then MsgBox "The view is associated with a paper space viewport." Else MsgBox "The view is not associated with a paper space viewport." End If End Sub
Visual LISP:
(vl-load-com) (defun c:Example_LayerState() ;; This example demonstrates the ;; CategoryName, LayoutId, LayerState, ;; and HasVpAssociation properties of the View object (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Access the LayerStateManager object (setq oLSM (vla-GetInterfaceObject acadObj "AutoCAD.AcadLayerStateManager.20")) ;; Associate the current drawing database with LayerStateManager (vla-SetDatabase oLSM (vla-get-Database doc)) (vla-Save oLSM "ColorLinetype" (+ acLsColor acLsLineType)) ;; Create a view named "New_View" in current drawing ;; Add the view to the views collection (setq viewObj (vla-Add (vla-get-Views doc) "New_View")) (alert (strcat (vla-get-Name viewObj) " has been added." "\nHeight: " (rtos (vla-get-Height viewObj) 2) "\nWidth: " (rtos (vla-get-Width viewObj) 2))) (vla-put-CategoryName viewObj "My View Category") (vla-put-LayerState viewObj "ColorLinetype") (vla-put-LayoutId viewObj (vla-get-ObjectID (vla-Item (vla-get-Layouts doc) 1))) (alert (strcat (vla-get-CategoryName viewObj) " is the Category name." "\n" (itoa (vla-get-LayoutId viewObj)) " is the Layout ID." "\n" (vla-get-LayerState viewObj) " is the Layer state.")) (if (= (vla-get-HasVpAssociation viewObj) :vlax-true) (alert "The view is associated with a paper space viewport.") (alert "The view is not associated with a paper space viewport.") ) (vlax-release-object oLSM) )