View Label Left Text Alignment

[jR0sal3s]

Could anybody help with Macro coding so if i run it, the text in the view label would align to the left and to the left most of the drawing view as well?

And where could i find the syntax on macro coding?

Looking forward, Thanks a lot..

jR

[MechMachineMan · Accepted solution]

THe top right corner of your inventor program... Cick the question mark drop down, and find the "Programming Help"

[jR0sal3s]

Yes, i did that but im just beginning to learn it...and could not make anything work...so i've research to find the following, cut and paste to the macro but wont run though...is there anyway to convert the syntax to make it readable in the macro..?.(i'd like to understand the syntax in the macro works against other languages)

Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oSheets As Sheets = oDoc.Sheets
Dim oView As DrawingView
For Each oSheet In oSheets
    For Each oView In oSheet.DrawingViews
        If Not oView.Label.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft Then
            oView.Label.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft
        End If
    Next
Next

[MechMachineMan]

If it contains "set", it is vba and should be used in the Macro Editor. If
it doesn't, just use it in a rule.

[jR0sal3s]

yes it runs in a rule, but would you be able to convert it to a macro syntax?..i d like to learn how it is being translated..and from there maybe I will develop my own..thanks

[MechMachineMan]

Yes. Add "Set" in front of lines with =.

[jR0sal3s · Accepted solution]

finally..so, thanks for giving me the clue! and here it goes...

Dim _Doc As DrawingDocument

_Doc = _invApp.ActiveDocument

Dim _Sheets As Sheets

_Sheets = _Doc.Sheets

Dim _View As DrawingView

For Each _Sheet In _Sheets

For Each _View In _Sheet.DrawingViews

If Not _View.Label.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft Then

_View.Label.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft

End If

Next

Next

jR