(defun C:explosion-all-u-bloks (/ block-list ssnabor)
  (setq ssnabor (ssget "_X" '((0 . "INSERT") (2 . "`*U*"))))
  (if ssnabor
    (progn
      (princ (strcat "\nНашел " (itoa (sslength ssnabor)) " блоков."))
      (setq block-list (convert_ss_to_list ssnabor))
      (foreach x block-list
	(vla-Explode(vlax-ename->vla-object x))
	(entdel x)
	)
      )
    (princ (strcat "\nНет подходящих блоков."))
    )
  
  (princ)
  )