Topic: input options

[jsr]

Hi all

When using PLINE command we are prompted to pick points or enter key words for arcs/length etc. How to get the same functionality in LISP programs. For example prompt user to either pick a point or enter some keyword such as 'L', which may trigger some other action.

Thanks.

[BlackBox]

Consider the INITGET and GETKWORD functions.

[irneb]

Consider the INITGET and GETKWORD functions.

I think you mean initget with getpoint. But the idea is the same 

[BlackBox]

For example prompt user to either pick a point or enter some keyword such as 'L', which may trigger some other action.

Consider the INITGET and GETKWORD functions.

I think you mean initget with getpoint. But the idea is the same 

It may not be the best solution (perhaps GETPOINT with INITGET's arbitrary input bit-code?), but it's the best suggestion I could think of given the specificity of the latter portion of the OP.

[CAB]

That's the quick fix.

Code: [Select]

(defun c:test (/ pt)
  (while
    (progn
      (initget "Arc Close Halfwidth Length Undo Width")
      (setq pt (getpoint "\nSpecify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:"))
      (cond
        ((vl-consp pt) (princ "\nGot at point.") nil) ; exit while loop
        ((= pt "Arc") (print pt)t)
        ((= pt "Close") (print pt)t)
        ((= pt "Halfwidth") (print pt)t)
        ((= pt "Length") (print pt)t)
        ((= pt "Undo") (print pt)t)
        ((= pt "Width") (print pt)t)
        (t (princ "\nInvalid input."))
      )
    )
  )

  (princ)
)