Lisp routine numbering

Discussion in 'AutoCAD' started by D, Nov 4, 2003.

  1. D

    D Guest

    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.
     
    D, Nov 4, 2003
    #1
  2. D

    Tom Berger Guest

    (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
     
    Tom Berger, Nov 4, 2003
    #2
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.