(defun EastNorthToXY (p / AeccApp AeccDocs AeccDoc AeccUtil)
   (if (not *acad*)(setq *acad* (vlax-get-acad-object)))
   (if
      (and
         (setq AeccApp (vl-catch-all-apply 'vla-getinterfaceobject (list *acad* "aecc.application")))
         (not (vl-catch-all-error-p AeccApp))
         (setq AeccDocs (vl-catch-all-apply 'vlax-get (list AeccApp "Documents")))
         (not (vl-catch-all-error-p AeccDocs))
         (setq AeccDoc (vla-item AeccDocs 0))
         (setq AeccUtil (vl-catch-all-apply 'vlax-get (list AeccDoc "Utility")))
         (not (vl-catch-all-error-p AeccUtil))
         (vlax-method-applicable-p AeccUtil "EastNorthToXy")
      )
      (vlax-invoke AeccUtil "EastNorthToXy" p)
   )
)