option base 1

Sub main()

Dim elemSet as New MbeElementSet
Dim zelle    as New MbeElement
Dim element   as MbeSetMember
dim p0 as MbePoint
dim p1() as MbePoint
dim txt as string
Dim filePos as Long
dim iedf as integer
dim edf() as MbeEDfield
dim k as long
 
dim gefunden as integer
  

' Zaunsettings auf Element im Zaun + overlap  gesetzt

MbeSettings.fenceclip   =0
MbeSettings.fenceoverlap=1
MbeSettings.fencevoid   =0


' pruefen ob ein Zaun gesetzt wurde

if elemset.fromfence(0) = MBE_Success then
   rem  print "Ein Zaun gesetzt !"
else
    print  "Kein Zaun für Auswahlsatz gesetzt!"
    return
end if

' Inhalt des Zaunes einlesen 

status = elemset.getFirst(element)

do while status = MBE_Success
        filepos =zelle.fromfile(element.filepos,element.filenum)
      '
                if zelle.type=MBE_text  then
                         k=k+1
                        status=zelle.getorigin(p0)
                        status=zelle.getstring(txt,iedf,edf)
                        print
                        print "text [";txt;"] ";p0.x;" ";p0.y;" ";p0.z
                end if
                
           
                if zelle.type=MBE_shape  then
                        print
                        status=zelle.getpoints(p1)
                        if status = MBE_success then
                            for i= lbound(p1) to ubound(p1) 
                                print " shape punkt";" ";p1(i).x;" ";p1(i).y;" ";p1(i).z
                            next i
                        end if 
                end if
                
                
    status=elemset.getnext(element)
loop

elemset.clear
 

end sub