entsel mod..

(while (/= (cdr (assoc 0 el)) "MTEXT")
(setq qltext (car (entsel "\nSelect text to draw leader to...")))
(while (= qltext nil)
(setq qltext (car (entsel "\nSelect text to draw leader to...")))
)
(setq EL (entget qltext))
)

I want to add in the option for a responce of "p" (and "p" does not mean
previous here).. to the above lisp.. but am drawing a blank as to how..
(proly basic)..

 

(initget "P")
(setq op1 (getkword "\nSomething like this [P]? "))

Tim

 

if all i wanted was the "p" option.. then yes that would work, but as I
said i want to ADD the option to enter "p" to that lisp.

 

(initget [bits] [string])

The functions that honor keywords are getint, getreal, getdist, getangle,
getorient, getpoint, getcorner, getkword, entsel, nentsel, and nentselp. The
getstring function is the only user-input function that does not honor
keywords.

same principle, use your entsel, trap the 'error', respond accordingly

 

arg.. new it was simple.