How to label points with number text quickly ?

[bbb120]

there are four points,

I want to label them with 201,202,203,204(the start number can be define by the user )

when I click the first point ,it label with 201

when I click the second point ,it labels with 202

when I click the third point ,it labels with 203

when I click the forth point ,it labels wit 204

 

 

how????how ?

please look the attachment.

 

who can provide me with a LISP file which can achieve my purpose ?

[bbb120]

there are many many points which I want to label .so I need to find a quick method to label them in sequence ,I think there should be a clever man who can helps me ,my native language is not English ,if you cannot understand my expression ,please contact me

[Tiger]

http://www.cadtutor.net/forum/showthread.php?t=37420

 

see above thread for instance - if you do a search here for Automaitc numbering you'll get a bunch of different solutions.

[oliver]

try this..i use them all the time

;Lotno.lsp
;This is a program to insert incremented lot numbers
;using current text.
;Created by David Perry 8/15/93
;; Visit http://davescogo.virtualave.net/

       (defun lotn ( / p p1 p2 n1 scmde)
         (setq n1 (getint "Enter starting lot number: "))
         (setq  p1 (getpoint "\nText location: "))
         (setq scmde (getvar "cmdecho"))
          (while p1
          (setvar "cmdecho" 0)
          (setq p2 p1)
    (if (= 0.0 (cdr (assoc 40 (tblsearch "style" (getvar "textstyle"))))) 
           (command "text"
              "J"
              "MC"
              (setq p p1)
              (setq p "")
              (setq p "")
              (setq p n1)
           )
           (command "text"
              "J"
              "MC"
              (setq p p1)
              (setq p "")
              (setq p n1)
           )
           );if
           (setq n1 (+ n1 1))
           (setq p1 (getpoint "\nText location: "))
           (if (= p1 p2) (setq p1 nil))
          )
          (setvar "cmdecho" scmde)
          (princ)
)
       (defun C:LOTNO ()
         (lotn)
)
(princ "Type LOTNO to begin.")
(princ)

credit this code who made it.

 

oliver

[bbb120]

http://www.cadtutor.net/forum/showthread.php?t=37420

 

see above thread for instance - if you do a search here for Automaitc numbering you'll get a bunch of different solutions.

OK!thanks a lot !it's very kind of you ,because my native language is not English ,so I do not know how to search my interest topic in this forum with English keywords exactly ,so I upload a picture in order to make the people who browsers my thread can understand my expression exactly .

[Lee Mac]

http://www.cadtutor.net/forum/showthread.php?t=37420

 

see above thread for instance - if you do a search here for Automaitc numbering you'll get a bunch of different solutions.

 

Thanks for the plug

[Tiger]

Thanks for the plug

 

Somehow your lisps show up whatever you search on

[bbb120]

try this..i use them all the time

;Lotno.lsp
;This is a program to insert incremented lot numbers
;using current text.
;Created by David Perry 8/15/93
;; Visit http://davescogo.virtualave.net/

       (defun lotn ( / p p1 p2 n1 scmde)
         (setq n1 (getint "Enter starting lot number: "))
         (setq  p1 (getpoint "\nText location: "))
         (setq scmde (getvar "cmdecho"))
          (while p1
          (setvar "cmdecho" 0)
          (setq p2 p1)
    (if (= 0.0 (cdr (assoc 40 (tblsearch "style" (getvar "textstyle"))))) 
           (command "text"
              "J"
              "MC"
              (setq p p1)
              (setq p "")
              (setq p "")
              (setq p n1)
           )
           (command "text"
              "J"
              "MC"
              (setq p p1)
              (setq p "")
              (setq p n1)
           )
           );if
           (setq n1 (+ n1 1))
           (setq p1 (getpoint "\nText location: "))
           (if (= p1 p2) (setq p1 nil))
          )
          (setvar "cmdecho" scmde)
          (princ)
)
       (defun C:LOTNO ()
         (lotn)
)
(princ "Type LOTNO to begin.")
(princ)

credit this code who made it.

 

oliver

 

I cannot change the size of number text .Can you make your code better ?

[Lee Mac]

This would suit you better:

 

http://www.cadtutor.net/forum/showthread.php?t=35234