[编程交流] 多重引线（某些）不会r

(vl-load-com)
(defun c:DumpExtensionDictionary()
    ;; 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)
            )
        )
    )