change sign in bulk on multiple numbers

Hi all,

I have these drawings with numbers on the side, vertically placed. I need to reverse each one of the number , so for instance the 3.15 has to become -3.15

thanks in advance for any input!

What sort of entities are the numbers?

How were they generated?

Are they externally linked?

Hopefully not by the spreadsheet from Hades with 40,000+ points in your other thread.

Perhaps you could use one of the lisps that operate on numbers in a drawing, and multiply your numbers by -1

Perhaps you could use one of the lisps that operate on numbers in a drawing, and multiply your numbers by -1

That sounds like just the ticket eldon!

Perhaps you could use one of the lisps that operate on numbers in a drawing, and multiply your numbers by -1

That sounds like just the ticket eldon!

So, does anyone know how to do this?

I guess catman gave that suggestion a thumbs down.

So, does anyone know how to do this?

I use a lisp called TextMath, but it is quite old and there are more modern ones about. The key words to search for are "math" and "text" or variations on those words!

TextMath can be downloaded free of charge from the Cadalyst website. It dates from 2009.

http://cadtips.cadalyst.com/notestex...text-and-mtext

Assuming your text items contain only the numerical data (without surrounding text content), I would suggest using a simple prefix text program, such as this.

My $0.05 worth, should have known to go to Lee-mac first but it only took a few minutes a day ago.

; adds a suffix or prefix to text  
; 
; by Alan H July 2016
(defun sufftxt ( / ss obj txtstr suffix)
(alert "Make sure you have only the correct text layer on\n \nPress Esc now if you need to exit\n \nUse Layiso")
(if (not AH:getval2) (load "getvals"))
(ah:getval2 "Enter new text" 25 24 "+ or - for prefix suffix" 3 2)
(setq suffix val1)
(setq ans val2)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)

(setq ss (ssget))
(setq y (sslength ss))
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss (setq y (- y 1)))))
(if (= (vla-get-ObjectName obj) "AcDbText")
 (progn
 (setq txtstr (vla-get-textstring obj ))
 (if (= ans "+")
   (vla-put-textstring obj (STRCAT suffix " " txtstr))
   (vla-put-textstring obj (STRCAT txtstr " " suffix))
 ) ;if
 )  ; progn                   
)  ; if                            
)  ; repeat
(setvar "osmode" oldsnap)
) ; defun
(princ )
(sufftxt)

GETVALS.lsp