topic Re: Text height change by lisp in Visual LISP, AutoLISP and General Customization Forum

Text height change by lisp

Anonymous — Thu, 11 Oct 2018 09:01:14 GMT

Hi,

I am looking lisp for changing text height. I have to change Mtext height 100 to 150 in my drawing.

I know using by filter commend. I have to know change by lisp.

I hope any one can help me..

Thanks for advance.

sujinkutti.

Re: Text height change by lisp

Kent1Cooper — Thu, 11 Oct 2018 11:52:32 GMT

That should not be difficult, provided none of the Mtext has any internal height assignments overriding the height of the Mtext object as a whole. Do you need to change all Mtext to a height of 150, or only Mtext that currently is 100 units high, leaving others alone?

Re: Text height change by lisp

Anonymous — Thu, 11 Oct 2018 11:59:31 GMT

Hi..

I need to change only Mtext 100 to 150 other should be alone.

Thank you

sujinkutti..

Re: Text height change by lisp

Kent1Cooper — Thu, 11 Oct 2018 13:03:46 GMT

You can do this with QSELECT:

then in the Properties palette you can change the height of all of them at once.

Re: Text height change by lisp

Anonymous — Thu, 11 Oct 2018 13:21:16 GMT

Hi,

Thanks for your reply,

I know the Qselect & filter comments, i'm asking about the Autocad lisp.

Regards,

sujinkutti

Re: Text height change by lisp

pendean — Thu, 11 Oct 2018 13:26:06 GMT

the LISP forum is over here https://forums.autodesk.com/t5/autocad-customization/ct-p/AutoCADTopic1

Re: Text height change by lisp

Anonymous — Fri, 12 Oct 2018 06:06:48 GMT

@pendean wrote:
the LISP forum is over here https://forums.autodesk.com/t5/autocad-customization/ct-p/AutoCADTopic1

There is no this kind of answer...

Any one please advice me.

It's very helpful to me.

I have to change all Mtext height 100 to 150...

Thanks and regards,

Sujinkutti.

Re: Text height change by lisp

dbhunia — Fri, 12 Oct 2018 06:55:38 GMT

Try this........

This only for "MTEXT"........

(defun C:DEBA ( / ff1 xx1)

(Setq selectionset (ssget "_A" '((0 . "MTEXT") (40 . 100.0))))
(repeat (setq N (sslength selectionset))
(setq Data (ssname selectionset (setq N (- N 1))))
(setq EntityData (entget Data))
(setq ff1(assoc 40 EntityData))
(setq xx1 (cons 40 150.0))
(entmod(subst xx1 ff1 EntityData))
)
(princ)
)

Re: Text height change by lisp

Anonymous — Fri, 12 Oct 2018 07:00:28 GMT

@dbhunia wrote:
Hi

Try this........

This only for "MTEXT"........

(defun C:DEBA ( / ff1 xx1)
(Setq selectionset (ssget "_A" '((0 . "MTEXT") (40 . 100.0))))
(repeat (setq N (sslength selectionset))
(setq Data (ssname selectionset (setq N (- N 1))))
(setq EntityData (entget Data))
(setq ff1(assoc 40 EntityData))
(setq xx1 (cons 40 150.0))
(entmod(subst xx1 ff1 EntityData))
)
(princ)
)

Hi..

Thanks for the reply.

It's working, It's awesome...

Thank you very much..

Sujinkutti.

Re: Text height change by lisp

piyush.parihar24 — Thu, 25 Jul 2019 08:46:54 GMT

Command: DEBA
; error: bad argument type: lselsetp nil

Above error for below LISP

@dbhunia wrote:
Hi

Try this........

This only for "MTEXT"........

(defun C:DEBA ( / ff1 xx1)
(Setq selectionset (ssget "_A" '((0 . "MTEXT") (40 . 100.0))))
(repeat (setq N (sslength selectionset))
(setq Data (ssname selectionset (setq N (- N 1))))
(setq EntityData (entget Data))
(setq ff1(assoc 40 EntityData))
(setq xx1 (cons 40 150.0))
(entmod(subst xx1 ff1 EntityData))
)
(princ)
)

Re: Text height change by lisp

ВeekeeCZ — Thu, 25 Jul 2019 10:01:16 GMT

@piyush.parihar24 wrote:

Command: DEBA
; error: bad argument type: lselsetp nil

Above error for below LISP

@dbhunia wrote:

Hi

Try this........

This only for "MTEXT"........

(defun C:DEBA ( / ff1 xx1)

(Setq selectionset (ssget "_A" '((0 . "MTEXT") ~~(40 . 100.0)~~)))
(repeat (setq N (sslength selectionset))
(setq Data (ssname selectionset (setq N (- N 1))))
(setq EntityData (entget Data))
(setq ff1(assoc 40 EntityData))
(setq xx1 (cons 40 150.0))
(entmod(subst xx1 ff1 EntityData))
)
(princ)
)

Re: Text height change by lisp

okarim6RZ7U — Tue, 06 Sep 2022 02:20:48 GMT

It doesn't modify all my Mtext. 😢

Re: Text height change by lisp

ВeekeeCZ — Tue, 06 Sep 2022 07:44:43 GMT

MTEXT uses two ways of defining text height:

- the height property, which is changed by the above routine - GREEN

- formatting characters, which could be applied just on a portion of text - RED

Google for STRIPMTEXT routine. It can remove all/some formatting characters if that is your issue.

Re: Text height change by lisp

okarim6RZ7U — Tue, 06 Sep 2022 13:03:44 GMT

I ran a stripMText lisp for height. But it still doesn't affect RED after running the above routine. How do I make RED and GREEN match?

Like you said all values of GREEN are changed by the above routine. Is there a routine for RED?

Re: Text height change by lisp

ВeekeeCZ — Tue, 06 Sep 2022 13:18:46 GMT

Generally, when you remove the char-formatting overrides, the above routine should work. Another thing is annotative scaling.

Post some dwg example to take a look.

Re: Text height change by lisp

okarim6RZ7U — Tue, 06 Sep 2022 13:28:47 GMT

There are three text sizes even after running both routines. To make sure the stripMText works, I'm able to clear the linefeed that makes each text written on a single line. The height, however, is what I'm after.

GREEN for all the text is the same too (meaning the above routine also works). I just don't know how to match the GREEN and RED.

Re: Text height change by lisp

ВeekeeCZ — Tue, 06 Sep 2022 13:32:01 GMT

Again and lastly, post a dwg. Before and target states.

Re: Text height change by lisp

okarim6RZ7U — Tue, 06 Sep 2022 13:40:26 GMT

Alright.

Re: Text height change by lisp

Kent1Cooper — Tue, 06 Sep 2022 13:57:22 GMT

@piyush.parihar24 wrote:

Command: DEBA
; error: bad argument type: lselsetp nil

....

(Setq selectionset (ssget "_A" '((0 . "MTEXT") (40 . 100.0))))
....

(setq xx1 (cons 40 150.0))
....

That's because none of your Mtext objects have a height of 100 units that the code is looking for, but they're all [ignoring internal height formatting, or after STRIPMTEXTing them] defined with a height of 3/16". [And even with internal overrides, they're 12 or 24 units in height, so I assume you do not want to change them to 150 units.] So, since none of them have the height the code is looking for, the (ssget) function sees none of them, and the selection set is empty, which is exactly what the error message is about.

Re: Text height change by lisp

ВeekeeCZ — Tue, 06 Sep 2022 14:06:04 GMT

From your target dwg it's not clear what your goal is.

Here I made a video before you posted the target.

https://autode.sk/3QmwP7k

My goal was to set all texts to the height of 24 (copied to the metric template).

HTH