;|***************************************************************************|;
;| AvZ: Average Z Coordinate.                                                |;
;|      Hazırlayan: M. Şahin Güvercin  www.cizimokulu.com  28.09.2012        |;
;|---------------------------------------------------------------------------|;
(defun c:AveZ (/ PnTs n z)
  (setvar "cmdecho" 0) (command "_.undo" "group")
  (setq PnTs (ssget (list (cons 0 "Point"))) n (sslength PnTs) z 0)
  (while (> (setq n (1- n)) -1)
    (setq z (+ z (cadddr (assoc 10 (entget (ssname PnTs n)))))))
  (princ (strcat "\nAverage Z Coordinate: "
                 (rtos (/ z (sslength PnTs)) 2 (getvar "Luprec"))))
  (command "_.undo" "e") (princ))