;; ! ****************************************************************************
;; ! MI_after
;; ! ****************************************************************************
;; ! Return selection set of objects after entname
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! **************************************************************************** 

(defun MI_after (ename / ss1)

(if (not ename)
(setq ss1 (ssget "_X"))
(progn
	(setq ss1 (ssadd))

	(while (and ename (setq ename (entnext ename)))
		(ssadd ename ss1)
	)
	(if (zerop (sslength ss1))
	nil
	(progn
		(command "._Select" ss1 "")
		(setq ss1 (ssget "_P"))
	))
))
)