How to extract Attdefs in Active-X?

I have been trying to use AutoLISP and Active-X methods to manipulate attributes but have been stymied. If you write

(defun test (obj)
(setq obj (vlax-ename->vla-object (ssget))
atts (vlax-invoke-method obj 'GetAttributes)
)
(vlax-variant-type atts)
)

when you pick a block with attributes you get that atts is a variant array composed of objects. There are plenty of functions for manipulating safearrays but this is a variant array of objects. How does one access the attdef objects i.e. how do you iterate through this variant to find the attdef you are looking for?

 

Found the answer to my own question guys.

(vlax-safearray->list (vlax-variant-type atts))

This returns a list of attdef objects to process. It was not clear to me that a variant array could be input into a safearray function.

 

I prefer using the undocumented (vlax-invoke), it returns a list rather than
a variant. Then you can use (foreach) to go through them.

Or, using the variant returned in your code, you can do this:
(setq atts (vlax-safearray->list (vlax-variant-value atts)))
which also gives you a list.