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

AutoCAD 2023 开发者帮助

HasExtensionDictionary 属性（ActiveX）

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

确定对象是否具有与之关联的扩展字典。

支持的平台：仅限 Windows

签名

VBA：

object.HasExtensionDictionary

对象

类型：所有绘图对象、 AttributeReference、块、字典、 DimStyle、组、图层、布局、线型、材质、 MLeaderStyle、 PlotConfiguration、 RegisteredApplication、 SectionManager、 SectionSettings、 SortentsTable、 TableStyle、 TextStyle、UCS、视图、视口、XRecord

此属性应用于的对象。

属性值

只读：是的

类型：布尔

True：对象具有与之关联的扩展字典。
False：对象没有与之关联的扩展字典。

言论

您可以为对象创建扩展字典，也可以使用该方法查询现有扩展字典。GetExtensionDictionary

例子

VBA：

Sub Example_HasExtensionDictionary()
    ' This example will iterate through each object in the current drawing and
    ' determine whether that object has an associated Extension Dictionary
    
    Dim DrawingObject As AcadObject
    Dim ExtensionDictionaryResults As String
    
    ' Make sure this drawing contains objects before continuing
    If ThisDrawing.ModelSpace.count = 0 Then
        MsgBox "There are no objects in the current drawing."
        Exit Sub
    End If
    
    For Each DrawingObject In ThisDrawing.ModelSpace
        ' Determine whether object contains Extension Dictionary
        Select Case DrawingObject.HasExtensionDictionary
            Case True
                ExtensionDictionaryResults = ExtensionDictionaryResults & _
                                             DrawingObject.ObjectName & _
                                             " has an associated Extension Dictionary" & vbCrLf
            Case False
                ExtensionDictionaryResults = ExtensionDictionaryResults _
                                             & DrawingObject.ObjectName & _
                                             " does not have an associated Extension Dictionary" & vbCrLf
        End Select
    Next
    
    MsgBox ExtensionDictionaryResults
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_HasExtensionDictionary()
    ;; This example will iterate through each object in the current drawing and
    ;; determine whether that object has an associated Extension Dictionary
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq modelSpace (vla-get-ModelSpace doc))
    
    ;; Make sure this drawing contains objects before continuing
    (if (= (vla-get-Count modelSpace) 0)
        (alert "There are no objects in the current drawing.")
        (progn
            (setq ExtensionDictionaryResults "")
	           (vlax-for DrawingObject modelSpace
	               ;; Determine whether object contains Extension Dictionary
	               (cond
                    ((= (vla-get-HasExtensionDictionary DrawingObject) :vlax-true)
                        (setq ExtensionDictionaryResults (strcat ExtensionDictionaryResults
                                                                 (vla-get-ObjectName DrawingObject)
                                                                 " has an associated Extension Dictionary.\n")))
                    ((= (vla-get-HasExtensionDictionary DrawingObject) :vlax-false)
                        (setq ExtensionDictionaryResults (strcat ExtensionDictionaryResults
                                                                 (vla-get-ObjectName DrawingObject)
                                                                 " does not have an associated Extension Dictionary.\n")))
                )
	    )
	    
	    (alert ExtensionDictionaryResults)
        )
    )
)