Покажите примеры использования функции (entnext)?

при вызове без аргумента эта функция возвращает имя первого неудаленного примитива в базе рисунка (setq e1 (entnext)). Если у этой функции имеется аргумент, то она возвращает имя следующего примитива или nil, если в качестве аргумента указано имя последнего примитива чертежа (setq e2 (entnext e1)). Можно использовать в сочетании с функцией entsel: (setq e3 (entnext (car (entsel "Укажите примитив")))).