PdcMaterial.Kind

Declaration

Kind as pdcMaterialKind

Description

Returns the kind

Notes

This property returns (i.e. READ ONLY!) the material's kind.

Code example

This code example opens a calculation, loops through its materials and returns the kind for each of them.

dim objCalc

  set objCalc = pdc.OpenCalculation("00685")
  for i = 0 to objCalc.MaterialList.Count -1
    set objMat = objCalc.MaterialList(i)
    msgbox "Material's kind: " & objMat.Kind
  next

The following pdcMaterialKinds are available:

pKind - Description
0 - pdcCreateMat
1 - pdcBuyMat
2 - pdcManufactureMat
3 - pdcSubCalcMat