Globally subtract 1 from all numbers

[Stephen.Walz]

Does someone have a routine that they'd be willing to share that will enable you to globally subtract 1 from all numbers selected.

Basically, my whole site got dropped by a foot and I need to revise a whole bunch of elevation callouts. I'm using AutoCAD 2005.

Any help would be much appreciated.

Thanks

Steve

[kennet.sjoberg]

. . . numbers selected. . .

text, mtext,dim or ?

: ) Happy computing !

kennet

[Adesu]

Hi Stephen,
Your question not clear,what are you looking for?
please more detail or post here a sample drawing.

Does someone have a routine that they'd be willing to share that will enable you to globally subtract 1 from all numbers selected.

Basically, my whole site got dropped by a foot and I need to revise a whole bunch of elevation callouts. I'm using AutoCAD 2005.

Any help would be much appreciated.

Thanks

Steve

[Stephen.Walz]

Sorry for the confusion everyone...I wanted to modify mtext number values...I found this routine elsewhere.

Thanks

Steve

(defun MakeX (entname)
  (vlax-ename->vla-object entname)
)

(defun GetX (object prop)
  (vlax-get object prop)
)

(defun PutX (object prop val)
  (vlax-put object prop val)
)

(defun c:AddText (/ txt1 txt2 cnt1 ent1 pec1)

(command "_.undo" "_end")
(command "_.undo" "_group")
(vl-load-com)
(setq txt1 (getreal "\nEnter value to increase by (if decreasing, add a minus sign before). "))
(setq cnt1 0)
(if txt1
  (progn
    (if (not *pec1)
      (setq *pec1 3)
    )
    (setq pec1 (getreal (strcat "\nHow many decimal places [" (itoa *pec1) "]? ")))
    (if pec1
      (setq *pec1 (fix pec1))
    )
    (setq ss (ssget '((0 . "*TEXT"))))
    (while (/= cnt1 (sslength ss))
      (setq ent1 (MakeX (ssname ss cnt1)))
      (setq txt2 (GetX ent1 'TextString))
      (MakeSureNum txt2 ent1)
      (setq cnt1 (1+ cnt1))
    )
  )
)
(prompt "\n  May get rounding-off if new decimal is less then existing decimal places!!")
(command "_.undo" "_end")
(princ)
)

;==============

(defun MakeSureNum (txt3 ent1 / cnt1 cnt2 txt4 txt5 txt6 txt7)

(setq cnt1 0
  cnt2 1
)
(if (and (>= (ascii (substr txt3 1 1)) 65) (/= (ascii (substr txt3 1 1)) 32))
  (while (>= (ascii (substr txt3 1 1)) 65)
    (if txt4
      (setq txt4 (strcat txt4 (substr txt3 1 1)))
      (setq txt4 (substr txt3 1 1))
    )
    (setq txt3 (substr txt3 2 (strlen txt3)))
  )
)
(while (= (substr txt3 1 1) " ")
  (setq txt4 (strcat txt4 " "))
  (setq txt3 (substr txt3 2 (strlen txt3)))
)
(if (< (ascii (substr txt3 1 1)) 65)
  (while (and (<= (ascii (substr txt3 1 1)) 65) (/= (ascii (substr txt3 1 1)) 0) (/= (ascii (substr txt3 1 1)) 32))
    (if txt5
      (setq txt5 (strcat txt5 (substr txt3 1 1)))
      (setq txt5 (substr txt3 1 1))
    )
    (setq txt3 (substr txt3 2 (strlen txt3)))
  )
)
(setq txt5 (atof txt5))
(setq txt6 (+ txt5 txt1))
(setq txt7
  (if txt4
    (strcat txt4 (rtos txt6 2 *pec1) txt3)
    (strcat (rtos txt6 2 *pec1) txt3)
  )
)
(PutX ent1 'Textstring txt7)

)

[Mlabell]

I all the code suppsed to be one lisp? Or seperate? I could use something like this also. I have only a routine which does whole numbers.

[Opie]

I all the code suppsed to be one lisp? Or seperate? I could use something like this also. I have only a routine which does whole numbers.

I separated the code to make it more readable. It was not originally in code tags.

[T.Willey]

I all the code suppsed to be one lisp? Or seperate? I could use something like this also. I have only a routine which does whole numbers.

You can put it all in one lisp file, and then just load that one lisp file. Then you would type 'AddText' to use it. It is one I posted before somewhere else.

[Mlabell]

Got it. Thanks guys!

[KMiller.138083]

I'm looking for a routine that will open my drawing, increase a certain text value by one, save, close the drawing and then go on to the next drawing and do the same thing. Suchas increasing the drawing number from 50 to 51 in the first drawing and 51 to 52 in the next drawing for example. I have 250 drawings that have one piece of mtext that must be increased by one. Thanks!

[kennet.sjoberg]

Welcome to this forum KMiller,

More info would be nice like layer, size, xyz, font, text . . . .
then it would be easier to identify the Mtext object.
if we are lucky there is only one Mtext that have some parameters in common.


: ) Happy Computing !

kennet