Lisp for change text height in model space only

Hi..Everyone.

I have a lisp file to change a text height.its working well but its changes text height in entire drawing ( including layout ( paper space )).

I want to change the text height in model space only. In this lisp, and what changes must be made.

(defun c:chgtxt  (/ ht ss)
 (vl-load-com)

 (if (and (setq ht (getdist "\nSpecify New Text Height: "))
          (setq ss (ssget "_x" '((0 . "*TEXT")))))
     (foreach x (mapcar 'entget
                  (vl-remove-if 'listp
                    (mapcar 'cadr (ssnamex ss))))
       (entmod (subst (cons 40 ht) (assoc 40 x) x))))
 (princ))

Thanks in advance

have a close look:

(setq ss (ssget "_X" (list '(0 . "*TEXT") (cons 410 (getvar 'CTAB)))))

Please read the Code Posting Guidelines and edit your post to include the Code in Code Tags.

[NOPARSE]

Your Code Here

[/NOPARSE] =

Your Code Here

Hi SLW210,

I'm really very sorry,I'm newbie here.This mistake will not happen again.

Thanks for your Information.

Regards

Dinesh P

Hi Tharwat,

Thank you so much for your code.

Its working fine.

Regards,

Dinesh P:)

Good for you.

have a close look:

(setq ss (ssget "_X" (list '(0 . "*TEXT") (cons 410 (getvar 'CTAB)))))

Hi,

can you help to code for Text height & Width

means

i need all text height to be 2.5 and all width factor 0.8

plase help me

i don't know the coding system.

Thanks.

Hi,

can you help to code for Text height & Width

means

i need all text height to be 2.5 and all width factor 0.8

plase help me

i don't know the coding system.

Thanks.

Select similar texts then Ctr+1 and change the properties of text you want from the properties palette.