(defun c:hesamsaber (/ n l sum len altext obj)
  (setvar "cmdecho" 0)
  (setq ob (ssget))
  (setq l (sslength ob))
  (setq	n 0
	sum 0.0
	LEN 0.0
	altext ""
  )
  (while (< n l)
    (setq obj (ssname ob n))
    (command "area" "e" (eval obj))
    (setq sum (+ sum (getvar "area")))
    (SETQ LEN (+ LEN (GETVAR "PERIMETER")))
    (setq altext (strcat altext
			 (rtos (+ n 1) 2 0)
			 " S="
			 (rtos (getvar "area"))
			 " , P="
			 (rtos (GETVAR "PERIMETER"))
			 "\n"
		 )
    )
    (setq n (+ n 1))
  )
  (alert (strcat altext
		 "-----------------------------------\n"
		 " S="
		 (rtos sum)
		 " , P="
		 (rtos len)
	 )
  )
  (setvar "cmdecho" 1)
)