Hello everyone! 
Found this code from the forums by Lee Mac that reinsert blocks. The routine works well and really close to what I intend to accomplish but I need the blocks reinserted as the original coordinates for each block and copy over all attributes and parameter settings including visibility. Please help....Thanks in advance!
(defun c:ReInsertAll (/ GetName Blocks ss Model Var Obj)
(vl-load-com)
(setq GetName (lambda (obj) (if (vlax-property-available-p obj 'EffectiveName)
(vla-get-EffectiveName obj)
(vla-get-Name obj))))
(if (ssget "_X" '((0 . "INSERT") (410 . "Model")))
(progn
(vlax-for obj (setq ss (vla-get-ActiveSelectionSet
(setq doc (vla-get-ActiveDocument
(vlax-get-acad-object)))))
(setq Blocks
(cons
(list (GetName obj) obj
(if (eq :vlax-true (vla-get-HasAttributes obj))
(mapcar
(function
(lambda (attrib) (cons (vla-get-TagString attrib)
(vla-get-TextString attrib))))
(vlax-invoke obj 'GetAttributes))))
Blocks)))
(vla-delete ss)
(setq Model (vla-get-ModelSpace doc) Var (vlax-3D-point '(0 0 0)))
(foreach x Blocks
(setq Obj (vla-InsertBlock Model Var (car x) 1. 1. 1. 0.))
(vla-delete (cadr x))
(if (and (caddr x)
(eq :vlax-true (vla-get-HasAttributes Obj)))
(foreach att (vlax-invoke obj 'GetAttributes)
(if (setq tag (assoc (vla-get-TagString att) (caddr x)))
(vla-put-TextString att (cdr tag))))))))
(princ))