Until it gets written in stock...
use: 'average
You can write it into the POP0 menu...
Code:
;;; Average point of all selected points
(DEFUN c:average (/ |average| |count| |nextpoint| |pt1| |temp-pt|)
(SETQ |pt1| (GETPOINT "\nSpecify first point to Average: "))
(SETQ |count| '(1 1 1))
(SETQ |temp-pt| |pt1|)
(WHILE
(SETQ |nextpoint|
(GETPOINT |pt1|
"\nSpecify next point or RETURN to end: "
)
)
(SETQ |temp-pt| (MAPCAR '+ |nextpoint| |temp-pt|))
(SETQ |count| (MAPCAR '1+ |count|))
(PROMPT
(STRCAT "\n" (ITOA (CAR |count|)) " points specified: ")
)
)
(SETQ |average| (MAPCAR '/ |temp-pt| |count|))
(command "_non" |average|)
)