ࡱ>  o]k 8 !2ix = " 8\f "%t]] >%).Name>%me 8!6>%"C]%<\AcObjProp Object(%<\_ObjId xQRS > >`ff| > @>}~ 8!L >+>] hB@j Ddk] N > NKeine XRef's enthalten!'R]8 R T(`Text]  T ^$Text fr XRef-Schriftfelder whlen: !ZB@\p N > k R,'R R  N$> &'RKein Text gewhlt! *Abbruch* !ZB@lsAttribute VB_Name = "Modul1" Sub XRefsInSchriftfeldText`() Const Prefix%<\AcObjPropB ect(&_qId thSuf4>%). >% [Dim MyBlock As Acad GYs()"LongRe=0 For Each/In ThisDrawin4g.3s%XIf1.Is*en9serveMUBound(F) + 1H()M.*ID>End IfN/UiIn tegeRoot Entry0kq1VBA_ProjectAq0kqVBA_Project_Version(VBAKqOq   "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPRTUVWXYZ[\]_`abcdefghijklmnopqrstuvwxyz{}acadID="{E31DF8C2-537A-426E-B9AF-17E390B997E2}" Document=ThisDrawing/&H00000000 Module=Modul1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6B6991C137C537C537C537C5" DPB="0D0FF7AB3B4C3C4C3C4C" GC="AFAD55055505F606F60609" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Modul1=66, 87, 623, 508, Z PROJECTwm;PROJECTThisDrawing __SRP_2~ThisDrawingThisDrawingModul1Modul1rU~}   pK*mrU~~~~~~~~~` brHcHćF{A  e Q A a )__SRP_3 |BModul1 ^ _VBA_PROJECT! dirj__SRP_0 (__SRP_1 n__SRP_4S__SRP_5Q Projekt1 ACADProject ThisDrawingModul1F /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i`;HAstdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE AutomatXion0tDxThisDrawingGTJisDrawing 2#(H1X ,@TR"+M@odul1GMрdu1?m27l7!am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation nEThisDrawing0X45cd9aafThisDrawingR Modul12r45cda075 Modul1l 8X jD}É=eZ B]@*(%6H7KD, As"Const=DimCEachDelseHendifOexitQfTFor^goto_IfbInonPreserveredimSubThenToUBound AutoCAD" VBAWin16~Win32MacVBA6#Projekt1A stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ Modul1 Schriftfeld  _B_var_subSchriftfeldTestPrefix _B_var_constg _B_var_Prefix`Suffix_M _B_var_SuffixMyXrefAcadBlockReference AcadBlock _B_var_ForjLBlocksӍ _B_var_IfPIsXRefElMyBlock XRefNames_B_var_XRefNamesR XRefObjIdssVarTypepxrefohvbEmpty˜ _B_var_ReDim _B_var_UBounddxrefobjObjectIDoi` xrefobjidOMyStringPickTextAcadText~ AcadEntityiUtility1J GetEntityPP^ TextString vbNull; _B_var_On6FEHLERErroClearPromptm(XRefsInSchriftfeldTextH $rU~| @ IrU $`nI! a t!p$ $Qp[lxhfx kf!ltt`x 0l`ltlt xh<lt^ltcT6lX*#Pk^lt#L*#H*#D*1X2PLHD ^dT CXKd?: %0l@,,p$ p h l,= @),p lX@  ppHpp$ p l p`H.lh@0Xt\vxa$PLH(2f xME 6  V .<8LLPLLLLL"<<<hP0%%<\AcObjProp Object(%<\_ObjId >%).Name>% @ 8H@&XH 9x%`N^`RxX@^0 %P %% h >t  n`|H228@nE$*\Rffff*2r45cda075*\R1*#101*\R1*#122*\R0*#19*\R0*#13*\R1*#8c*\R1*#8c*\R1*#14f*\R1*#135*\R1*#6a*\R1*#6d*\R1*#6b$*\Rffff*0X45cd9aaf2" *xP H !  h !  8 @ H  rU @nrU 0a4a)X` 8      `0 p8   F?      .X r MyS@ngCCc@>/> 0L@ATi@)1 To O :K =."&Ŕ& Ri) & Í,i %).Name>%55IQLb-,&_2H*F?T7YAT$aX, , .Keine XRef's enthalten! HText fr XRef-Schriftfelder whlen: XCƔ{$_Ҧ,@yU ʨyVBE6.DLL  3 $xAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDeriDp,kKein Text gewhlt!   XRefsInSchriftfeldText-vBustomizD2! a Lt!p$ $Qp[lxhfx kf!ltt`x 0l`ltlt xh<ltI^ltcTFk^lt-lX*#Pk^lt#L*#H*1X2PLH:6lX*#Pk^lt#L*#H*#D*1X2PLHD ^dTSCXK?: %0l@,,p$ p h l,= @),p lX@  ppHpp$ p l pa`H.lh@0Xterxb$PLHDp,k