CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2022 开发者帮助 › 查看内容

AutoCAD 2022 开发者帮助

LayerPropertyOverrides 属性（ActiveX）

2024-5-18 18:45| 发布者: admin| 查看: 331| 评论: 0|原作者: admin|来自: AutoCAD

指定外部参照或视口是否具有图层属性覆盖。

支持的平台：仅限 Windows

签名

VBA：

object.LayerPropertyOverrides

对象

类型：ComparedReference、ExternalReference、PViewport

此属性应用于的对象。

属性值

只读：是的

类型：布尔

True：外部参照或视口具有图层属性覆盖。
False：外部参照或视口没有图层属性覆盖。

言论

该对象继承自的此属性，但此属性在使用时不会影响该类型的对象。ComparedReferenceExternalReferenceComparedReference

例子

VBA：

Sub Example_LayerPropertyOverrides()
    ' This example checks to see if the viewports in Paper Space
    ' have one or more layer property overrides applied.
    
    Dim acObj As AcadObject
    
    ' Step through the objects in Paper space
    For Each acObj In ThisDrawing.PaperSpace
        ' Check to see if the object is a Viewport
        If acObj.ObjectName = "AcDbViewport" Then
            ' Display the Layer Properties Override status for the viewport
            GoSub DISPLAYSTATUS
        End If
    Next acObj
    
    Exit Sub
    
DISPLAYSTATUS:
    Dim vpObj As AcadPViewport
    Set vpObj = acObj

    ' Get the ObjectId for the viewport
    Dim strObjId as string
    strObjId = "ObjectId: " + CStr(vpObj.ObjectId)

    ' Display a message based on whether the viewport has layer overrides applied
    If vpObj.LayerPropertyOverrides Then
        MsgBox strObjId + vbLf + "Viewport does have layer property overrides applied.", , "LayerPropertyOverrides Example"
    Else
        MsgBox strObjId + vbLf + "Viewport doesn't have any layer property overrides applied.", , "LayerPropertyOverrides Example"
    End If
    Return
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_LayerPropertyOverrides()
    ;; This example checks to see if the viewports in Paper Space
    ;; have one or more layer property overrides applied.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; Step through the objects in Paper space
    (vlax-for acObj (vla-get-PaperSpace doc)
        ;; Check to see if the object is a Viewport
        (if (= (vla-get-ObjectName acObj) "AcDbViewport")
            (progn
                ;; Get the ObjectId for the viewport
                (setq strObjId (strcat "ObjectID: " (itoa (vla-get-ObjectId acObj))))
                ;; Display a message based on whether the viewport has layer overrides applied
                (if (= (vla-get-LayerPropertyOverrides acObj) :vlax-true)
                    (alert (strcat strObjId
                                   "\nViewport does have layer property overrides applied."))
                    (alert (strcat strObjId
                                   "\nViewport doesn't have any layer property overrides applied."))
                )
            )
        )
    )
)