DraftSight Lisp Pull Attribute | Dassault Systèmes®

GB 2022-06-16

Hello,

I'm trying to pull a list of attributes from a block by using Lisp programming. I can find the blocks by using Lisp, but I can't find a way from the block to the attributes. Everything I've read online shows that this should be the solution, but it isn't working for me. What needs to be done to pull the attributes from within a block? Is this even possible for Lisp to do this in DraftSight?

(defun C:AttGetAttri(/ objDoc objBlocks objABlock temp_get)
    
    ;; Initializing Variables
    (vl-load-com)
    (setq objDoc (vla-get-activedocument (vlax-get-acad-object))); Document
    (setq objBlocks (vla-get-blocks objDoc)); Blocks
    
    ;; Attributes of each object
    (vlax-for objABlock objBlocks
        (princ "Test Loop\\n")
        (setq tmp_get (get_attributes_list  objABlock)); Custom function call
        (princ (tmp_get))(terpri)
    );vlax-for
    (princ "Looping Finished\\n")
    (princ)
);defun fcnMain

;;; Gathers Attributes
;;; 
(defun get_attributes_list (AcDbBlkRef / attrib_variant)
    
    (princ "get_attributes_list-01\\n")
    (if (and (vlax-property-available-p AcDbBlkRef 'hasAttributes)
        (eq (vla-get-HasAttributes AcDbBlkRef) :vlax-true))(progn ; Attribute exsists
        
        (princ "get_attributes_list-02\\n")
        (if (vlax-method-applicable-p AcDbBlkRef 'getAttributes)(progn ; Get Attribute command exsists
           
            (princ "get_attributes_list-03\\n")
            (if (not (vl-catch-all-error-p (vl-catch-all-apply; All error catch
                '(lambda () (setq attrib_variant (vlax-invoke-method AcDbBlkRef 'GetAttributes))); Setting variable to attribute
                )))(progn ;not -> vl-catch-all-error-p -> vl-catch-all-apply
                
                ; return attributes list
                (princ "get_attributes_list-04-Success! (Maybe)\\n")
                (vlax-safearray->list (vlax-variant-value attrib_variant))
            ));if->progn
        ));if->progn
    ));if->progn
);defun get_attributes_list