After a vba. that produces a Parts Materials Table from a DGN file. That scans the cells in a drawing.

Question

Dear Users, 
 I am after a MACRO VBA file that I can load up in Microstation V8i SS3 and that scans the cells in that 3D drawing and provides an output in a Table 
 format. Similar to an Excel spreadsheet layout. showing Item 1, Item name which is the cell names, Description plus qty of each Part used in the dgn. 
 This can then be inserted into the dgn file as either an image file with a border or exported into an Excel spread sheet. Can anyone help with this problem? Is there a free 
 download anywhere on the WWW? From Frustrated User.

Jon Summers · Answer

FlexiTable 
 Unknown said: I guess FlexiTable solves your needs 
 
 FlexiTable &trade; can harvest cell information from a DGN model and its references. FlexiTable creates a worksheet of information. You can place the contents of the worksheet as a DGN table or export it as CSV, HTML, XML or Excel format. 
 Use a Dictionary to Simplify your VBA Cell Counter 
 If you want to roll your own VBA app., then do something like this: 
 
 Create an ElementScanCriteria object 
 Set your criteria to select normal cells or shared cells (or both) 
 
 Create a Dictionary object 
 It will store cell count indexed by cell name 
 
 Scan your DGN model to obtain an ElementEnumerator 
 For each cell in the enumerator 
 Check if the cell name exists 
 If so, increment the count of that cell 
 Otherwise, insert the cell name into your Dictionary and set the count to 1

At the end of the scan, your Dictionary contains a list of cell names and their usage count. Now you can iterate that list and write each member to a CSV file that you can read with Excel, Word, etc. You need to write the code that constructs a table in your DGN model. 
 Note: to create a Dictionary you must add a reference to Microsoft Scripting Runtime .

Torben · Answer

If you do know a little bit about making a VBA macro, (Hitting ALT+F11, copy&paste), there are a lot of ready to go code examples all over Googol (Pretty much all is on this forum, but these forums are much easier to navigate using Googol ;-). 
 I also stumpled upon this free software from Molotov that might help you? 
 I do not know the software, and I am not affiliated with the company.

Lorys · Answer

Unknown said: 
 this free software from Molotov that might help you? 
 
 Unfortunatly thes wont work in current V8i builds they only have mdls for V8. 
 I have a BASIC version macro attached here that will do what you want...it will list all cells and save to csv which you can then use as text or excel and paste back into your dgn for a part list.. I attached the zip here but if you have VBA skill and can convert it to vba please share it with the rest of us as BASIC will no longer be supported in the next release of microstation... 
 An alternative method is to put tags on your cells ie part number , name, material , price etc and use tag reports to extract the tag record values to a text or cvs file.. 
 you can add the tags after or inside cells and edit during or after placement... 
 cellist.zip