(defun C:GeomC ( / acdoc acspc acsel obj reg pt)
 (vl-load-com)
 (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object))
       acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'Paperspace 'Modelspace))
 )
 (if (ssget "+.:E:S")
   (progn
     (vlax-for obj (setq acsel (vla-get-ActiveSelectionSet acdoc))
       (setq pt(trans (vlax-get (setq reg (car (vlax-invoke acspc 'AddRegion (list obj)))) 'Centroid) 1 0))
       (vla-delete reg)
     )
     (vla-delete acsel)
   )
 )
 pt
)