Heidi1950 Posted August 15, 2006 Share Posted August 15, 2006 I often find myself copying numbers and then editing them sequentially. I can't use Excel or Word in this case, and the numbers are separate entities. I'm using AutoCAD 2007. For example: 1 1 1 1 I have to edit to 1 2 3 4 Quote Link to comment Share on other sites More sharing options...
gcp310 Posted August 15, 2006 Share Posted August 15, 2006 a lisp program could do it. a while ago i used to work for an exhibition company and a collegue wrote a lisp program that would allow you to sequentialy number trade booths just by clicking inside the box. it auto centered and everything. I will try to find the lisp program. it was quiet handy. G Quote Link to comment Share on other sites More sharing options...
gcp310 Posted August 15, 2006 Share Posted August 15, 2006 (edited) try the following, must have acad2000 and up, and the full version. open notepad and copy and paste text into it saveas Autonum.LSP and save it into your autocad support file in Tools>Load Application find the Autonum.LSP file and drag it into your startup suite on the command line, type in autonum and follow the prompts enter 0 when asked for the x & y co ordinates to have your numbers snap to points. this is another one that jim wrote way back when, i couldnt find the newer version. ;; Name:- Auto Numbering ;; Written By:- Jimmy D ;; Written on:- 17/5/1999 ;; Modified by:- GCP310 ;; Modified on:- 15/8/2006 ;; This program is for auto-numbering (defun C:autonum (/ pnt1 start rot count ang inc oldlayer) (setq ang 0 rot 0 count 0 inc 1 total 30000 OY 1500 OX 1500 ) (princ " \n") (princ "Warning: Please make sure you have set your text style\n") (princ " and height before you continue. \n") (setq oldlayer (getvar "clayer")) (setq oldsnap (getvar "osmode")) (setvar "osmode" 33) (if(not(tblsearch"layer" "DIMESION")) (command "-layer" "n" "DIMENSION" "c" "red" "DIMENSION" "" ) ) ;; If (setvar "clayer" "DIMENSION") (setq count (getint "Enter Starting No.: ")) (if (null count) (setq start 1)) (setq inc 1) (setq ox (*(getdist "Select x offset: ")0.5)) (if (null ox) (setq ox 0)) (setq oy (*(getdist "Select y offset: ")0.5)) (if (null oy) (setq oy 0)) (setq th (getint "\nEnter text height: ")) (if (null th) (setq th 450)) (while (<= count total) ;; Gets point for Number (setq pnt1 (getpoint "Pick Ref Point or Ecs to end: ")) ;; Extracts x and y co-ordinates from pnt1 (SETQ px1 (CAR pnt1)) (SETQ ly1 (CDR pnt1)) (SETQ py1 (CAR ly1)) (SETQ px2 (+ px1 ox)) (SETQ PY2 (+ py1 oy)) ;; Creates new point from x and y (SETQ pnt2 (LIST px2 py2)) ;; Inserts text on to point (command "text" "s" "standard" "mc" pnt2 th 0 count) ;; Increases count in relation to the increment (setq count (+ count inc)) ) ;; While ) ;; Defunc hope this helps G Edited April 24, 2014 by SLW210 Quote Link to comment Share on other sites More sharing options...
Guest Alan Cullen Posted August 15, 2006 Share Posted August 15, 2006 Here's another one you could try.... ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ERROR HANDLER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun newerr (/ s) (if ocmd (setvar "cmdecho" ocmd)) (if olderr (setq *error* olderr)) (if (/= s "Function cancelled") (if (= s "quit / exit abort") (princ) (princ (strcat "\nError: " s)) ) (princ "\n ERROR....CONSOLE BREAK....PREVIOUS DRAWING SETTINGS RESTORED") ) ;; (setq no nil ht nil pt nil) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;; MAIN PROGRAM ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:ptnos () (princ "\n AUTOMATIC SEQUENTIAL POINT NUMBERING - January 1998 - Alan CULLEN") (setq no (getint "\n Enter Starting Number : ")) (setq ht (getreal "\n Enter Text Height : ")) (setq pt T) (while pt (setq notxt (itoa no)) (setq pt (getpoint (strcat "\n Select midpoint for text ( "notxt" ) < exit > : "))) (if pt (progn ;; (princ (strcat "E "(rtos (car pt))" N "(rtos (cadr pt)))) (command "TEXT" "j" "m" pt ht "90" no) (setq no (+ no 1)) ) (princ "\n Routine terminated normally by User") ) ) ;; (setq no nil ht nil pt nil) (setvar "CMDECHO" ocmd) (setq *error* olderr) ;;Restore old error handler (princ) ) Quote Link to comment Share on other sites More sharing options...
Ako Posted August 15, 2006 Share Posted August 15, 2006 If the numbers were in a table you can use formulae to make each cell equal the one above +1. Dave Quote Link to comment Share on other sites More sharing options...
mvrcad Posted May 14, 2010 Share Posted May 14, 2010 Thanks Guys And Girls Have Saved Some Time At Work Using These Lisps, Cheers Quote Link to comment Share on other sites More sharing options...
alanjt Posted May 14, 2010 Share Posted May 14, 2010 http://www.cadtutor.net/forum/showthread.php?t=35234 Quote Link to comment Share on other sites More sharing options...
Ryder76 Posted May 14, 2010 Share Posted May 14, 2010 If the numbers were in a table you can use formulae to make each cell equal the one above +1. Dave ooooh me likes tables Quote Link to comment Share on other sites More sharing options...
anaskattayil Posted April 23, 2014 Share Posted April 23, 2014 I have one road drawing, its 500 meters. I need to put numbering 1 to 500 (such us 1 2 3 4 etc). every text have 1 meter incriment & 1 meter gap. Please help me. Quote Link to comment Share on other sites More sharing options...
blaconi2000 Posted April 24, 2014 Share Posted April 24, 2014 You could try the incremental numbering lisp on Lee-Mac's site: http://lee-mac.com/numinc.html Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.