TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: DanB on January 24, 2006, 09:13:08 AM

Title: MText "Height"
Post by: DanB on January 24, 2006, 09:13:08 AM

(AutoCAD 2006/LDD 2006) I am looking for a way (through LISP) to modify a selection set of multiple MText entities by changing the "height." I am not refering to the text height but the height of the 4 grips shown when an individual MText is selected. I have an understanding how to change the Width through properties and through LISP however I have been unsuccessful with the height. I have found the DXF codes (thanks MP for info.lsp), I know I have heard the term "dotted pairs" ??? This DXF code looks to be different? See below example:

Quote

;; DXF Group Codes:
;   (-1 . <Entity name: 7c4166b8>)
;   (0 . "MTEXT")
;   (5 . "185F")
;   (102 . "{ACAD_REACTORS")
;   (330 . <Entity name: 7c4166b0>)
;   (102 . "}")
;   (330 . <Entity name: 7ef84cf8>)
;   (100 . "AcDbEntity")
;   (67 . 0)
;   (410 . "Model")
;   (8 . "C-PVI-TXT")
;   (100 . "AcDbMText")
;   (10 736434.0 1.4198e+006 0.0)
;   (40 . 3.2)
;   (41 . 84.2837)
;   (71 . 4)
;   (72 . 5)
;   (1 . "PVI HIGH PNT\P26.00\P18+40")
;   (7 . "L80")
;   (210 0.0 0.0 1.0)
;   (11 1.0 0.0 0.0)
;   (42 . 33.0667)
;   (43 . 13.8667)
;   (50 . 0.0)
;   (73 . 1)
;   (44 . 1.0)
;   (-3
;      (
;         "ACAD"
;         (1000 . "ACAD_MTEXT_DEFINED_HEIGHT_BEGIN")
;         (1070 . 46)
;         (1040 . 32.1205)                                                <<<Need to change this value<<<<
;         (1000 . "ACAD_MTEXT_DEFINED_HEIGHT_END")
;      )
;   )

In the above example I would like to change the "(1040 . 32.1205)" where I have found 32.1205 to be the "height" to "12.0" (at a later time I think I can code this "12.0" to be user prompt variable. I am not necessarily looking for a written solution but more of a "hint" or push in the right direction.

Thanks in advance,
Dan

Title: Re: MText "Height"
Post by: Joe Burke on January 24, 2006, 09:34:03 AM

Dan,

I think I know what you are referring to. Take a look at the topic named "MText - Set Limits Box to minimum" in the Autodesk customization NG dated 1/11/2006. Specifically the reply/code posted by C Witt.

Title: Re: MText "Height"
Post by: DanB on January 24, 2006, 10:08:54 AM

Very nice, thank you.

Dan

Title: Re: MText "Height"
Post by: Joe Burke on January 25, 2006, 10:49:05 AM

Dan,

Glad to hear that answered your question.

Title: Re: MText "Height"
Post by: CAB on January 25, 2006, 06:35:15 PM

The missing link. :-)
http://discussion.autodesk.com/thread.jspa?threadID=448625