change sign in bulk on multiple numbers

[cat3appr]

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!

[Dadgad]

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.

[eldon]

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

[Dadgad]

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!

[cat3appr]

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?

[ReMark]

I guess catman gave that suggestion a thumbs down.

[eldon]

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!

[ReMark]

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

 

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

[Lee Mac]

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.

[BIGAL]

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