(defun c:blockchg (/)
  (setq refobj (entget (car (entsel "Select referenceblock: "))))
  (setq name (cdr (assoc 2 refobj)))
  (while (/= name nil)
    (setq obj (entsel "Select Object "))
    (setq object (entget (car obj)))
    (if (= (cdr (assoc 0 object)) "INSERT")
      (progn
	(setq object (subst (cons 2 name)(assoc 2 object) object))
	(entmod object)))
    )
  )