Looping through NX.CAE Physical properties - PhysicalPropertyTableCollection

Submitted by JXB on Sat, 10/10/2015 - 09:01
Forums: 
Journaling / NXOpen API

To all

I am trying to loop NX.CAE Physical properties but cannot make sense of the documentation. Neither using CAE.CaePart nor CAE.FemPart seems to work to call the PhysicalPropertyTableCollection. See test code below

Any ideas?

Thanks
Regards

Dim theFEMPart As CAE.FemPart= CType(theSession.Parts.BaseWork, CAE.FemPart)
Dim theCAEPart As CAE.CaePart = CType(theFEMPart, CAE.CaePart)

Dim physicalPropTableCollec As CAE.PhysicalPropertyTableCollection = theCAEPart.PhysicalPropertyTableCollection
Dim listofproperties As CAE.PhysicalPropertyTable = physicalPropTableCollec.ToArray

For Each proptable As CAE.PhysicalPropertyTable In listofproperties
theLw.WriteLine("Name is: " & proptable.Name)
theLw.WriteLine("Label is: " & proptable.Label)
Next proptable

JXB - Tue, 10/13/2015 - 07:42

for info

Dim theCaePart As CAE.CaePart = CType(theSession.Parts.BaseWork, CAE.CaePart)
Dim physicalPropTableCollec As CAE.PhysicalPropertyTableCollection = theCaePart.PhysicalPropertyTables
Dim Listofproperties() As CAE.PhysicalPropertyTable = physicalPropTableCollec.ToArray

Dim sthepropname As String
Dim itheproplabel As Integer

For Each proptable As CAE.PhysicalPropertyTable In Listofproperties
sthepropname = proptable.Name
itheproplabel = proptable.Label

theLw.WriteLine("Name is: " & sthepropname)
theLw.WriteLine("Label is: " & itheproplabel.ToString)
Next

Thanks
Regards