Adding parts to an existing content centre family.

[Anonymous]

In a new assembly - if I place from content centre > structural shapes > AS1163-1991 rectangle hollow sections - not all sections are there. For example I would like to use a 65x65x6 SHS section. The content centre only goes up to 65x65x3 SHS.

Could someone please give me the heads up on how to add the required sections?

That would be greatly appreciated.

[xiaodong_liang]

hi,

Please use oFamily.TableRows.Add .

Sub test()
    
      Dim oContentCenter As ContentCenter
    Set oContentCenter = ThisApplication.ContentCenter

    ' Get the content node (category) "Fasteners:Bolts:Hex Head"
    Dim oContentNode As ContentTreeViewNode
    Set oContentNode = oContentCenter.TreeViewTopNode.ChildNodes.Item("Fa​steners").ChildNodes.Item("Bolts").ChildNodes.Item​("Hex Head")
 

    ' Get the "ISO 4015" Family object.
    Dim oFamily As ContentFamily
    For Each oFamily In oContentNode.Families
        If oFamily.DisplayName = "ISO 4015" Then
            Exit For
        End If
    Next
 
Dim oOneRow As ContentTableRow
Set oOneRow = oFamily.TableRows(1)

Dim oNewRow()  As String
Dim oCell As ContentTableCell
Dim i As Integer
i = 0
For Each oCell In oOneRow
  ReDim Preserve oNewRow(i)
  oNewRow(i) = oCell.Value
 
  If i = 4 Then
     oNewRow(i) = "3.111111"  'just a demo. assume we need to change the 4th cell
  End If
 
  i = i + 1
Next
 
 oFamily.TableRows.Add oNewRow()
 oFamily.Save
End Sub

Regards,

Xiaodong Liang

Developer Technical Services

[xiaodong_liang]

hi,

Please use oFamily.TableRows.Add .

Sub test()
    
      Dim oContentCenter As ContentCenter
    Set oContentCenter = ThisApplication.ContentCenter

    ' Get the content node (category) "Fasteners:Bolts:Hex Head"
    Dim oContentNode As ContentTreeViewNode
    Set oContentNode = oContentCenter.TreeViewTopNode.ChildNodes.Item("Fa​steners").ChildNodes.Item("Bolts").ChildNodes.Item​("Hex Head")
 

    ' Get the "ISO 4015" Family object.
    Dim oFamily As ContentFamily
    For Each oFamily In oContentNode.Families
        If oFamily.DisplayName = "ISO 4015" Then
            Exit For
        End If
    Next
 
Dim oOneRow As ContentTableRow
Set oOneRow = oFamily.TableRows(1)

Dim oNewRow()  As String
Dim oCell As ContentTableCell
Dim i As Integer
i = 0
For Each oCell In oOneRow
  ReDim Preserve oNewRow(i)
  oNewRow(i) = oCell.Value
 
  If i = 4 Then
     oNewRow(i) = "3.111111"  'just a demo. assume we need to change the 4th cell
  End If
 
  i = i + 1
Next
 
 oFamily.TableRows.Add oNewRow()
 oFamily.Save
End Sub

Regards,

Xiaodong Liang

Developer Technical Services

[Anonymous]

Are you serious? Now I need to become a programmer to insert members that SHOULD already be there?

Anyone else in Australia having the same issue? If so how did you get around it?

Regards. 

[matt_jlt]

I think your question was misunderstood by the Autodesk Employee. Your question would have been better off in the Inventor General Forums as Customization forums is mostly programming questions.

There is a fairly easy way to add custom content - No programming required

* First you will have to create your own cutom library (how to do this will depend on if you use vault or desktop content etc. - Google can help you with this)

* In inventor under the "manage" tab there is a panel called "content center" which is on the right hand side by default.

* On that panel there is a "Content Center Editor" command button (it looks like a blue book with a yellow pencil)

* In the new window, find the sections you want to edit and right click and select "save copy as" on each one.

* In the newly created section right click and select "family table" and modify as required.

I'm writing these instructions off the top of my head but it should give you a fairly good starting point.

here are some helpful links i found

http://www.mcadusers.com/?p=595

www.youtube.com/watch?v=StDguPNeeQ4

http://cadtoolbox.com/2009/04/19/creating-custom-content-center-libraries-part-1/

http://beinginventive.typepad.com/being-inventive/content-centeradms/

Hope it helps,

Regards, Matt.