text calculator

[Anonymous]

Hey Guys! I found an awesome lisp file for my work and i started using it.It adds numerical text and place the result.But my cad project consists many numbers and I can't separate the selected number from the unselected one.Can any one update it to change the color after the text is selected. please It's urgent!!!

[devitg]

@Anonymous , please upload your sample.dwg

[Anonymous]

You can try it on any sample with numeric values, but it will not show you any indicator when you select a number

[devitg]

@Anonymous , you shall ask the author

Author: Lee Mac, Copyright © 2011 - www.lee-mac.com 

[kajanthangavel · Accepted solution]

I change some code, i hope it help you.

                (progn (command "_.ChProp" entity "" "_C" "t" "255,0,0" "")
				(not
                  (or
                    (and (= 1 (length num)) (setq num (car num)))
                    (and (setq num (car (LM:ListBox "Select Number to Use" (mapcar 'vl-princ-to-string num) nil))) (setq num (read num)))
					
                  )
                ))

colour code is "225,0,0" for Red

if you want change colour from true colours code

and

sorry to Lee Mac, because, I edit his lisp without permission .

[Anonymous]

It works! Thanks kajanthangavel, appreciate it.