how to get x and y coordinates of selected shape

[wygantas.pauliukonis686753]

Hello how to get x y coordinates of selected object in alertbox ?

[peter]

Assuming the object you are referring to is a block.

P=

(defun C:Alert (/ entSelection lstSelection objSelection)
 (vl-load-com)
 (and
  (setq lstSelection (entsel "\nSelect Object: "))
  (setq entSelection (car lstSelection))
  (setq objSelection (vlax-ename->vla-object entSelection))
  (vlax-property-available-p objSelection "InsertionPoint")  
  (alert (vl-princ-to-string (vlax-get objSelection "insertionpoint")))
 )
)