Community
Another not-quite-exactly approach would be to offer an option such as typing an R, for Repeating the previous number. It would involve using (initget) to allow R to be entered at a (getpoint) prompt, and if it is, not incrementing the number, or maybe stepping the number back one and then having it incremented upward [to what it was last time] as usual, before making the Text. It would be one more keystroke to hit R and Enter/space than it would to hit just Enter as in the other suggestion, but when you're done, one Enter would end the routine, and if you're a right-hand-mouse person, R-space with the left hand could well be faster than Enter, whether the latter is done by moving your left hand across or by taking your right hand off the mouse to hit it. Does that sound worth pursuing?
Kent Cooper, AIA 
A simple demo for you using initget
(Defun c:demo ( / addmode p n )
;;; pBe May2014 ;;;
;; Demonstrationj purposes only ;;;
(setq addmode 1)
(setq n (getint "\nEnter Start Number: ")
n (1- n))
(while (progn
(initget "T")
(setq p (getpoint "\n Insert <Press \"T\" for change mode>: ")))
(if (listp p)
(progn
(setq n (+ n (if (zerop addmode) 0 1)))
(entmake
(list (cons 0 "TEXT")
(cons 10 p) (cons 11 p)
(cons 1 (itoa n)) ; actual text
(cons 7 (getvar "TEXTSTYLE"))
(cons 40 1.0)
(cons 72 4)
)
)
)
(setq addmode (boole 6 1 addmode))
)
)
(princ)
)
Command: Demo
Insert <Press "T" for change mode>: <<user pick a point>> place the text with string equivalent of number
Insert <Press "T" for change mode>: <<user press T>> then press enter, operation switches to static mode
Insert <Press "T" for change mode>: <<user pick a point>> place the text with string equivalent of number
Insert <Press "T" for change mode>: <<user press T>> then press enter, operation switches add mode
Insert <Press "T" for change mode>: <<user pick a point>> place the text with string equivalent of number
Insert <Press "T" for change mode>: <<user press Enter>> program terminated
Again **For Demonstraton purposes Only***
Have not had the time to write a complete coding
pBe
EDIT: Kent beat me to it... 
anyhoo, it demonstrates what we meant by using initget
HTH
@Anonymous wrote:
...I'm a great fan of "ease of use"..
In that case, we can use grread in conjunction with the Express Tools function (acet-sys-shift-down).
This next demo utilize that function to remain in static mode while the shfit button is pressed.
(Defun c:demo2 ( / pressed p n )
;;; pBe May2014 ;;;
;; Demonstrationj purposes only ;;;
(setq n (getint "\nEnter Start Number: ")
n (1- n))
(while (null Stop)
(princ "\nNext point: <Press Shift for Static mode")(princ)
(setq Op (grread))(setq pressed (acet-sys-shift-down))
(cond
((= (car Op) 3)(setq pt (trans (cadr op) 1 0)))
((= (cadr Op) 32)(setq Stop T))
)
(setq n (+ n (if pressed 0 1)))
(entmake
(list (cons 0 "TEXT")
(cons 10 pt) (cons 11 pt)
(cons 1 (itoa n)) ; actual text
(cons 7 (getvar "TEXTSTYLE"))
(cons 40 1.0)
(cons 72 4)
)
)
)(princ)
)
command: demo2
HTH
@Anonymous wrote:
.... I really like this for labelling parts in my drawings ..., but when i have multiples i have to go back and copy the "tag" that i add for another panel for all multiples. I would really like to be able to "Shift+click" and have the lisp continue with the current number, and when i release shift, go back to ascending numbers until shift is held again. ....
I had gotten fairly far along in developing the attached TagIncrement.lsp with its version of a TAG command, before the Shift-to-not-increment solution came along [I wasn't aware of that possibility either], so I've taken it to a point, and thought I'd post it for the other aspects of it. That Shift-key aspect could probably be incorporated into it, and I'll try that out soon. Currently, it uses R as an option for Repeating the integer part of the tag, as in my earlier suggestion.
It does a variety of things in different ways from the OP's original, including:
1. using one sub-routine to get the text content for both the Prefix and the Suffix;
2. handling the offering of defaults differently;
3. using empty strings for the Prefix/Suffix if they are not wanted, rather than nil, so that it can simply string them together regardless, in one (entmake) operation, rather than building the text content in multiple different ways depending on whether there is a Prefix and/or a Suffix.
It also omits dealing with CMDECHO and OSMODE, which are not needed when the Text is made using (entmake) rather than (command).
And a little juicy enhancement -- it shows you in the location-point prompt what it's going to use for the Text you put there.
EDIT: A question -- Would there ever be a need to increment downward? That is, should a negative increment value be allowed?
I also have in mind to re-structure it so that it reports the settings when you call it up, and goes right to asking for points or options to change any of the settings individually, so you don't have to step through accepting most defaults, and so that you can change any of them on the fly.
Kent Cooper, AIA
@Anonymous wrote:
.... I could not see the "text preview" feature you spoke about. ....
It's not a preview out in the drawing, but is in the prompt where it's asking for a location for the next Tag, showing you what it's going to say. If you don't see it there, I'd have to think about why that might be -- it doesn't seem possible for it to be because of any settings, but I'll try it when I can on a newer version than I have here.
Kent Cooper, AIA
@Anonymous wrote:
....
2) while osmode may be irrelevant to the entmake command, it can still cause a problem with getting the point (depending on options and settings) so keeping it in as a general practice for novices doesn't hurt
....
I think when I would use something like this, I would sometimes [maybe even as often as not] want Osnap on specifically for getting the point. So I wouldn't want the routine always turning it off, but would control it for myself, either beforehand [e.g. to set it to Center, which I don't usually have on, to more quickly place Tags centered in Circles or Ellipses] or with F3 [to use the modes I normally have on, or not, as I choose]. But anyone can set it up for their own typical M.O.
Kent Cooper, AIA
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
