Thank you ribarm and CAB .
Still not what I am after
Lee 's function is a single selection set and I need to get the benefit of the ssget to select many lines .
My goal is to have a function that can do the same like below example but with ssget to be able to select many lines in one shut .
(initget "Dialog")
(if (setq sel (entsel "\n Select Lines or [Dialog] :"))
(if (eq sel "d")
(showDialog)
(..........)
)
)