Jump to content

Global Text Height Change With Both MText And DText


caxtin

Recommended Posts

Back to this issue again. I had asked this quetions before:

http://forums.augi.com/showthread.php?133555-Global-Text-Height-Change-With-MText-amp-DText

 

I thought I have conqured it but not. Now, I have a site plan with about ninety six words in it. They include MText and DText. I need to be able to globally change the text height to be the same for all. First I Filtered all the text, and moved them off the work ares, then I used the QSelect as well as the Object Properties to select the MText and the DText sepeartely to change the text height. Doing eitht of them won't give me the Text Height option. I had thought there may have been a line or a point somewhere in my selection, but did not find any. Selecting them in a group of three or four, I can use the Object Properties box, but not globally. QSelect will not give me the Text Height option either. Since I come accross situation a lot and have to pick them one-by-one, it would be nice to have a code that would change the text hight - regardless of if it is MText or DText and don't have to filter it first and move all out of the way.

Anyone know of a code that would change all text height to

my choice of height by selecting everything in the window, ignoring everything except text to be able to change their heights? Last week I went through two projects that I had to change all text manually and almost individually - regardless of the text style.

 

I did a Google search and still cannot find the exact code I'm looking for. I'll keep searching home someone might have one or know one.

 

Thanks. :(

Link to comment
Share on other sites

(defun c:gtht (/ AllText i)
 (vl-load-com)
 (setq TxtHt (cond
               ((getdist (strcat "\nEnter text height"
                                 (if TxtHt
                                   (strcat " <" (rtos TxtHt) ">: ")
                                   ": "
                                 )
                         )
                )
               )
               (TxtHt)
             )
 )
 (if (Setq AllText (ssget "_X" '((0 . "*TEXT"))))
   (repeat (setq i (sslength AllText))
     (vlax-put (vlax-ename->vla-object (ssname AllText (setq i (1- i))))
               'Height
               TxtHt
     )
   )
 )(princ)
)

  • Like 1
Link to comment
Share on other sites

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.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...