Topic: Change Mtext "Dynamic" column to "None"

[jlogan02]

I've searched for some way to get at the Column Type property of Mtext to change it and can't seem to find a method.

My issue is, someone is issuing a none standard piece of Mtext as a starting point for our mtext revision notes and has "Dynamic columns" set. Now I have an issue where I want to scale this revision text up along with the title block using lisp. When I scale the selected mtext objects the rogue mtext revisions scale but overrun the revision area text box. (See dwg image)

My solution or attempt was to find the Mtext with dynamic columns and reset it to NONE from dynamic. Having read a couple of different posts in the swamp lead me to understand that the MtextColumn variable can be set but only applies to new Mtext entities and doesn't update existing Mtext with "Dynamic" columns to "None". 

This results in selecting all 2d polylines

Code - Auto/Visual Lisp: [Select]

1. (setq ss1 (ssget "_X" '((75 . 0))))

This results in selecting a hatch boundary that looks like a cloud. We use revclouds with hatches inside them. 

Code - Auto/Visual Lisp: [Select]

1. (setq ss2 (ssget "_X" '((76 . 0))))

So clearly but happily I used a small routine to test "getting" the object I want and failed miserably.

As an aside, match properties does what I want if I select one correct mtext entitiy to update the rogue metxt entity. Which brings me full circle back to getting an Mtext entity with a column type of "Dynamic".

Does anyone know how to get the column type and change it?

[jlogan02]

text overrun image

[BIGAL]

Pretty sure this was answered at forums/autodesk will try to find.

[tombu]

I use this one by BlackBox https://www.augi.com/forums/showthread.php?170434-MText-width-set-to-zero&p=1330953&viewfull=1#post1330953

[CodeDing]

jlogan02,

Assuming you're using AutoCAD, this will change the MText Columns property to "None":

Code: [Select]

(setpropertyvalue (car (entsel)) "ColumnType" 0)
0 = None
1 = Static
2 = Dynamic

Hope that helps.

Best,
~DD

[jlogan02]

Thanks everyone. It's all in how you search, isn't it!! I wasn't searching for column width.

[jlogan02]

Thanks again for the suggestions all worked out fine. Now for the second question. In the CAD image of the revisions you'll see initials at an angle along the left side of the revision area. I can't seem to select just those based on their angle.

This selects them but also selects every other piece of text in the drawing except for the revisions on the right.

Code - Auto/Visual Lisp: [Select]

1. (setq ss3 (ssget "_X" '((8 . "TEXT2")(0 . "*TEXT") (-4 . "/=") (50 . 22.5))))

It actually selects text on layers that aren't TEXT2 or at an angle of 22.5. What am I missing?

 

[BIGAL]

Post a dwg

[jlogan02]

Spoke too soon.

I can't provide an actual drawing as all are preparatory. I've mocked up a drawing that exhibits the same results.

Code - Auto/Visual Lisp: [Select]

1. (setq ss3 (ssget "_X" '((8 . "TEXT2") (0 . "TEXT") (-4 . "/=") (50 . 22.5))))

I made a slight change and removed the * from

Code - Auto/Visual Lisp: [Select]

1. (0 . "*text")

. That minimized the issue somewhat. but it's still grabbing text at 0 rotation.

As an side I'm going to need to grab text greater than 20.0 less than 22.5. So this may be the wrong approach all together.




That's weird, I just tested it on a stripped down version of the drawing and it worked. Backed up to the original drawing and it worked there too. ---

Carry on.

[jlogan02]

Seems a little long winded but this works as a test.

Code - Auto/Visual Lisp: [Select]

1. (defun c:Testt ( / ss3 ss4 )
2.   (setq ss3 (ssget "_X" '((8 . "TEXT2") (0 . "TEXT") (-4 . "/=") (50 . 22.5) (-4 . "<NOT") (50 . 0) (-4 . "NOT>"))))
3.   (setq ss4 (ssget "_X" '((8 . "TEXT2") (0 . "TEXT") (-4 . "/=") (50 . 20.5) (-4 . "<NOT") (50 . 0) (-4 . "NOT>"))))
4.   (command "erase" ss3 ss4 "")
5.   )