Text entry advice needed help please

This a question related to text change, and entry. I have a schematic with several hundred device addresses. How can I enter these in a fast efficient manner. I realize I
can go from one point to another, and either do a text change, or an attribute change. There has to be a more elegant way to do this. Speed is essential. Sometimes the numbers are contigous, but sometiimes not. What is a good technique? Any help would be much appreciated.
TIA,
Dennis
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

it sounds similar to numbering rooms on architectural plans. somewhere I have a little lisp I wrote that would take an intial value, convert it to text, put a box around it and create it at a point picked off the screen.
if memory serves, it could handle a prefix or suffix with a little tweaking, and it would increment the number and present the next number in sequence as a default.
so, I could start with, say R101 and by repeating the command the default would be R102, and so on. get to the second floor and replace the default with 201 and the whole thing starts over.
if it sounds like we are getting close, I could look up the code for you, maybe even do the tweaking, for a nominal fee..... :)
(serious about the "maybe", kidding about the "nominal fee")
roy
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
says...

--



Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Dennis,
You're tco clever for me today.
I'll just post some code:
the original routine ==>
(defun C:rmno ( / pt d d2 r1 r2 r3 r4 oldpl oldsnap new_num txt) (if (= count nil) (setq count (getint "Starting Room Number: " ) ) (setq count (+ count 1) ) ) (setq pt (getpoint "Text Location: " ) d (* (getvar "textsize") 0.8) d2 (* d 1.1) r1 (polar (polar pt pi d2) (* pi 1.5) d) r2 (polar (polar pt 0 d2) (* pi 1.5) d) r3 (polar (polar pt 0 d2) (* pi 0.5) d) r4 (polar (polar pt pi d2) (* pi 0.5) d) oldpl (getvar "plinewid") oldsnap (getvar "osmode") txt (itoa count) new_num (getstring (strcat "\nNew Number <" txt "> :")) ) (if (/= new_num "") (progn (setq txt new_num count (atoi txt) ) ) ) (setvar "osmode" 0 ) (setvar "plinewid" 0 ) (command "text" "mc" pt "0" txt ) (command "pline" r1 r2 "a" r3 "l" r4 "a" r1 "") (setvar "osmode" oldsnap) (setvar "plinewid" oldpl ) (princ) )
AND A HASTY REWRITE TO ACCOMMODATE AN EIGHT DIGIT NUMBER ===>
(defun C:rmno ( / pt d d2 r1 r2 r3 r4 oldpl oldsnap new_num txt) (if (= count nil) (setq count (getint "Starting Room Number: " ) ) (setq count (+ count 1) ) ) (setq pt (getpoint "Text Location: " ) d (* (getvar "textsize") 0.8) d2 (* d 4.5) r1 (polar (polar pt pi d2) (* pi 1.5) d) r2 (polar (polar pt 0 d2) (* pi 1.5) d) r3 (polar (polar pt 0 d2) (* pi 0.5) d) r4 (polar (polar pt pi d2) (* pi 0.5) d) oldpl (getvar "plinewid") oldsnap (getvar "osmode") txt (itoa count) new_num (getstring (strcat "\nNew Number <" txt "> :")) ) (if (/= new_num "") (progn (setq txt new_num count (atoi txt) ) ) ) (setvar "osmode" 0 ) (setvar "plinewid" 0 ) (command "text" "mc" pt "0" txt ) (command "pline" r1 r2 r3 r4 r1 "") (setvar "osmode" oldsnap) (setvar "plinewid" oldpl ) (princ) )
again, my code is ugly. sorry. you won't find "command" in my better stuff.
caveat emptor: I have always used a fixed text height. I think this routine will bomb if your style is not set to a text style with a fixed height. create one if you are in a hurry, I will rework this routine someday, should I live so long.
send me an email if you like, I think you will be able to beat my encryption:
snipped-for-privacy@XsockXet.XnetX
that is if you remove all capitalized x's
cheers.
roy
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
says...

Thanks Roy,
I'll give it a try.
Dennis
--
"Be suspicious of anybody who claims to know the truth."


Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.