collect block with attributes only

Hi,

My code

(setq ss1 (ssget "X"

'((0 . "INSERT")))

)

Using this i could collect all block object.

I need to collect blocks with attributes only.

Like this ..

(setq ss1 (ssget "_x" '((0 . "INSERT")(66 . 1))))

thanks it works.

Now i could get the block .

How am i to retrieve the attribute value

You're welcome

Now i could get the block .

How am i to retrieve the attribute valu

Is it possible to get attribute of external ref block

This would print values to command line ...

(defun c:TesT (/ blk vla)
;;; Tharwat 22. Oct. 2011 ;;;
 (vl-load-com)
 (if (setq blk (ssget "_+.:s" '((0 . "INSERT") (66 . 1))))
   (progn
     (setq vla (vlax-ename->vla-object (ssname blk 0)))
     (foreach x (vlax-invoke vla "GetAttributes")
       (print (vla-get-textstring x))
     )
   )
   (princ)
 )
 (princ)
)

Tharwat