аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDim AcadLayo`ut As4BE lemenA Sc xife, bi sc&r"Ydфml H 4Blіckei@hrBf@€wИurdЄ…#IoR`•n acAllV€iewport-3В`ŸveЃ Ms@gBox "dbiРЇinak УZ%gBe€in!!!!p' *tsts*,Ђ 5 so@=eТ-1? С&€К џџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџ<фjxЬWсJЕџџ#ˆЖџџRoot Entryџџџџџџџџ`їыоД›Т€-VBA_ProjectџџџџаN1ЄЁ›Т`їыоД›ТVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ а06ЄЁ›Та06ЄЁ›Т§џџџ ўџџџ ўџџџўџџџ !"#$%&ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ Ј!"#$%ўџџџ'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRXTЋVWsYZ[\]^_`ўџџџbcdefghijklmnopqrtuvwxyz{|ўџџџ~ўџџџўџџџacadID="{756B241D-43F4-4DBE-87F9-732BE873BABB}" Document=ThisDrawing/&H00000000 Module=Modul1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0C0E091F192F1D2F1D2F1D2F1D" DPB="181A1D1E1E1E1E1E" GC="242621272132223222CD" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Modul1=22, 22, 552, 263, Z PROJECTwmџџџџџџџџџџџџ;PROJECTџџџџšThisDrawingџџџџ џџџџa’__SRP_4џџџџџџџџџџџџŽThisDrawingThisDrawingModul1Modul1rU€€€€~} џџџџџџџџџџџџ џџџџ Љp“K*mџџџџrU€€€€~~~~~~~~~~~~~~Q щф6БСU`GGА{Œ^ЛоŒ' фџџџџƒŠe бџџџџџџ џџџџџџџџџџџџџџџџџџџџџџ)с__SRP_5џџџџŒBModul1 џџџџџџџџ__SRP_3џџџџU__SRP_2џџџџџџџџџџџџS _VBA_PROJECTџџџџџџџџџџџџ&F dirџџџџџџџџџџџџ g__SRP_0 џџџџ __SRP_1џџџџ џџџџ nЉ‰Projekt1 ACADProject ThisDrawingModul1яРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Aџџџџ iб`тС”РЦWв…у  Ц&d:\3dpp6\ACAD.TLBAutoCAD 9џџџџa‘p0РFC:\WINNT\System32\stdole2.tlbstdole џџџџ)q€йuŽ!=в…Ф  Ц&јѕП—џWJЋUYž6qѕайuŽ!=в…Ф  Ц&Сžа‹I”шkыуа4NсXh—{ а‰п€_ТћК AcadDocument @main …ЙЂЙ(вЖx`А‡т5Ž}TВnвЖQ`А‡т5Visible Reloadˆ%“^чџбЖI`А‡т5Ђд()“ЪбЖ`А‡т5 VB~aЁ!ћбЂШ мcš’~aЁ!ћбЂШ мcš Insert Select ,IAcadExternalReferenceNamePathMainVBE6.DLL ЉџџџџOcБ€0* pH‚dф ACADProject8@е = t  .n>?( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^s‚WсwThisDrawingGThisDraw€ng* 2# H‚1‚‹в‚ ,‚@JЕ"‚+‚‚“ModPul1G‚“M€‘dtu€“1?Ђƒ2Ž78 7Cs!ШТЬ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{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#d:\3dpp6\ACAD.TLB#AutoCAD 2002-TypenbibliothekИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation џџџџџџџџ.n>?џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџWсThisDrawing063f3e49e0џџThisDrawingџџJЕвџџ Modul1033f3e6e2eџџ Modul1џџCs8 џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџнŒФ#NCЅе"еmчВџџџџlŒ”›БЗOЕ1‡GCEУџџџџџџџџH€Wgџє0 €џAs=€џDim@€џDoG€џEndO€џexitR€џFalse^€џGoTo_€џIfb€џIny€џLoop‰€џOnЏ€џSubВ€џThenД€џTrueО€џWhileAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­#Projekt1вAstdole“` ACADProjectІд ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZModul1Э Start_Clicktp„џIndexёПXRefTab2mXRFЬЈmi?^moE^ma7^count0vmTypeШmNameБјacadAppвacadItem…M „џAcadBlockяЗLфngeˆЁEOFє‰neRight  GetObjectzУ€џVisibleЖгText2Д~€џActiveDocumentг\€џLayoutsОм €џActiveLayoutљ\Itemзzsset/. FilterTypeыв FilterDataЋ  €џSelectionSetsг€џDeleteИxAddїrTypeNameјѕmPfadэœ€џPath2LCase:щ€џBlocksг€џIsXRefElvbCrLfЏЌ DwgThumbnail1)Ј DwgFileName"8€џReload'щ €џџџ_B_var_ForjL„џLayout-Mainˆ, €џџџ_B_var_SubН’ €џџџ_B_var_Layout扈џџџ_B_var_acadAppе €џџџ_B_var_ObjectjЉ€џAcadBlockReference˜­ €џџџ_B_var_mPfadк`€џџџ_B_var_XRefTab&€џExplodeу€џџџ_B_var_acadItem% „џAcadLayoutˆ…thisЬЙ €rU€€€ џџџџџџџџ$`§џџџџџџџџџџџn9arU€€€€~|  @ с9ai ё й™ С i Dєp6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ‘’ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЉЊ}Ќ­ЎЏАБВГДЕўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_B_var_thisљ€џRegen ў€џacAllViewports,endeнC€џAcadSelectionSetЫЩ €џџџ_B_var_ifPђ €џџџ_B_var_On6ѓ€џџџ_B_var_SelectionSetsЖІ €џHighlight_Хhighligt˜€џacActiveViewportrNxo€џџџ_B_var_xЂ €џџџ_B_var_LoopеElement[ €џAcadEntityІiex&]BlockDaи€MsgBox—R €џSendCommandcњvbCr$џџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ $<фjxЬWсJЕџџ#ˆЖџџ<фjxЬWсJЕџџ#ˆЖџџџџџџџџ<џџјѕП—џWJЋUYž6qѕайuŽ!=в…Ф  Ц&Сžа‹I”шkыуа4NџџџџџџџџџџџџxСžа‹I”шkыуа4NјѕП—џWJЋUYž6qѕаџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@ttџџџџџџџџџџџџџџџџџџџџџџ0.n>?$*\Rffff*063f3e49e0пџџџџ4ўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriџKџџ0џ: џ%0џ$ Ф0џ џ X)0џџ.џ0џ$ Ф0џ ,lџ=pџ)0џџ єѕXџЂ: џѕ<џќА)<џMьў %XџMќў %' џ%' џ%ѕpџ HKўџlpџtџўˆшў13ltџќј0џ0џM џ @ 1фўl0џ=tџlфў ћ0/фў0џ"дўtџ 5дў tџ , єџp6џ tџў‹шўЮ k6џєџЦѕ$ $ѕ$ $+'Єў'Дў'Фўѕ: џ Nдўдў 6дўФўДўЄў@иŒtшўxџ<џ``0`P’ pXџ``@@@’`tџpџ(фў0џџдўФўДўЄўk Р Ш 4€ 0ш*einigen nicht vergessen!!! ЉџџџџS X%! ЉџџџџS X%v’BustomizD2VАџџџџ–oЗ'Ј]ђ0F]ЮЌђ`F]ЮЌђ˜]ђр]ђ˜џ Ђў J“р$$ geh mal alles im SelectionSet durch]ђЩр ab hier Fehler ignorierenteэЖVB !P%T.JЌ+ š B@ˆIAџ ЂўШ, k Š B@ˆЩр Ab hier Fehler nicht ignorierenџџџџџџh џџџџˆЖVB !P%HB@Rр8/ erst mal altes SelectionSet lіschen - falls da ЂB@Rр$ werf es wegIAЌЌ+Lр  Element4/Ќаа L N JB@Hр8Nu guck doch maџџџџ€_џџˆ ЈЗЛр!H Mach eine Schleife, bis keiner der dфmlichen Blіcke mehr gefunden wurdeЖINSERTЌ+Nр(mit der Eigenschaft INSERT Ђ$VЖIAcadBlockReferenceœр@ Wenn es ein Block ist ЂB@~рrU€€€ џџџџџџџџ@nrU€€€ 0 1Yџџџџс4aЉџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV`$? Dann hau krфftig drauf, keine Angst, es fфllt drunter was rausЗ'Јр$M und merk Dir, daп das ein Block war und noch einer verschachtelt sein kіnnteЖ$Blіcke bereinigen nicht vergessen!!!A@Њр4" *tsts*, wer sollte das vergessen?џџџџ0џџџџВГAttribute VB_Name = "Modul1" Sub Main()  № $AcadBlockReference &IAcadBlockReferencehighligt INSERT юW[šЪбЖ`А‡т5 HBlіcke ber‰Йё сyй9 $|Kџџ0 џ:$џ%4џ$ Ф4џ  џ X)4џ џ. џ4џ$ Ф4џ ,l џ=pџ)4џ џ єѕXџЂ:$џѕ<џќА)<џM№ў %XџMџ %'џ%'$џ%ѕpџ Hьўpџ lьўѕЧЮx єџpџ ,Kўџlpџtџўˆшў A3ltџќј4џ4џM$џ @ 1фўl4џ= tџlфўћ0/фў4џ2дўtџ  5дў tџў‹шў я єpџ ,ѕ$ $ѕ$ $ Ј|Œtшўxџ<џeNamleN’ Xџ’pџtџфў4џ џдўkkzD2џџџџџџ<џџјѕП—џWJЋUYž6qѕайuŽ!=в…Ф  Ц&Сžа‹I”шkыуа4NџџџџџџџџџџџџxСž№ќдШџџџџ2 WсCsџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`(4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<\џџ