Lisp routine numbering

[D]

Does anyone have any info on where to find a Lisp
routine that will place a text Number everywhere I click and automatically increment the value for the next one.

 

[Tom Berger]

Does anyone have any info on where to find a Lisp
routine that will place a text Number everywhere I click and automatically increment the value for the next one.

(while (setq txt-pt (getpoint "\ntext insertion point: ")) (command "._text" txt-pt "" "" (if (not val) (setq val "0") (setq val (itoa (1+ (read val)))) ) "" )
)

Tom Berger