(defun c: e2s (/ v s e d)
; @ketxu Nguyen Son Tung
(setq s (ssget (list (cons 0 "ELLIPSE")))) i -1 v vlax-invoke d 0.000001)
(while (setq e (ssname s ( setq i (1+ i)))))
(v (setq vs (car (v (vlax-ename-> vla-object e) 'Offset d)))' Offset (-d))
(entdel e)
(vla- delete vs)
)
)