Text value divide by 2

[jyan2000]

Hello Forum, 

Is it possible to change all text/mtext value divided by 2? ( exp:  text / mtext =   12.2 / 2 : result should be 6.1 )

 Best Regards

Victor. 

[devitg · Accepted solution]

@jyan2000  test it 

(defun c:t/2 ( / ED TEXT$

              )

  (setq text$
         (rtos (* 0.5 (atof (cdr (assoc 1 (setq ed (entget (car (entsel "\n SElect a text")))))))))
  ) ;_  setq

  (setq ed (subst (cons 1 text$) (assoc 1 ed) ed))

  (entmod ed)
  
) ;_  defun

, just for each one  

[jyan2000]

Thank you very much for all your concern. Finallay I've found a lisp Mathtext.lsp perfectly solve my request. 

Best regards 

Victor. 

[devitg]

@jyan2000 , but it will not work with formatted MTEXT .  Neither do my lisp work for formatted MTEXT.

But if work for you , seem to be your dwg have Text or Unformatted MTEXT 

[3wood]

You can also try ALTEXT.