(defun c:test (/ sset ssl)
(if (setq sset (ssget '((0 . "circle"))))
(progn
(setq ssl (sslength sset))
(while (> ssl 0)
(command "_.point" (cdr (assoc 10 (entget (ssname
sset (setq ssl (1- ssl)))))))
);while
);progn
);if
(princ)
);defun



fonte

http://www.newsland.it/nr/browse/it.....cad/8820.html