Topic: Width of block multiline attribute

[Spainenins]

Hello!
I have made a lisp routine that does the following:
1)adds a block reference to the model space;
2)changes the value (text string) of an attribute;
3)gets the real width (through bounding box) of the attribute;
4)changes a dynamic block property so that the width of the block reference fits the new text.

It works beautifully, when the attribute is a single-line one. But sadly my colleagues requested I make it a multi-line attribute, so they could use subscripts and superscripts in it.
The problem seems to be that Bounding box of a multi-line attribute is always as if it had it's default text string.
Maybe there is another way to get the width of a multi-line attribute?
Code below:

Code - Auto/Visual Lisp: [Select]

1. (defun c:ko-addmyblock ()
2.   (vl-load-com)
3.   (setq mspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))    ;get modelspace of active document
4.   (setq blkname "MyBlock")      ;name of my block
5.   (setq attrname "NR")  ;block attribute name (TagString) that I want to change
6.   (setq newattrvalue "MyNewValue")      ;the new value I want to give to the attribute
7.   (setq propname "Width")       ;block property name that is supposed to change depending on width of the attribute
8.   (setq pt (getpoint "Insertion point for block"))      ;get insertion point for the block
9.   (setq blkobj (vla-insertblock mspace (vlax-3d-point pt) blkname 1 1 1 0))     ;insert block
10.  
11.   ;;get the relevant attribute as vla-object
12.   (setq attrobj
13.          (car
14.            (vl-member-if
15.              '(lambda (blkattrobj) (= (vlax-get-property blkattrobj "TagString") attrname));lambda
16.              (vlax-safearray->list
17.                (vlax-variant-value
18.                  (vlax-invoke-method blkobj "GetAttributes")))
19.              );vl-member-if
20.            );car
21.         );setq
22.  
23.   (vla-put-textstring attrobj newattrvalue)     ;change text of the relevant attribute
24.   (vla-getboundingbox attrobj 'll 'ur)  ;get bounding box of attribute
25.   (setq attrwidth (apply '- (mapcar 'car (mapcar 'safearray-value (list ur ll)))))      ;get width of the bounding box
26.  
27.   ;;get the relevant property as vla-object
28.   (setq propobj
29.          (car
30.            (vl-member-if
31.              '(lambda (blkpropobj) (= (vlax-get-property blkpropobj "PropertyName") propname));lambda
32.              (vlax-invoke blkobj "GetDynamicBlockProperties")
33.              );vl-member-if
34.            );car
35.         );setq
36.  
37.   (vla-put-value propobj (+ 2.0 attrwidth))     ;change it's value
38.   (princ)
39. );defun

The block is a really simple one with one attribute called "NR", and one custom property called "Width".


EDIT (John): Fixed code tag.

[BIGAL]

I just made a simple mtext with multi line, picked 2 points for the mtext, the bounding box returned the 2 points which was way wider than the actual text.

Which leads me to maybe 2 ideas the 1st is need mtext to be with extents pulled back to just touch right side. The other way is to use mtext pt pt which will force an auto width.

Ok but the good news try this simple mod before running bounding box.

Code: [Select]

(setq ent (entget (car (entsel "\nPick object"))))
(entmod (subst (cons 41 0.0) (assoc 41 ent) ent))