аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџрж0c[Ф/VBA_Projectџџџџрe.c[Фрж0c[ФVBA_Project_Version(џџџџџџџџџџџџVBAџџџџрe.c[Фрж0c[Фџџџџџџџџ§џџџ ўџџџ ўџџџ' !"#$%&ўџџџ()*+ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџ ўџџџ ўџџџ !"#$%&'()*+,-./ўџџџ123456789:ўџџџ<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmўџџџopqrstuvwxyz{|}~€acadID="{54F47606-2601-4CC6-8B14-04254ABB8444}" Document=ThisDrawing/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0002929096909690969096" DPB="0002929593959395" GC="000292959395936A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C ModulUserForm1џџџџџџџџрж0c[Фрж0c[ФPROJECTwmџџџџ YPROJECTџџџџџџџџџџџџ fџџџџџџџџџџџџКb1=19, -5, 696, 456, UserForm1=98, 309, 775, 770, , 538, 152, 1215, 613, ThisDrawingThisDrawingModul1Modul1UserForm1UserForm1rU€€€€~~~~w џџџџџџџџџџџџ  џџџџ BlockName A™ssName QЉ ! Љ( A 8]o џџџџЙ@CompObjџџџџ џџџџЗaVBFrameџџџџџџџџџџџџВ$ThisDrawingџџџџŸ’__SRP_6џџџџџџџџš__SRP_7 џџџџ˜BModul1џџџџj__SRP_2 џџџџ‹&__SRP_3џџџџџџџџџџџџˆЎUserForm1џџџџџџџџџџџџnB_VBA_PROJECTџџџџџџџџџџџџ;‘ dirџџџџџџџџџџџџ0В__SRP_0џџџџџџџџ__SRP_1џџџџџџџџџџџџ ёџџџџџџџџџџџџџџџџџџџџџџџџ“K*mџџџџrU€€€~~~~~~~~~~~~Y щ—П1CќQ@‘Ј,|ЩLмк фџџџџƒŠe Y џџџџџџ ˆa Сџџџџ€џџџџIiџџ)ƒџџџџџџџџџџџџџџA!A!Projekt1 ACADProject ThisDrawingModul1 UserForm1 SSяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ Љ0…Ž§;цH“A<‹/`k=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16deu.tlbAutoCAD yџџџџЁ)@0РFC:\WINDOWS\System32\stdole2.tlbstdole ™џџџџС Pс.E р….`ŒM ДC:\WINDOWS\System32\FM20.DLLMSForms yyЁщ`$$ yІСОAˆЪph˜ 2C:\DOKUME~1\DOERSC~1\LOKALE~1\Temp\VBE\MSForms.exd Yyщp BlockCountCreateSelectionSetШв)gЏсHB‘Mђ р^„ ж—“t бM—0–Ж)ЉW\ъˆatЏIœЋ QUЬO`&PbKžDО“œІƒfрЧ—Sk|L†%з­™еЂ5,\wє?!@€h7зl• иШ[qJ—І eР‹UserFormЯ-uЧƒA•ћѓэЪшЙр F3Dynamic џџџџџџџџ1ШС{lЏЮŸFЊWJOCommandButton1!ш-ЌЂ6Я€SЊ` њ љџџџџџџџџщиCommandButton1_Click DVBE6.DLL б џџџџS ш 0BlockAttUnvisibleAuswahl <AND INSERT AND>™9<†(N˜Uю0Щќ[ŠДх-эЗ>рN‹њєІЊОйuŽ!=в…Ф  Ц&@яkЮчА=KІА“Џ‘{ ьL)мйKБBx"Ёвk AcadDocument @ЖдlqoBИ UЏ`lЎВ€0* pH‚dф ACADProject8@е = t  NeЌA( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE Automation0€MSForms>SFFrms3 €ED452EE1-E08F€-101A-8-02608C4 D0BB4EFM20.DLL#MicrosoftŠ ‚: €^ ObЎ Libraryш/;D1€„uˆˆ00}#0‚#€k0Ѓ € …РA79092424-C1A6-41BE-8D88-11CA7068980Cˆ6DOKUME~1\DOERSCALOKALATemp\VBE\с„T.exd <Р!€с.E р….`ŒM ДEAЇBЂТПОBЄThisDrawingG*€T@i€kDrawi ng 2 Ђ€HB1‚Ў`вB,QB Ч{"B+B‚ВModul1GE‚ВMР‹du€В17€КC2NЯЛ QЯеV!Ъ @UиserŽ€Р=žeР=­Š 2“ M/р{-<Ц#()@ уbЬ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\acax16deu.tlb#AutoCAD 2004-TypenbibliothekМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{79092424-C1A6-41BE-8D88-11CA7068980C}#2.0#0#C:\DOKUME~1\DOERSC~1\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџџџNeЌAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџПОThisDrawing0i41ac65acџџThisDrawingџџЧ{вџџ Modul10g41ac6599џџ Modul1џџеVџџџџЛ џџUserForm10m41ac65aeџџEUserForm1џџ<Ц0џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD„*ЩžЙcM…CIVћЏатџџџџcкxRЁХФG œѓз}џџџџ#s‡sMєGЎ џџџџPџџџџLџџџџџџџџš"џџџџLџџџџPџџџџLџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџџџџџ+№`џџџџџџџџˆєўk@џџџџŒiƒџџџџ џџџџџџџџ€ „џџџџtџџџx% „"\џџџА’˜ „$џџџџ@џџџш’а +&џџџџ`џџџџџџџџ Tџk0Xџџ„iƒ4џџџџ џџџџџџџџ€€BьЮ% „7џџџџtџџџx`ѓ% „9џџџџpџџџ˜џџџџ%џџџџџџџџ№Иъ€0џџџџџџџџ@џџџџџџџџƒџџџџџџџџџџџџџџџџџџџџ%`џџџџxџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџ&*0џџџџџџџџџџџџ@ўџџџџџ8џџџџџ џџџџ%SSџџџџ@Иџџџџџџџџџџџџ€`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџ(џџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH(@ўџ@(џџџ џџ estD@ўџXџџџ џџ estD@ўџpџџџ џџ alDx@ўџџџџџјўџџ џџ @ўџџџџџєўџџџџ ^цџџџџ`џџџџџџџџџџџџџџџџ0џџџџ@џџџџ€џџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@xX 'џџџџxџџџxh@мtРџџџџ,‰/џџџџ ‰//@ўџџџџџlџџџ џџ @ўџџџџџhџџO џџ Ј@ўџџџџџdџџџџџ ˜ы.@ўџџџџџTџџџ џџ џџџџЈ џџџџшџџџџИџџџџџџџџџџџџ№џџџџИџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџ NeЌA*\R1*#121$*\Rffff*0g41ac6599*\R1*#122*\R1*#11d*\R1*#11d*\R1*#e$*\Rffff*0i41ac65ac*\R1*#104*\R1*#11c*\R1*#11cпўЪ+€€ џџџџ€ FB H€P€X€h(x€ џџџџ& &Ш №&€ џџџџ€ B8 €)€ џџџџ А€ џџџџ Р а€ џџџџи€ џџџџB… р€ џџџџ€№€ј€ џџџџ 0HP X` x€ џџџџˆ€ џџџџ€ џџџџџџџџ р@Anzahl der Blіcke in der Zeichnung mit der Bezeichnung BlockName!–]ђ`]ЮЌђ€]ЮЌђИэЖBlockAttUnvisibleAuswahl$&.ЌЌ+"FЖЌ+$џџр< Selectionset erstellen, Benutzer fragen und Filter anwendenџџџџџџ B@(џџџџџџ * "б, $б. B@Hџџ !2'0џџџџ B@(єэА.iџџ їЖSS–№џџ]ђ`]ђ€э !<.8sџ 6ў 8“u 6! 4œ 4 8%>B@@hayџџАkџџЈџЧ э 4 8%B.6upэ 6.&c:\iџџp] ђИџџџџ`џџџџЋВAttribute VB_Name = "Modul1" Public BlockAnzahl As Long 'HderDіcke in Zeichnung mitё"Bez&œжРFunctioniCount(%ErSЅng)} Dim SSAcadSeleADSet FltTypes(3†<„0)€Љ-4: €ƒ‚5"Ф ' †9set erstellen, Benutz@zfragen und Filt@anwendenƒSS.CleŽaФX@C ac†a@VAll,ФСg:ў=…*EAJBCCыC^Ѓ=h.‚‹IL Р1@‰= NothњiCЎE/ФœСkФЙ†Ё P|OpЈal ss‚ЩРСЅЬSS"‚—ЯЁУ%AЊobj@Я•€Ќƒ CoBк sŠ96G = Th@isDrawР8.‰Z For Ea˜ch У "InCР # If.х"=EThe<VF@.Item(У")$.DРpteЅ рN‹њєІЊОйuŽ!=в…Ф  Ц&@яkЮчА=KІА“Џ‘{џџџџџџџџџџџџx@яkЮчА=KІА“Џ‘{Дх-эЗ>рN‹њєІЊОџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@||џџџџџџџџџџџџџџџџџџџџџџ0NeЌA$*\Rffff*0i41ac65acпџџџџ4ўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 1 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq (€CommandButton1ь qu€ЅTahoma  }t 943,х€@CommandButton1; 