Mtext Alignment

[giskumar]

Hi All,

Is there a way to set Mtext alignment to "BottomLeft" in Autocad VBA?

Thanks,
Kumar.

[Alex Moiceanu]

Hi Giskumar,

I used this LISP code to set the MiddleCenter for MText.

; mtext with 0 width
(defun c:T (/ pt)
  (initdia)
  (command "_.mtext")
  (if (setq pt (getpoint "\nSpecify insertion point <First corner>: "))
    (command "_non" pt "_W" 0.)
  )
  (princ)
)


;mtext center justified, 0 width
(defun c:TY (/ pt)
 (initdia)
 (command "_.mtext")
 (if (setq pt (getpoint "\nSpecify first corner: "))
   (command pt "_j" "_mc" "_w" 0)
 )
 (princ)
)

You can modify it to use for BottomLeft Justification.

[giskumar]

Hi,

Thanks for the reply.

I want the same thing in VBA.
In VBA, we can set Alignment to text using textObj.Alignment property which is not found in Mtex properties list.

Is there any other way using VBA instead of lisp? Because all my code is in VBA.


Thanks,
Kumar.

[fixo]

Try code from the Help file, just slightly edited:

 
Option Explicit
Sub Example_AddMtext()
    ' This example creates an MText object in model space
    ' and align it to bottom center
 
    Dim MTextObj As AcadMText
    Dim pickPt
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim txtheight As Double
    Dim text As String
    pickPt = ThisDrawing.Utility.GetPoint(, vbCrLf & "Pick text position: ")
    corner(0) = pickPt(0): corner(1) = pickPt(1): corner(2) = 0#
    txtheight = ThisDrawing.GetVariable("textsize")
 
    text = "This is the text String\Pfor the mtext Object"
    width = Len(text) * txtheight * 0.875
    '' Creates the mtext Object
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    '' align to bottom center
    MTextObj.AttachmentPoint = acAttachmentPointBottomCenter
    '' reset position
    MTextObj.InsertionPoint = corner
    Dim minExt As Variant
    Dim maxExt As Variant
 
    ' Return the bounding box for the line and return the minimum
    ' and maximum extents of the box in the minExt and maxExt variables.
    MTextObj.GetBoundingBox minExt, maxExt
    width = maxExt(0) - minExt(0)
    MTextObj.width = width
 
 
End Sub

~'J'~

[giskumar]

Thanks Fixo.

This will solve my problem.

[fixo]

You're welcome,
Cheers