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?
Code:
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