change text using Visual basic or lips

[mien]

can someone teach me how to show height value in autocad using Visual basic or lips but the text format must show like this for example 9.5...

[lpseifert]

If I understand what you're asking and assuming it's Mtext... you have two dxf codes to examine, the text height and the string's value and formatting.

(cdr(assoc 43 (entget(car(entsel)))))
(cdr(assoc 1 (entget(car(entsel)))))

[Lee Mac]

Perhaps this might help you:

 

http://www.cadtutor.net/forum/showthread.php?t=33006

[CarlB]

You could label an elevation (height) using a block with attributes; in your example the "9" and "5" could be separate attributes, right & left justified.

[Lee Mac]

In MTEXT, one can alter the height of text by substituting the following code into the elist:

 

{\\H0.5x;text}

 

The above would make the text half the height of the previous text in the MTEXT.

[Lee Mac]

For example:

 

(defun c:tht (/ ent tval nval 1st)
 (if (and (setq ent (car (entsel "\nSelect MTEXT Entity... ")))
      (eq "MTEXT" (cdadr (entget ent))))
   (progn
     (setq tval (cdr (assoc 1 (entget ent)))
       nval (substr tval 2) 1st (substr tval 1 1))
     (entmod (subst (cons 1 (strcat 1st "\{\\H0.5x;" nval "\}"))
            (assoc 1 (entget ent)) (entget ent))))
   (princ "\nNo MTEXT Selected"))
 (princ))

[mien]

thanks Lee Mac....

[Lee Mac]

No probs Mien, any other questions, just ask

[mien]

ok thanks Lee Mac.....