I was finally able to get the text editor fixed by IT.
Please see the attached coding.
Dim oSSet As SelectSet = ThisDoc.Document.SelectSet
If oSSet.count = 0 Then
MessageBox.Show("You must select a drawing view first", "iLogic")
Exit Sub
End If
'Reference to the drawing view from the 1st selected object
Dim oView As DrawingView = trycast(oSSet.item(1), DrawingView)
If oView IsNot Nothing Then
oView.ShowLabel = True
'format the model iproperties
oDescription = "<StyleOverride Underline='True'><Property Document='model' PropertySet='Design Tracking Properties' Property='Description' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='29'>DESCRIPTION</Property></StyleOverride>"
'oViewIdentifier = "<Br/><StyleOverride Underline='True'>
oPartNumber = "<Br/><StyleOverride Underline='True'><Property Document='model' PropertySet='Design Tracking Properties' Property='Part Number' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='5'>PART NUMBER</Property></StyleOverride>"
oStringMass = "<Br/><StyleOverride Underline='False' FontSize='0.35'>EST UNIT MASS =<PhysicalProperty PhysicalPropertyID='72449' Precision='2'>MASS</PhysicalProperty></StyleOverride>"
oStringScale = "<Br/><StyleOverride FontSize='0.3'>Scale<DrawingViewScale/></StyleOverride>"
'add to the view label
oView.Label.FormattedText = oDescription & oViewIdentifier & oPartNumber & oStringMass & oStringScale
Else
MessageBox.Show("The selected object is not a drawing view", "iLogic")
End If
The first thing im trying to accomplish is to include the "View Identifier" in the code, see attached picture.
I have commented out that line above.
Then the second thing, I would like this to run for all views on the page with one single execution.