mleader "Always Left Justify"

[kdayman]

I am trying to put together a little routine to automatically reset the company standard multileader values. I have hit a brick wall with the setting "Always Left Justify" (checkbox on the contents tab of the oem interface). I thought that .TextJustify might be the method but keep running into brick walls, it seems that this part of 2008 hasn't been finished (you can't even purge a mleader style from the command line).

This is a chunk of the code I have so far but this justification thing has stalled me. Any ideas?

Dim oDict As AcadDictionary
   Set oDict = ThisDrawing.Dictionaries.Item("ACAD_MLEADERSTYLE")

   Dim i As Long
     For i = 0 To oDict.Count - 1
      Dim oObj As acadObject
      Set oObj = oDict.Item(i)
      If oObj.ObjectName = "AcDbMLeaderStyle" Then
          Dim oMLS As AcadMLeaderStyle
          Set oMLS = oObj
          If oMLS.Name Like "XYZ Multileader Standard" Then
                oMLS.LeaderLineType = acStraightLeader
                oMLS.LeaderLineColor.ColorIndex = acMagenta
                oMLS.LeaderLineWeight = acLnWt015
                oMLS.ArrowSize = 0.125
                oMLS.BreakSize = 0.125
                oMLS.MaxLeaderSegmentsPoints = 3
                oMLS.EnableLanding = True
                oMLS.DoglegLength = 0.125 'landing distance
                oMLS.Annotative = True
                oMLS.ContentType = acMTextContent
                oMLS.TextStyle = "UMA Text Standard"
                oMLS.TextAngleType = acHorizontalAngle
                oMLS.TextColor.ColorIndex = acByLayer
                oMLS.TextHeight = 0.09375
                oMLS.TextLeftAttachmentType = acAttachmentMiddleOfTop
                oMLS.TextRightAttachmentType = acAttachmentMiddleOfBottom
                oMLS.LandingGap = 0.03125

[kdayman]

Well the only work around I found was to delete the mleader style then insert a block with the style defined and the "Always Justify Left" unselected. Not elegant but work for now until I find a way to do it better.

[jwanstaett]

if you use the Object Browser in vibe it show that

oMLS.TextAlignmentType = acLeftAlignment

Would set the text alignment to left alignment

[kdayman]

But I don't want it set left and I can't find/figure out what the other value is.

[jwanstaett]

But I don't want it set left and I can't find/figure out what the other value is.

Use the Object Browser to check the value you can set TextAlignmentType to
0= acLeftAlignment
1= acCenterAlignment
2= acRightAlignment

[kdayman]

Thank for the information and the tip!

[billy342601]

In your code, how are you determining the arrowhead block and the text frame? Are the values for this available under the developer help?

Here are the two lines that are something like what I think are needed, but do not know the values to set them properly.

oMLS.ArrowHead = "(Where is this symbol called from)"
oMLS.TextFrame = "(Is this True / False for it to be on / off?)"


Also, I am needing to know how to access the active text style and pass it to the mleader text style.

I do not know VBA that well and any help is appreciated.

Thanks in advance.