topic Re: Changing text in description column of a HoleTable in Inventor Programming Forum

Changing text in description column of a HoleTable

rossano_praderi — Thu, 07 Nov 2013 11:01:15 GMT

Hi, i'm trying to change the value in the description column through the formattedtext but the final result is not what is supposed to be, this is a part of my code.

Sub HoleTab()
Set oDrwDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim i As Integer
Set oSheet = oDrwDoc.ActiveSheet
Dim oHoleTables As HoleTables
Set oHoleTables = oSheet.HoleTables
Dim oTable As HoleTable
Dim oTableRow As HoleTableRow
Dim oTableRows As HoleTableRows
Dim MProfondità As String
MProfondità = "<StyleOverride Font='AIGDT' FontSize='0.35'>n</StyleOverride><StyleOverride Font='Tahoma' FontSize='0.35'><HoleProperty HolePropertyID=&apos;77581&apos; Precision=&apos;2&apos;></HoleProperty> -<HoleProperty HolePropertyID=&apos;77580&apos; Precision=&apos;2&apos;></HoleProperty> PROFONDITÀ</StyleOverride><Br/><StyleOverride Font='Tahoma' FontSize='0.35'>VEDI MASCHERA</StyleOverride>"
For Each oTable In oHoleTables
    For i = 1 To oTable.HoleTableRows.Count
        If Len(oTable.HoleTableRows.Item(i).Item(1).Text) >= 5 Then
                    oTable.HoleTableRows.Item(i).Item(4).FormattedText = MProfondità
        End If
    Next
Next
End Sub

Before

After

Can anyone help me, please.

Thank you in advance

Re: Changing text in description column of a HoleTable

Anonymous — Sat, 09 Nov 2013 17:20:57 GMT

Correct the XML tag as below

MProfondità = "<StyleOverride Font='AIGDT' FontSize='0.35'>n</StyleOverride><StyleOverride Font='Tahoma' FontSize='0.35'><HoleProperty HolePropertyID='77581' Precision='2'></HoleProperty> -<HoleProperty HolePropertyID='77580' Precision='2'></HoleProperty> PROFONDITÀ</StyleOverride><Br/><StyleOverride Font='Tahoma' FontSize='0.35'>VEDI MASCHERA</StyleOverride>"

Hope this will work.

Re: Changing text in description column of a HoleTable

rossano_praderi — Sun, 10 Nov 2013 21:47:21 GMT

Thank you so much for your help!

I've modified my code with your suggestion and now my code is started to give me an other error, then I've correct the "FontSize='0.35'" Tag in "FontSize='0,35'" and it start to work fine.

Thank you saseendrankombath.