(defun C:she(/ selecta3 sht j sheet-qty sheet ww sname ens ens-n ens_data)
  (setq selecta3 (ssget  (list (cons 0 "insert") (cons 2 "A3,A4,A2,A1"))))
  (setq sht 1 j 0)
  (if (/= selecta3 nil)
      (progn
	(setq sheet-qty (sslength selecta3))
	(repeat  sheet-qty
	  (setq sheet (strcat (rtos sht 2 0) "/" (rtos sheet-qty 2 0)))
	  (setq ens (ssname selecta3 j))
	  (setq ens-n (entnext ens))
	  (setq ens_data (entget ens-n))
	  (setq sname (cdr (assoc 2 ens_data)))
	  (setq ww 1 )
	  (while (and (/= sname "SHEET") (< ww 16))
	         (setq ens-n (entnext ens-n))
	         (setq ens_data	(entget ens-n))
	         (setq sname (cdr (assoc 2 ens_data)))
	         (setq ww (1+ ww))
	    )
	  (setq ens_data (subst (cons 1 sheet)(assoc 1 ens_data) ens_data))
	  (entmod ens_data)
	  (entupd ens-n)
	  (setq sht (1+ sht))
	  (setq j (1+ j))
	  );end repeat
	);end progn
    (exit)
    );end if
  );end defun