General Table in .idw to grab custom iProperty in Part on Active Sheet

[Anonymous]

Lets say you have a part on your drawing and i want to add a 'general table,' however i want to add i new column to it with a custom iproperty from the part in the drawing can this be done? 

[bradeneuropeArthur]

Convert the part to and I-part.

[bradeneuropeArthur]

Set sh = b.Sheets.Item(1)

Dim v As DrawingView
Set v = sh.DrawingViews.Item(1)

Dim x As Document
Set x = v.ReferencedDocumentDescriptor.ReferencedDocument

MsgBox x.DisplayName

Dim tb As CustomTable
Set tb = sh.CustomTables.Item(1)

Dim c As Column
Dim t As Boolean
t = False
For Each c In tb.Columns
If c.Title = "YOUR COLUMN" Then
t = True
End If
Next

If t = False Then
tb.Columns.Add ("YOUR COLUMN")
End If


MsgBox tb.Columns.Item("YOUR COLUMN").Title
tb.Rows.Item(1).Item("YOUR COLUMN").Value = x.PropertySets.Item(4).Item(5).Value
End Sub