Topic: Text Renumbering

[DanB]

Does anyone have a routine that can renumber text strings? Example: string of dtext (or mtext) that reads "DS-1" or "DS-22" These are the callouts for our Drainage Structures. If we need to add an additional structure early on we need to renumber all of them. Late in the project we will add "DS-1A" or "DS-22A" if needed but not early in the project. I have a lisp that adds/subtracts values from a Block Attribute but wasn't sure of the approach on a text string. Can this be done and not recieve the value "28" when adding "+1" to "17" ("1" "+1" and "7" "+1").

Thanks,
Dan

[Mark]

I believe someone has already done that Dan, did you try searching theswamp.

[DanB]

I did a search for "renumbering" and I see the posts on renumbering block attributes, which I am able to do already..

[M-dub]

Do a search for APPEND and you should find something.  I did a search on Cadalyst and found something.

[danny]

did you take a look here
http://theswamp.org/phpBB2/viewtopic.php?t=2817

[Mark]

Qick and dirty, very little error trapping and doesn't do MTEXT, but it'll get you started.

Code: [Select]


(defun c:add2txt (/ ent txt_str num str)

  (if (setq ent (car (entsel "\nPick a string: ")))

(progn
 (setq ent (entget ent))

 (if (= (cdr (assoc 0 ent)) "TEXT")
(progn
 (setq txt_str (cdr (assoc 1 ent)))

 (setq num
(itoa
  (1+
(atoi
  (substr
txt_str
(+ (vl-string-position (ascii " ") txt_str nil T)
2
)
)
  )
)
  )
)

 (setq str
(substr txt_str
1
(1+ (vl-string-position (ascii " ") txt_str))
)
)

 (setq ent
(subst (cons 1 (strcat str num)) (assoc 1 ent) ent)
)
 (entmod ent)
 (princ)
 )
;else
(alert "that wasn't (D)TEXT")
)
 )
)
  )


[ELOQUINTET]

go to show your stuff section second page and check out text and number thread by cab

[DanB]

Thanks for the help on this one. Think one of these should do the trick.

Dan