entsel to ssget (create dimension for multiple block)

[Pugazh]

This lisp for working select single block but i want to need create dimension for multiple block. help me!!

 

(defun C:Bdim ( / ) 
(if (and (setq sel (entsel "Select a block: "))
    (= (cdr (assoc 0 (setq nfo (entget (car sel))))) "INSERT")
    )
    (vlax-for item (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))(cdr (assoc 2 nfo)))
	(setq items (vlax-vla-object->ename item))
	(setq EntityData (entget items))
	(if (= (cdr (assoc 0 EntityData)) "LINE")
	   (progn
		(vl-cmdf "_.dimaligned" "_non" (cdr (assoc 10 EntityData)) "_non" (cdr (assoc 11 EntityData)) "_non" (cdr (assoc 10 EntityData)))
	   )
	)
    )
    (prompt "\nNo block selected")
)
(princ)
)