extract element attributes out of my file

Hi everybody

I have hundreds of DGN files include thousands of places & buildings
names, is there any mdl or macro that enables me to extract those
names with all attributes (LV, CO, WT, TX, FT etc)

Any help will be appreciated

 

Hi Al,

I can understand why you might want to extract the text itself, but don't
understand why you would want to extract the attributes as well. Are you
needing to spec-check your drawings perhaps?

 

Hi Inga..
Thanx for responding..

well I need to do that to build our database.

Thanx again

 

Sub Main
Dim FileRoot as string
Dim OutFile as string
Dim element as New MbeElement
Dim filepos as long
Dim ThisText as string

OutFile = fileparse$(MbeDgninfo.dgnFileName,2) & _
"\" & fileparse$(MbeDgninfo.dgnFileName,3) & ".txt"
open Outfile for output as #1

MbeWriteMessage "Scanning All Elements For Text"
filePos = element.fromfile (0)
do While filePos >= 0
if element.type = 17 Then
Stat = Element.getstring(ThisText)
OutLine$ = ThisText & "," & trim$(str$(element.level)) & "," _
& trim$(str$(element.color)) & "," _
& trim$(str$(element.weight)) & "," _
& trim$(str$(element.charheight)) & "," _
& trim$(str$(element.charwidth)) & "," _
& trim$(str$(element.font))

print #1, OutLine
end if
filePos = element.fromFile(filePos + element.fileSize)
loop 'next element

'close files
close
MbeWritemessage "All Done"
End sub

 

Hi Dave..

Thank you very much for your responding, & for the macro which u posted..
You really did a big & nice job which was making a big headache to me.

Once again Thanx alot Dave.

 

That's no problem - I have done so many macros that do some of what you want
it was only a case of copying and pasting it together