' ----------------------------------------------
'   Menu: Insert->Physical Properties...
' ----------------------------------------------
Dim markId25 As Session.UndoMarkId = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Create Physical")

Dim workFemPart As CAE.FemPart = CType(theSession.Parts.BaseWork, CAE.FemPart)

workFemPart.PhysicalPropertyTables.CreatePhysicalPropertyTable("PBUSH", "NX NASTRAN - Vibro-Acoustic", "NX NASTRAN", <user name for physical>, <user label>)