Convert Lisp command to VBA

[Anonymous]

To get the height of a piece of mtext, I would use the commands:
(setq text_last (entlast))
(setq mtext_height (cdr (assoc 43 (entget text_last))))

Code 43 of mtext is the height of the mtext.

I'm converting a lot of our lisp routines to VBA. How do I access code 43 of mtext using VBA commands?

[Anonymous]

Use the "Height" property of the text or mtext.

Here is a rough equivalent to your lisp:

Dim oMText As AcadMText

Set oMText = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)

MsgBox oMText.Height

HTH

Gary