CADSoftTools

Code: Select all

TListBox *listboxBlocks;

void __fastcall TForm1::ReadCADEntities(TsgDXFEntity * Entity)
{
    ...
    <b>if</b> (FCADParams.Insert)
    {
      <b>if</b> (listboxBlocks->Items->IndexOfObject(FCADParams.Insert) == -1) // whether new Insert is in the list
      {
        //if Insert is not in the list
        TsgDXFInsert * vInsert = FCADParams.Insert; //get next Insert
        TsgDXFBlock * vBlock = (TsgDXFBlock *)(vInsert->Block); //get block of the new Insert
        listboxBlocks->Items->AddObject(vBlock->Name, (TObject *)vInsert); //add new Insert to the list
        /*
          TODO: Place code here.
        */
      ...
      }
     ...
    }
  ...
}