Add Dimension user parameter for GAUGE

[Anonymous]

I can edit a dimension on an inventor dwg manually by "Edit Dimension", then "Format Text", then select "user parameter", then select "GAUGE" from the list.  The question is: can this done automatically with ilogic or VB.NET ?

I want to display a GAUGE dimension as "10 GA (0.135)" instead of just "0.135"

The GAUGE parameter brings in the 10.  I add the GA text manually.

Thanks,

JCKCAD

[dgreatice]

hi, can you provide screenshot?

[Anonymous]

Attached is a PDF screen shot.

I found this code online for an iLogic routine.  The line for formatting the text has "<DimensionValue/>", which is a code to maintain the dimension value.  This helps a lot.  Now I just need the "<???/>" code for GAUGE.  I see in this code that "<br/>" does a return to next line.  So, I'm assuming that GAUGE has a similar code.

'get model document (part or assembly) from the parent DrawingDocument
modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
'save text parameter "MyText" value in the string variable Value
Dim Value As String = Parameter(modelName, "MyText")
'Note: this string Value could be read from any source (e.g., excel sheet).
Dim oDoc As DrawingDocument = ThisDrawing.Document
Dim oSSet As SelectSet = oDoc.SelectSet
If oSSet.Count = 0 Then
MessageBox.Show("Select at least one dimension please", "DIM", _
MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
For Each obj As Object In oSSet
'filter dimensions, ignore other selected entities
If TypeOf obj Is GeneralDimension Then
'reference to the selected dimension
Dim oDim As GeneralDimension = obj
'refrence to the DimensionText object
Dim oDimensionText As DimensionText = oDim.Text
'change dimension text
oDimensionText.FormattedText = "<DimensionValue/>" & "<br/>" & Value
End If
Next
End If
Beep

[MechMachineMan · Accepted solution]

1. Please use the code block as it increases readability.

2. Use code to see what the formatted text is BEFORE you put in gauge, and then AFTER. The difference is the stuff relevant to adding gauge. Mimic this for the cases you want to add gauge.

Dim oDoc As DrawingDocument = ThisDrawing.Document
Dim oSSet As SelectSet = oDoc.SelectSet
If oSSet.Count <> 1 Then
    MsgBox("Select only one dimension!")
Else
    obj = oSSet.Item(1)
    If TypeOf obj Is GeneralDimension Then
        Dim oDim As GeneralDimension = obj
        Dim oDimensionText As DimensionText = oDim.Text
        MsgBox(oDimensionText.FormattedText)
        'oDimensionText.FormattedText = oDimensionText.FormattedText & "new stuff here"
    End If
End If
Beep

[Anonymous · Accepted solution]

I figured it out by having the program display the formatted text on an existing dimension, which gave me the format to use.  Here is the code.

Sub Gauge_Dim_Style()

  Dim oDoc As DrawingDocument
  Set oDoc = ThisApplication.ActiveDocument
  Dim oSSet As SelectSet
  Set oSSet = oDoc.SelectSet
  
  'reference to the selected view
  Dim oView As DrawingView
  Set oView = oSSet.Item(1)
  
  'get the part name from the view
  Dim oPartName As String
  oPartName = oView.ReferencedDocumentDescriptor.FullDocumentName
  
  'reference to the selected dimension
  Dim oDim As LinearGeneralDimension
  Set oDim = oSSet.Item(2)
  
  'refrence to the DimensionText object
  Dim oDimensionText As DimensionText
  Set oDimensionText = oDim.Text

  'reference to the style manager
  Dim oStylesMgr As DrawingStylesManager
  Set oStylesMgr = oDoc.StylesManager
  
  'get the reference to the target dimension style (by name)
  Dim oNewStyle As DimensionStyle
  Set oNewStyle = oStylesMgr.DimensionStyles.Item("Decimal - 3 Place")
  oDim.Style = oNewStyle
  
  'change text
  oDimensionText.FormattedText = "<Parameter Resolved='True' ComponentIdentifier='" & oPartName & "' Name='GAUGE' Precision='0'>1</Parameter>" & " GA (<DimensionValue/>)"
  Beep

End Sub

[MechMachineMan · Accepted solution]

So this is solved now then?

[Anonymous]

Yes

[dgreatice]

Hi. Why must go inside to dimension style?

Because it become <style overide>?
Why not just deleted this xml "style overide"?