Find Dimension Overrides using iLogic

[Veerappa]

Hi All,

I got this ilogic rule in forum. Is it possible to change override dimension text height? Because it is very difficult to read in large drawings.

'-------------Start of ilogic ------------------------------------------------

' Set a reference to the active document.

Dim oDoc As DrawingDocument

oDoc = ThisApplication.ActiveDocument

'Define the drawing dims collection

Dim oDrawingDims As DrawingDimension

'Dim oColor As Inventor.Color

Dim oColor As Color

'Prompt user to choose highlight / un-highlight

Dim booleanParam as Object

booleanParam = InputRadioBox("Select an Option", _

"Hightlight Overrides", "Un-Hightlight Overrides", True, Title := "iLogic")

'Loop through all dimensions and set colors

For Each oDrawingDims In oDoc.ActiveSheet.DrawingDimensions

   If booleanParam = True then

   'set color to magenta

   oColor = ThisApplication.TransientObjects.CreateColor(255, 0, 255)

   else

   'set color to black

   oColor = ThisApplication.TransientObjects.CreateColor(0, 0, 0)

   oColor.ColorSourceType = ColorSourceTypeEnum.kLayerColorSource

   end if

   if oDrawingDims.HideValue = True _

   or oDrawingDims.ModelValueOverridden = True then

   oDrawingDims.Text.Color = oColor

   Else

   End if

Next

'-------------End of ilogic ------------------------------------------------

Thanks,

KT. Veerappa

[MechMachineMan]

Something like the below code might work...

But why not just create a different text style with a larger/smaller text size, use the shift+right click menu to select all dims, then swap the style back and forth as necessary?

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oDrawingDims As DrawingDimension

newsize = InputBox("Enter new text height in cms", "Ha", ".125")

For Each oDrawingDims In oDoc.ActiveSheet.DrawingDimensions
       oDrawingDims.Text.FormattedText = "<StyleOverride FontSize='" & Newsize & "'><DimensionValue/></StyleOverride>"
Next