customizing bom.ulp

On Mon, 25 Sep 2017 12:56:57 GMT, saurabh k

wrote:

hello sir, warm regards.

I want to ask if the default bill of material (bom) syntax, can be customized. If so how?

For eg. can I generate the following bom syntax.

 

I didn't see an syntax described in your posting, but you can find the

bom.ulp file by going to the folder where your eagle program is

located, going one level up and looking for the "ulp" folder.  There

you will find all the ULPs, including bom.ulp.  I do not advise you to

modify that file.  Instead copy that file into a different folder (for

example the documents\Eagle folder) and then renaming it to something

like "MyBOM.ulp".  Then edit it with a text editor and make whatever

changes you want to make.  Then when it comes time to generate the

BOM, you will have to navigate to this other folder and find you

"MyBOM.ulp" file and execute it.  Here is my modified BOM.ulp.  It

extracts data from part attributes named "PNUM".  For example:

Attribute name:  PNUM

Attribute value:  Digikey=RN4871-V/RM118-ND

MyBOM.ulp:

- - - - - - - - - - - - - - - - - - - -

#require 6.0200

string Version = "7.00";

char   Separator = ';'; // 2012-12-04

#usage "en: "

           "Erzeugt die Stückliste (Bill Of Material) eines

Projekts, einschließlich der"

           " mit Version 5.0.0 neu eingeführten Attribute."

           "\n"

  "The Bill Of Material can be generated either as a list\n"

  "of parts (where every part is listed on a line of its own),\n"

  "or as a list of values, where all parts with the same value are

grouped\n"

  "together in one line. Use the

Parts

\n"
"

Output format

\n"
"Choose between pure ASCII

Text

\n"
"

Listen-Typ

\n"

  "Die Stückliste kann entweder als Liste der Bauteile

generiert werden\n"

  "(wobei jedes Bauteil in einer eigenen Zeile aufgeführt wird),\n"

  "oder als Liste der Werte, wobei alle Bauteile mit dem gleichen Wert

in einer Zeile\n"

  "zusammengefasst werden. Mit den Radio-Buttons

Bauteile

\n"
"

Ausgabeformat

\n"
"Wählen Sie zwischen reinem ASCII-

Text

ERROR: No schematic!

\nThis program can only work in
the schematic editor.\v"
"

FEHLER: Kein Schaltplan!

\nDieses Programm kann nur in

einem Schaltplan verwendet"

  " werden.\v"

  ,

  "Part\tValue\tDevice\tPackage\tDescription\v"

  "Bauteil\tWert\tDevice\tPackage\tDescription\v"

  ,

  "Qty\tValue\tDevice\tPackage\tParts\v"      // 2011-04-08

  "Menge\tWert\tDevice\tGehäuse\tBauteile\v"  // 2011-04-08

  ,

  "Partlist exported from %s at %s\v"

  "Stückliste exportiert aus %s am %s\v"

  ,

  "Bill Of Material - Preview\v"

  "Stückliste - Vorschau\v"

  ,

  "-Close\v"

  "-Schließen\v"

  ,

  "Save Bill Of Material\v"

  "Stückliste speichern\v"

  ,

  "File '\v"

  "Datei '\v"

  ,

  "' exists\n\nOverwrite?\v"

  "' existiert\n\nÃœberschreiben?\v"

  ,

  "+&Yes\v"

  "+&Ja\v"

  ,

  "-&No\v"

  "-&Nein\v"

  ,

  "&No\v"

  "&Nein\v"

  ,

  "Name already defined!\v"

  "Name ist bereits definiert!\v"

  ,

  " Header\v"

  " Spaltenüberschrift\v"

  ,

  "&Name:\v"

  "&Name:\v"

  ,

  "+OK\v"

  "+OK\v"

  ,

  "Name can't be empty!\v"

  "Name kann nicht leer sein!\v"

  ,

  "-Cancel\v"

  "-Abbrechen\v"

  ,

  "&Headers\v"

  "&Spaltenüberschriften\v"

  ,

  "Bill Of Material - Help\v"

  "Stückliste - Hilfe\v"

  ,

  "Bill Of Material\v"

  "Stückliste\v"

  ,

  "List type\v"

  "Listen-Typ\v"

  ,

  "&Parts\v"

  "&Bauteile\v"

  ,

  "&Values\v"

  "&Werte\v"

  ,

  "Output format\v"

  "Ausgabeformat\v"

  ,

  "&Text\v"

  "&Text\v"

  ,

  "&CSV\v"

  "&CSV\v"

  ,

  "&HTML\v"

  "&HTML\v"

  ,

  "+Vie&w\v"

  "+&Vorschau\v"

  ,

  "&Save...\v"

  "&Speichern...\v"

  ,

  "H&elp\v"

  "H&ilfe\v"

  ,

  "Current &variant \v"

  "Aktuelle &Variante \v"

  ,

  "List &attributes\v"

  "&Attribute auflisten\v"

  };

int Language = strstr (I18N , language ()) / 3;

string tr (string s)

{

  string t = lookup (I18N, s, Language, '\v');

  return t ? t : s;

}

if (!schematic)

{

  dlgMessageBox (usage + tr ("

ERROR: No schematic!

\nThis

program can only work in"

                 " the schematic editor."));

  exit (1);

}

string SeparatorString;

int     NumParts;

numeric string Lines[];

numeric string PartName[];

string  PartValue[], PartDevice[], PartPackage[],

PartHeadline[],PNum[];

numeric string PartDescription [];

int     PartValueOn[];

int     Selected;

string CurrentVariant = "";

string Variants[] = { "" };  // 2012-04-16

int    cntVD = 0;

int    VDsel = 0;

// cwi: Added arrays for an arbitraty number of attributes.

int UseAttributes = 1;

int FoundAttributes = 0;            // # of different attribute names

found in schematic.

numeric string AttributesList[];    // Sorted list of all attributes

found in the schematic.

numeric string PartAttributes[];    // Adjusted list of attributes per

part.

enum { ltParts, ltValues };         // List Types

enum { ofText, ofCSV, ofHTML };     // Output Formats

int ListType = 0;

int OutputFormat = 0;

string StripWhiteSpace (string s)

{

  while (s && isspace (s[0]))

    s = strsub (s, 1);

  while (s && isspace (s[strlen (s) - 1]))

    s = strsub (s, 0, strlen (s) - 1);

  return s;

}

// Collect part data from the schematic.

//

// Arguments: -

//

// Returns:   NumParts            - # of found parts

//            ParteName[]

//            PartValue[]

//            PartDevice[]

//            PartPackage[]

//            PartHeadline[]

//            PartDescription []

//            PartValueOn[]      - 0=part value off, 1= part value on,

2=override with attr. VAL

//            FoundAttributes     - # of different attribute names

found in schematic.

//     PNum[] - extracted from attributes whose name is "PNUM"

//            AttributesList[]   - Sorted list of all attributes found

in the schematic.

//            PartAttributes[]   - Adjusted list of attributes per

part.

void CollectPartData (string var)

{

  int Found = 0;

  int i;

  string attr[];

  NumParts = 0;

  // First, collect the names of all available attributes.

  FoundAttributes = 0;

  if (UseAttributes) {

    schematic (SCH)

    {

      SCH.parts (P)

      {

        if (P.device.package)

        {

          if (P.populate)

          {

            P.attributes (A)

            {

              if (0 == FoundAttributes)

              {

                // First one

                AttributesList[0] = A.name;

                FoundAttributes = 1;

              }

              else

              {

                Found = 0;

                for (i = 0; i < FoundAttributes; i ++)

                {

                  if (A.name == AttributesList[i])

                  {

                    // Found an already listed atrribute

                    Found = 1;

                    break;

                  }

                }

                if (0 == Found)

                {

                  // Attribute not listed, add at the end.

                  AttributesList[FoundAttributes] = A.name;

                  FoundAttributes ++;

                }

              }

            }

          }

        }

      }

    }

    sort (FoundAttributes, AttributesList);

  }

  // Second, collect all data

  schematic (SCH)

  {

    SCH.parts (P)

    {

      if (P.device.package)

      {

        if (P.populate)

        {

          PartName[NumParts] = P.name;

          PartValue[NumParts] = P.value;

          PartDevice[NumParts] = P.device.name;

          PartPackage[NumParts] = P.device.package.name;

          PartHeadline[NumParts] = P.device.headline;

          PartDescription = P.device.description;

          PartValueOn[NumParts] = P.device.value == "On";

          // Zero all strings

          for (i = 0; i < FoundAttributes; i ++)

               attr[i] = "";

     PNum[NumParts] = "";

          P.attributes(A)

          {

            for (i = 0; i < FoundAttributes; i ++)

         {

              if (A.name == AttributesList[i])

              {

                attr[i] = A.value;

                //break;

              }

          if(A.name == "PNUM")

               PNum[NumParts] = A.value;

         }

            if ("VALUE" == A.name && 0 < strlen (A.value))

             // Override old fashioned value information!

            PartValueOn[NumParts] = 2;

          }

          PartAttributes[NumParts] = strjoin(attr, Separator);

          NumParts ++;

        }

      }

    }

  }

}

void GeneratePartList(void)

{

  int NumLines = 0;

  string attr[], s;

  if (UseAttributes) s = strjoin(AttributesList, '\t');

  Lines[NumLines ++] = tr ("Part\tValue\tPackage\tPart Num");

  for (int i = 0; i < NumParts; i ++)

  {

    strsplit (attr, PartAttributes[i], Separator);

    if (UseAttributes) s = strjoin(attr, '\t');

    Lines[NumLines] = PartName[i] + "\t" + PartValue[i] + "\t" +

PartPackage[i] + "\t" +

                       PNum[i];

    NumLines ++;

  }

  Lines[NumLines] = "";

}

// Generate list with one entry per value.

// 'VALUE' is replaced by the value of attribute 'VAL', if existing.

void GenerateValueList (void)

{

  int NumLines = 0;

  int Index [];

  string attr[], s, s_val;

  if (UseAttributes) s = strjoin(AttributesList, '\t');

  // 2010-04-17 cwi: Included description.

  Lines[NumLines ++] = tr

("Qty\tValue\tDevice\tPackage\tParts\tDescription\t") + s;

// 2011-04-08

  sort (NumParts, Index, PartValue, PartDevice, PartPackage,

PartAttributes, PartName, PartHeadline); // 2011-11-08 Partattribute

jetzt nach Package alf@cadsoft.de

  for (int n1 = 0, n2 = 0; ++ n2 <= NumParts; )

  {

    int i1 = Index ;

    strsplit (attr, PartAttributes[i1], Separator);

    if (UseAttributes) s = strjoin(attr, '\t');

    s_val = attr[i1];

    if (n2 < NumParts)

    {

      int i2 = Index ; // 2012-11-08

      strsplit (attr, PartAttributes[i2], Separator);

      if (PartValue[i1] == PartValue[i2] && PartDevice[i1] ==

PartDevice[i2] && PartAttributes[i1] == PartAttributes[i2]) //

2012-11-08 check diffent values of attributes

        continue;

    }

    string Quantity;

    sprintf (Quantity, "%d", n2 - n1);

    Lines[NumLines] = Quantity + "\t" + PartValue[i1] + "\t" +

PartDevice[i1] + "\t" + PartPackage[i1] + "\t";

    for (;;)

    {

      Lines[NumLines] += PartName[i1];

      if (++n1 < n2)

      {

        i1 = Index ;

        Lines[NumLines] += ", ";

      }

      else

        break;

    }

    // cwi: add extra information from attributes

    // 2010-04-17 cwi: Included description.

    Lines[NumLines] += "\t" + PartHeadline[i1] + "\t" + s;

    NumLines ++;

  }

  Lines[NumLines] = "";

}

void GenerateList (void)

{

  switch (ListType)

  {

    case ltParts:  GeneratePartList (); break;

    case ltValues: GenerateValueList (); break;

  }

}

string MakeListHeader (void)

{

  string s;

  schematic(SCH)

    sprintf (s, tr ("Partlist exported from %s at %s"), SCH.name,

t2string (time ()));

  return s;

}

string MakeListText(void)

{

  int l, Width [];

  string List;

  int numHeaders;

  for (l = 0; Lines[l]; l ++)

  {

    string a [];

    for (int n = strsplit (a, Lines[l], '\t'); n --; )

      Width = max (Width , strlen (a ));

  }

  List = MakeListHeader () + "\n\n";

  for (l = 0; Lines[l]; l ++)

  {

    string line, a [];

    int n = strsplit (a, Lines[l], '\t');

    if (l == 0)

      numHeaders = n;

    else

      n = numHeaders; // for the hidden key!

    for (int i = 0; i < n; i ++)

    {

      string s;

      sprintf (s, "%s%-*s", line ? " " : "", Width , a );

      line += s;

    }

    List += line + "\n";

  }

  return List;

}

// 2008-11-24 Christian Schlittler:

// Make comma-serparated list, with all values double-quoted.

string MakeListCSV (void)

{

  string List;

  int numHeaders;

  for (int l = 0; Lines[l]; l ++)

  {

    string a [];

    int n = strsplit (a, Lines[l], '\t');

    if (l == 0)

      numHeaders = n;

    else

      n = numHeaders; // for the hidden key!

    for (int i = 0; i < n; i ++)
List += "\"" + a[i] + "\"" + SeparatorString;
List += "\n";
}
return List;
}


string MakeListHTML (void)
{
string List;
int numHeaders;

List = "

" + MakeListHeader() + "

\n";
List += "

\n";
for (int l = 0; Lines[l]; l++)
{
List += "";
string a [];
int n = strsplit (a, Lines[l], '\t');
if (l == 0)
numHeaders = n;
else
n = numHeaders; // for the hidden key!
for (int i = 0; i < n; i ++)
{
if (l == 0)
a[i] = "

" + a[i] + "

\n";
return List;
}


string MakeList (void)
{
switch (OutputFormat)
{
case ofText: return MakeListText(); break;
case ofCSV: return MakeListCSV(); break;
case ofHTML: return MakeListHTML(); break;
}
return "";
}


void ViewList (void)
{
dlgDialog (tr ("Bill Of Material - Preview"))
{
string s = MakeList ();
if (OutputFormat == ofText || OutputFormat == ofCSV)
s = "

" + s + "

";

    dlgHBoxLayout dlgSpacing (400);

    dlgHBoxLayout

    {

      dlgVBoxLayout dlgSpacing (300);

      dlgTextView (s);

    }

    dlgHBoxLayout

    {

      dlgStretch (1);

      dlgPushButton (tr ("-Close")) dlgReject ();

    }

  };

}

void SaveList (void)

{

  // 2008-11-24 cwi:

  // - Added new format extension .csv

  // - Changed from .bom to .txt for text format.

  string FileName;

  string FileExt;

  switch (OutputFormat)

  {

    case ofText: FileExt = ".txt"; break;

    case ofHTML: FileExt = ".html"; break;

    case ofCSV:  FileExt = ".csv"; break;

  }

  schematic(SCH) FileName = filesetext (SCH.name, FileExt);

  FileName = dlgFileSave (tr ("Save Bill Of Material"), FileName);

  if (FileName)

  {

    string a [];

    if (!fileglob (a, FileName) || dlgMessageBox (tr ("File '") +

FileName +

        tr ("' exists\n\nOverwrite?"), tr("+&Yes"), tr("-&No")) == 0)

    {

      output (FileName, "wt")

      {

        printf ("%s", MakeList ()); // using "%s" to avoid problems if

list contains any '%'

      }

    }

  }

}

void DisplayHelp (void)

{

  dlgDialog (tr ("Bill Of Material - Help"))

  {

    dlgHBoxLayout dlgSpacing (400);

    dlgHBoxLayout

    {

      dlgVBoxLayout dlgSpacing (300);

      dlgTextView (language () == "de" ? HelpTextDE : HelpTextEN);

    }

    dlgHBoxLayout

    {

      dlgStretch (1);

      dlgPushButton (tr ("-Close"))

      dlgReject ();

    }

  };

}

schematic(SCH) {

  sprintf(SeparatorString, "%c", Separator);

  CurrentVariant = variant();

  SCH.variantdefs(VD) {

    if (CurrentVariant == VD.name) VDsel = cntVD;

    sprintf(Variants[cntVD], "%s", VD.name);

    cntVD++;

  }

}

setvariant(CurrentVariant);

CollectPartData(CurrentVariant);

GenerateList();

dlgDialog (tr ("Bill Of Material"))

{

  dlgHBoxLayout {

    dlgLabel(tr ("Current &variant "));

    dlgComboBox(Variants, VDsel) {

      CurrentVariant = Variants[VDsel];

      setvariant(CurrentVariant);

      CollectPartData(CurrentVariant);

      GenerateList();

    }

    dlgStretch(1);

  }

  dlgListView ("", Lines, Selected);

  dlgHBoxLayout

  {

    dlgGroup(tr ("List type"))

    {

      dlgRadioButton(tr ("&Parts"), ListType) GeneratePartList ();

      dlgRadioButton(tr ("&Values"), ListType) GenerateValueList ();

      dlgCheckBox(tr ("List &attributes"), UseAttributes) {

        if (!UseAttributes) {

          NumParts = 0;

        }

        CollectPartData(CurrentVariant);

        GenerateList();

      }

    }

    dlgGroup (tr ("Output format"))

    {

      // 2008-10-09: Entries swapped for correct function.

      dlgRadioButton(tr ("&Text"), OutputFormat);

      // 2008-11-24 cwi: New format added.

      dlgRadioButton(tr ("&CSV"), OutputFormat);

      dlgRadioButton(tr ("&HTML"), OutputFormat);

    }

    dlgStretch(1);

  }

  dlgHBoxLayout  {

    dlgPushButton (tr ("+Vie&w"))    ViewList ();

    dlgPushButton (tr ("&Save...")) SaveList ();

    dlgPushButton (tr ("H&elp"))    DisplayHelp ();

    dlgPushButton (tr ("-Close"))   dlgAccept ();

    dlgStretch(1);

    dlgLabel("Version " + Version);

  }

};

- - - - - - - - - - end of file.

Robert Scott

Hopkins, MN

On Mon, 25 Sep 2017 12:56:57 GMT, saurabh k

wrote:

hello sir, warm regards.

I want to ask if the default bill of material (bom) syntax, can be customized. If so how?

For eg. can I generate the following bom syntax.

 

I didn't see an syntax described in your posting, but you can find the

bom.ulp file by going to the folder where your eagle program is

located, going one level up and looking for the "ulp" folder.  There

you will find all the ULPs, including bom.ulp.  I do not advise you to

modify that file.  Instead copy that file into a different folder (for

example the documents\Eagle folder) and then renaming it to something

like "MyBOM.ulp".  Then edit it with a text editor and make whatever

changes you want to make.  Then when it comes time to generate the

BOM, you will have to navigate to this other folder and find you

"MyBOM.ulp" file and execute it.  Here is my modified BOM.ulp.  It

extracts data from part attributes named "PNUM".  For example:

Attribute name:  PNUM

Attribute value:  Digikey=RN4871-V/RM118-ND

MyBOM.ulp:

- - - - - - - - - - - - - - - - - - - -

#require 6.0200

string Version = "7.00";

char   Separator = ';'; // 2012-12-04

#usage "en: "

           "Erzeugt die Stückliste (Bill Of Material) eines

Projekts, einschließlich der"

           " mit Version 5.0.0 neu eingeführten Attribute."

           "\n"

  "The Bill Of Material can be generated either as a list\n"

  "of parts (where every part is listed on a line of its own),\n"

  "or as a list of values, where all parts with the same value are

grouped\n"

  "together in one line. Use the

Parts

\n"
"

Output format

\n"
"Choose between pure ASCII

Text

\n"
"

Listen-Typ

\n"

  "Die Stückliste kann entweder als Liste der Bauteile

generiert werden\n"

  "(wobei jedes Bauteil in einer eigenen Zeile aufgeführt wird),\n"

  "oder als Liste der Werte, wobei alle Bauteile mit dem gleichen Wert

in einer Zeile\n"

  "zusammengefasst werden. Mit den Radio-Buttons

Bauteile

\n"
"

Ausgabeformat

\n"
"Wählen Sie zwischen reinem ASCII-

Text

ERROR: No schematic!

\nThis program can only work in
the schematic editor.\v"
"

FEHLER: Kein Schaltplan!

\nDieses Programm kann nur in

einem Schaltplan verwendet"

  " werden.\v"

  ,

  "Part\tValue\tDevice\tPackage\tDescription\v"

  "Bauteil\tWert\tDevice\tPackage\tDescription\v"

  ,

  "Qty\tValue\tDevice\tPackage\tParts\v"      // 2011-04-08

  "Menge\tWert\tDevice\tGehäuse\tBauteile\v"  // 2011-04-08

  ,

  "Partlist exported from %s at %s\v"

  "Stückliste exportiert aus %s am %s\v"

  ,

  "Bill Of Material - Preview\v"

  "Stückliste - Vorschau\v"

  ,

  "-Close\v"

  "-Schließen\v"

  ,

  "Save Bill Of Material\v"

  "Stückliste speichern\v"

  ,

  "File '\v"

  "Datei '\v"

  ,

  "' exists\n\nOverwrite?\v"

  "' existiert\n\nÃœberschreiben?\v"

  ,

  "+&Yes\v"

  "+&Ja\v"

  ,

  "-&No\v"

  "-&Nein\v"

  ,

  "&No\v"

  "&Nein\v"

  ,

  "Name already defined!\v"

  "Name ist bereits definiert!\v"

  ,

  " Header\v"

  " Spaltenüberschrift\v"

  ,

  "&Name:\v"

  "&Name:\v"

  ,

  "+OK\v"

  "+OK\v"

  ,

  "Name can't be empty!\v"

  "Name kann nicht leer sein!\v"

  ,

  "-Cancel\v"

  "-Abbrechen\v"

  ,

  "&Headers\v"

  "&Spaltenüberschriften\v"

  ,

  "Bill Of Material - Help\v"

  "Stückliste - Hilfe\v"

  ,

  "Bill Of Material\v"

  "Stückliste\v"

  ,

  "List type\v"

  "Listen-Typ\v"

  ,

  "&Parts\v"

  "&Bauteile\v"

  ,

  "&Values\v"

  "&Werte\v"

  ,

  "Output format\v"

  "Ausgabeformat\v"

  ,

  "&Text\v"

  "&Text\v"

  ,

  "&CSV\v"

  "&CSV\v"

  ,

  "&HTML\v"

  "&HTML\v"

  ,

  "+Vie&w\v"

  "+&Vorschau\v"

  ,

  "&Save...\v"

  "&Speichern...\v"

  ,

  "H&elp\v"

  "H&ilfe\v"

  ,

  "Current &variant \v"

  "Aktuelle &Variante \v"

  ,

  "List &attributes\v"

  "&Attribute auflisten\v"

  };

int Language = strstr (I18N , language ()) / 3;

string tr (string s)

{

  string t = lookup (I18N, s, Language, '\v');

  return t ? t : s;

}

if (!schematic)

{

  dlgMessageBox (usage + tr ("

ERROR: No schematic!

\nThis

program can only work in"

                 " the schematic editor."));

  exit (1);

}

string SeparatorString;

int     NumParts;

numeric string Lines[];

numeric string PartName[];

string  PartValue[], PartDevice[], PartPackage[],

PartHeadline[],PNum[];

numeric string PartDescription [];

int     PartValueOn[];

int     Selected;

string CurrentVariant = "";

string Variants[] = { "" };  // 2012-04-16

int    cntVD = 0;

int    VDsel = 0;

// cwi: Added arrays for an arbitraty number of attributes.

int UseAttributes = 1;

int FoundAttributes = 0;            // # of different attribute names

found in schematic.

numeric string AttributesList[];    // Sorted list of all attributes

found in the schematic.

numeric string PartAttributes[];    // Adjusted list of attributes per

part.

enum { ltParts, ltValues };         // List Types

enum { ofText, ofCSV, ofHTML };     // Output Formats

int ListType = 0;

int OutputFormat = 0;

string StripWhiteSpace (string s)

{

  while (s && isspace (s[0]))

    s = strsub (s, 1);

  while (s && isspace (s[strlen (s) - 1]))

    s = strsub (s, 0, strlen (s) - 1);

  return s;

}

// Collect part data from the schematic.

//

// Arguments: -

//

// Returns:   NumParts            - # of found parts

//            ParteName[]

//            PartValue[]

//            PartDevice[]

//            PartPackage[]

//            PartHeadline[]

//            PartDescription []

//            PartValueOn[]      - 0=part value off, 1= part value on,

2=override with attr. VAL

//            FoundAttributes     - # of different attribute names

found in schematic.

//     PNum[] - extracted from attributes whose name is "PNUM"

//            AttributesList[]   - Sorted list of all attributes found

in the schematic.

//            PartAttributes[]   - Adjusted list of attributes per

part.

void CollectPartData (string var)

{

  int Found = 0;

  int i;

  string attr[];

  NumParts = 0;

  // First, collect the names of all available attributes.

  FoundAttributes = 0;

  if (UseAttributes) {

    schematic (SCH)

    {

      SCH.parts (P)

      {

        if (P.device.package)

        {

          if (P.populate)

          {

            P.attributes (A)

            {

              if (0 == FoundAttributes)

              {

                // First one

                AttributesList[0] = A.name;

                FoundAttributes = 1;

              }

              else

              {

                Found = 0;

                for (i = 0; i < FoundAttributes; i ++)

                {

                  if (A.name == AttributesList[i])

                  {

                    // Found an already listed atrribute

                    Found = 1;

                    break;

                  }

                }

                if (0 == Found)

                {

                  // Attribute not listed, add at the end.

                  AttributesList[FoundAttributes] = A.name;

                  FoundAttributes ++;

                }

              }

            }

          }

        }

      }

    }

    sort (FoundAttributes, AttributesList);

  }

  // Second, collect all data

  schematic (SCH)

  {

    SCH.parts (P)

    {

      if (P.device.package)

      {

        if (P.populate)

        {

          PartName[NumParts] = P.name;

          PartValue[NumParts] = P.value;

          PartDevice[NumParts] = P.device.name;

          PartPackage[NumParts] = P.device.package.name;

          PartHeadline[NumParts] = P.device.headline;

          PartDescription = P.device.description;

          PartValueOn[NumParts] = P.device.value == "On";

          // Zero all strings

          for (i = 0; i < FoundAttributes; i ++)

               attr[i] = "";

     PNum[NumParts] = "";

          P.attributes(A)

          {

            for (i = 0; i < FoundAttributes; i ++)

         {

              if (A.name == AttributesList[i])

              {

                attr[i] = A.value;

                //break;

              }

          if(A.name == "PNUM")

               PNum[NumParts] = A.value;

         }

            if ("VALUE" == A.name && 0 < strlen (A.value))

             // Override old fashioned value information!

            PartValueOn[NumParts] = 2;

          }

          PartAttributes[NumParts] = strjoin(attr, Separator);

          NumParts ++;

        }

      }

    }

  }

}

void GeneratePartList(void)

{

  int NumLines = 0;

  string attr[], s;

  if (UseAttributes) s = strjoin(AttributesList, '\t');

  Lines[NumLines ++] = tr ("Part\tValue\tPackage\tPart Num");

  for (int i = 0; i < NumParts; i ++)

  {

    strsplit (attr, PartAttributes[i], Separator);

    if (UseAttributes) s = strjoin(attr, '\t');

    Lines[NumLines] = PartName[i] + "\t" + PartValue[i] + "\t" +

PartPackage[i] + "\t" +

                       PNum[i];

    NumLines ++;

  }

  Lines[NumLines] = "";

}

// Generate list with one entry per value.

// 'VALUE' is replaced by the value of attribute 'VAL', if existing.

void GenerateValueList (void)

{

  int NumLines = 0;

  int Index [];

  string attr[], s, s_val;

  if (UseAttributes) s = strjoin(AttributesList, '\t');

  // 2010-04-17 cwi: Included description.

  Lines[NumLines ++] = tr

("Qty\tValue\tDevice\tPackage\tParts\tDescription\t") + s;

// 2011-04-08

  sort (NumParts, Index, PartValue, PartDevice, PartPackage,

PartAttributes, PartName, PartHeadline); // 2011-11-08 Partattribute

jetzt nach Package alf@cadsoft.de

  for (int n1 = 0, n2 = 0; ++ n2 <= NumParts; )

  {

    int i1 = Index ;

    strsplit (attr, PartAttributes[i1], Separator);

    if (UseAttributes) s = strjoin(attr, '\t');

    s_val = attr[i1];

    if (n2 < NumParts)

    {

      int i2 = Index ; // 2012-11-08

      strsplit (attr, PartAttributes[i2], Separator);

      if (PartValue[i1] == PartValue[i2] && PartDevice[i1] ==

PartDevice[i2] && PartAttributes[i1] == PartAttributes[i2]) //

2012-11-08 check diffent values of attributes

        continue;

    }

    string Quantity;

    sprintf (Quantity, "%d", n2 - n1);

    Lines[NumLines] = Quantity + "\t" + PartValue[i1] + "\t" +

PartDevice[i1] + "\t" + PartPackage[i1] + "\t";

    for (;;)

    {

      Lines[NumLines] += PartName[i1];

      if (++n1 < n2)

      {

        i1 = Index ;

        Lines[NumLines] += ", ";

      }

      else

        break;

    }

    // cwi: add extra information from attributes

    // 2010-04-17 cwi: Included description.

    Lines[NumLines] += "\t" + PartHeadline[i1] + "\t" + s;

    NumLines ++;

  }

  Lines[NumLines] = "";

}

void GenerateList (void)

{

  switch (ListType)

  {

    case ltParts:  GeneratePartList (); break;

    case ltValues: GenerateValueList (); break;

  }

}

string MakeListHeader (void)

{

  string s;

  schematic(SCH)

    sprintf (s, tr ("Partlist exported from %s at %s"), SCH.name,

t2string (time ()));

  return s;

}

string MakeListText(void)

{

  int l, Width [];

  string List;

  int numHeaders;

  for (l = 0; Lines[l]; l ++)

  {

    string a [];

    for (int n = strsplit (a, Lines[l], '\t'); n --; )

      Width = max (Width , strlen (a ));

  }

  List = MakeListHeader () + "\n\n";

  for (l = 0; Lines[l]; l ++)

  {

    string line, a [];

    int n = strsplit (a, Lines[l], '\t');

    if (l == 0)

      numHeaders = n;

    else

      n = numHeaders; // for the hidden key!

    for (int i = 0; i < n; i ++)

    {

      string s;

      sprintf (s, "%s%-*s", line ? " " : "", Width , a );

      line += s;

    }

    List += line + "\n";

  }

  return List;

}

// 2008-11-24 Christian Schlittler:

// Make comma-serparated list, with all values double-quoted.

string MakeListCSV (void)

{

  string List;

  int numHeaders;

  for (int l = 0; Lines[l]; l ++)

  {

    string a [];

    int n = strsplit (a, Lines[l], '\t');

    if (l == 0)

      numHeaders = n;

    else

      n = numHeaders; // for the hidden key!

    for (int i = 0; i < n; i ++)
List += "\"" + a[i] + "\"" + SeparatorString;
List += "\n";
}
return List;
}


string MakeListHTML (void)
{
string List;
int numHeaders;

List = "

" + MakeListHeader() + "

\n";
List += "

\n";
for (int l = 0; Lines[l]; l++)
{
List += "";
string a [];
int n = strsplit (a, Lines[l], '\t');
if (l == 0)
numHeaders = n;
else
n = numHeaders; // for the hidden key!
for (int i = 0; i < n; i ++)
{
if (l == 0)
a[i] = "

" + a[i] + "

\n";
return List;
}


string MakeList (void)
{
switch (OutputFormat)
{
case ofText: return MakeListText(); break;
case ofCSV: return MakeListCSV(); break;
case ofHTML: return MakeListHTML(); break;
}
return "";
}


void ViewList (void)
{
dlgDialog (tr ("Bill Of Material - Preview"))
{
string s = MakeList ();
if (OutputFormat == ofText || OutputFormat == ofCSV)
s = "

" + s + "

";

    dlgHBoxLayout dlgSpacing (400);

    dlgHBoxLayout

    {

      dlgVBoxLayout dlgSpacing (300);

      dlgTextView (s);

    }

    dlgHBoxLayout

    {

      dlgStretch (1);

      dlgPushButton (tr ("-Close")) dlgReject ();

    }

  };

}

void SaveList (void)

{

  // 2008-11-24 cwi:

  // - Added new format extension .csv

  // - Changed from .bom to .txt for text format.

  string FileName;

  string FileExt;

  switch (OutputFormat)

  {

    case ofText: FileExt = ".txt"; break;

    case ofHTML: FileExt = ".html"; break;

    case ofCSV:  FileExt = ".csv"; break;

  }

  schematic(SCH) FileName = filesetext (SCH.name, FileExt);

  FileName = dlgFileSave (tr ("Save Bill Of Material"), FileName);

  if (FileName)

  {

    string a [];

    if (!fileglob (a, FileName) || dlgMessageBox (tr ("File '") +

FileName +

        tr ("' exists\n\nOverwrite?"), tr("+&Yes"), tr("-&No")) == 0)

    {

      output (FileName, "wt")

      {

        printf ("%s", MakeList ()); // using "%s" to avoid problems if

list contains any '%'

      }

    }

  }

}

void DisplayHelp (void)

{

  dlgDialog (tr ("Bill Of Material - Help"))

  {

    dlgHBoxLayout dlgSpacing (400);

    dlgHBoxLayout

    {

      dlgVBoxLayout dlgSpacing (300);

      dlgTextView (language () == "de" ? HelpTextDE : HelpTextEN);

    }

    dlgHBoxLayout

    {

      dlgStretch (1);

      dlgPushButton (tr ("-Close"))

      dlgReject ();

    }

  };

}

schematic(SCH) {

  sprintf(SeparatorString, "%c", Separator);

  CurrentVariant = variant();

  SCH.variantdefs(VD) {

    if (CurrentVariant == VD.name) VDsel = cntVD;

    sprintf(Variants[cntVD], "%s", VD.name);

    cntVD++;

  }

}

setvariant(CurrentVariant);

CollectPartData(CurrentVariant);

GenerateList();

dlgDialog (tr ("Bill Of Material"))

{

  dlgHBoxLayout {

    dlgLabel(tr ("Current &variant "));

    dlgComboBox(Variants, VDsel) {

      CurrentVariant = Variants[VDsel];

      setvariant(CurrentVariant);

      CollectPartData(CurrentVariant);

      GenerateList();

    }

    dlgStretch(1);

  }

  dlgListView ("", Lines, Selected);

  dlgHBoxLayout

  {

    dlgGroup(tr ("List type"))

    {

      dlgRadioButton(tr ("&Parts"), ListType) GeneratePartList ();

      dlgRadioButton(tr ("&Values"), ListType) GenerateValueList ();

      dlgCheckBox(tr ("List &attributes"), UseAttributes) {

        if (!UseAttributes) {

          NumParts = 0;

        }

        CollectPartData(CurrentVariant);

        GenerateList();

      }

    }

    dlgGroup (tr ("Output format"))

    {

      // 2008-10-09: Entries swapped for correct function.

      dlgRadioButton(tr ("&Text"), OutputFormat);

      // 2008-11-24 cwi: New format added.

      dlgRadioButton(tr ("&CSV"), OutputFormat);

      dlgRadioButton(tr ("&HTML"), OutputFormat);

    }

    dlgStretch(1);

  }

  dlgHBoxLayout  {

    dlgPushButton (tr ("+Vie&w"))    ViewList ();

    dlgPushButton (tr ("&Save...")) SaveList ();

    dlgPushButton (tr ("H&elp"))    DisplayHelp ();

    dlgPushButton (tr ("-Close"))   dlgAccept ();

    dlgStretch(1);

    dlgLabel("Version " + Version);

  }

};

- - - - - - - - - - end of file.

Robert Scott

Hopkins, MN