gmmdinesh Posted October 11, 2016 Share Posted October 11, 2016 (edited) 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 Edited July 19, 2018 by SLW210 Code Tags Quote Link to comment Share on other sites More sharing options...
Tharwat Posted October 11, 2016 Share Posted October 11, 2016 have a close look: (setq ss (ssget "_X" (list '(0 . "*TEXT") (cons 410 (getvar 'CTAB))))) Quote Link to comment Share on other sites More sharing options...
SLW210 Posted October 11, 2016 Share Posted October 11, 2016 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 Quote Link to comment Share on other sites More sharing options...
gmmdinesh Posted October 12, 2016 Author Share Posted October 12, 2016 Hi SLW210, I'm really very sorry,I'm newbie here.This mistake will not happen again. Thanks for your Information. Regards Dinesh P Quote Link to comment Share on other sites More sharing options...
gmmdinesh Posted October 12, 2016 Author Share Posted October 12, 2016 Hi Tharwat, Thank you so much for your code. Its working fine. Regards, Dinesh P:) Quote Link to comment Share on other sites More sharing options...
Tharwat Posted October 12, 2016 Share Posted October 12, 2016 Good for you. Quote Link to comment Share on other sites More sharing options...
Nawazuddin Posted July 19, 2018 Share Posted July 19, 2018 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. Quote Link to comment Share on other sites More sharing options...
Nawazuddin Posted July 19, 2018 Share Posted July 19, 2018 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. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted July 19, 2018 Share Posted July 19, 2018 Select similar texts then Ctr+1 and change the properties of text you want from the properties palette. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.