Skip overlapping objects in entsel selection

[carlos_m_gil_p]

Hi guys, how have you been?
I wanted to ask you a question about the entsel function.
Is there a way to skip overlapping objects when selecting with the entsel function?
For example, I need to select a line, but there are other objects on the line.
I once saw that it was possible, but now that I need it, I don't know how to do it.
I would appreciate any help you can give me.
I am attaching a dwg where I am testing it, it contains a mesh and on the edges of the mesh there are lines, but there is the mesh and a 3d polyline superimposed on it.

(defun c:xxx (/ e) 
  ; Selection
  (if (setq e (entget (car (entsel "\nSelect Line: ")))) 
    (if (= "LINE" (cdr (assoc 0 e))) 
      (princ "\n Selected Line")
      (princ "\n Invalid object")))
  ;
  (princ)
  ;
)

[marko_ribar]

Perhaps like this :

(defun c:xxx ( / e )
  (prompt "\nPick Line: ")
  (if (setq e (ssget "_.+:S:E" (list (cons 0 "LINE"))))
    (progn
      (setq e (ssname e 0)) ;;; e - ename (LINE enitity)
      ;;; do other stuff with e - LINE ;;;
    )
    (prompt "\nMissed... Better luck next time...")
  )
  (princ)
)

[Kent1Cooper]

Can't you just use the selector to pin down which of the objects you want?  That still works within an (entsel) function:

[paullimapa]

little adjustment...need to change this line:

(ssget "_.+:S:E" (list (cons 0 "LINE")))

to this line:

(ssget "_+.:E:S" (list (cons 0 "LINE")))

[carlos_m_gil_p]

Hi guys.
Thanks a lot for your help.
I had seen that it worked with ssget.
But I was wondering if it could be done with entsel, because I have almost all my routines with entsel.

[paullimapa]

unfortunately entsel has no filtering option which is why ssget is the way to go

[carlos_m_gil_p]

Hello, how are you?
I thought it could be done with Entsel.
Many thanks to everyone for their collaboration and help.
Greetings to all.

[john.uhden]

@carlos_m_gil_p ,

Another way to look at is:

1. Set an Undo Mark.
2. Set a filter to select only the type of entity you want
     (setq ss (ssget "x" (setq filter '((0 . "LINE")))))
3. Use Draworder to bring SS lines to the front.
4. Now use your entsel which should find the object in front rather than in the back.
5. Use Undo Back to restore the draworder.
6. Proceed with the rest of your code.

[carlos_m_gil_p]

Thanks bro, I'll try it.