Topic: ssget function with initget function

[Coder]

Hello Guys . 

Is it possible to use the function ssget with the initget to call a dialog if the user typed d or dialog , otherwise keep the ssget function active to select lines ?

Code: [Select]

(princ "\n Select Lines or [Dialog] :")
(initget "Dialog")
(if (setq sel (ssget '((0 . "LINE"))))
  (progn
    ............
    )
  )

Thanks in advance .

[ribarm]

What comes to mind, something like this :

Code: [Select]

(defun c:_sel ( / sel )
  (initget "Dialog")
  (if (eq (getkword "\n Select Lines or [Dialog] :") nil)
    (progn
      (setq sel (ssget '((0 . "LINE"))))
      ...
    )
    (progn
      (initdia)
      ...
    )
  )
  (princ)
)


[CAB]

Use a subroutine to get the entry & then process as you like.
http://www.theswamp.org/index.php?topic=39042.msg442350#msg442350

[Coder]

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 .

Code: [Select]

(initget "Dialog")
(if (setq sel (entsel "\n Select Lines or [Dialog] :"))
 
  (if (eq sel "d")
    (showDialog)
    (..........)
      )
  )
       

[roy_043]

Code - Auto/Visual Lisp: [Select]

1. (princ "\n Select lines or Enter for dialog :")
2. (if (setq sel (ssget '((0 . "LINE"))))
3.   (progn
4.     ............
5.   )
6.   (showDialog)
7. )