Help me to fix minor error . . .
(defun c:setblockpro ( / ss cnt e bName)
(if (not (setq ss (ssget "_X" '((0 . "INSERT") (2 . "blockname") (410 . "Model")))))
(progn (prompt "\n...No blocks found.") (exit)))
(setq total 0)
(repeat (setq cnt (sslength ss))
(setq e (ssname ss (setq cnt (1- cnt)))
bName (strcase (getpropertyvalue e "BlockTableRecord/Name")))
(foreach i e
(if (eq bName (strcase (car i)))
(progn
(setpropertyvalue e "ScaleFactors/X" 50)
(setpropertyvalue e "ScaleFactors/Y" 50)
(setpropertyvalue e "ScaleFactors/Z" 1)
(setq total (1+ total))))))
(command "_.-PURGE" "LA" "*" "N")
(prompt (strcat "\nCBP Complete, " (itoa total) " blocks updated."))
(princ))