╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   __SRP_2            ■   `__SRP_3            ■   e__SRP_0            ■   __SRP_1            ■   n            x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                    Root Entry        PxpB[╟VBA_Project    аD·╦Yл┴PxpB[╟VBA_Project_Version(            VBA        аD·╦Yл┴PxpB[╟■   ¤    ■   ■                       ■                                                                                                                                                                                                                                                                                                                                                                                                       ■   ■    ■    !"#$%&'()*+,-./0123456789:;<=■   ?@ABCDEFGHIJKLMO■   ■                                                                                                                                                                                                   acID="{F0A3598B-16E4-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5755C40A440E2212221222122212" DPB="393BAACFABCFABCF" GC="1B19884E6B4F6B4F94" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=154, 154, 735, 680, Z Z Module1Module1PROJECTwm            N>PROJECT    ЮThisDrawing    >Module1         :_VBA_PROJECT            ▐ dir            h__SRP_4            ■   __SRP_5            ■   @d▓А0*Р pHВdф ACADProject8@╒ = t  yёZ<( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automa0tion^АMSForms>SFErms3АDD452EE1-E08F-101A-8-02608C@4D0BB4Dsystem32\FM20.DLL#Microso(ft В: А] ObБн Libraаry/;D1АДАtИАБИА00}4#0ВА#А0РАrА 3CAB861-1C65-11D6-B1194761`254F9P.└OP \VBE\ДG.EXD /Ас.E ПрЕ.а`МM ┤┴Щ┬ФИ┬ЗX┬ЦThisDraw@ingGАThiА^Draw└ngT 2 АHB1бE,B,B ЕX*"B+BГВodаule1GДВo@е║uBе1@ ┬К2НOУ@╜MЛX!H┬G{000204EF-0╠am   ф·*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2007 Type Library╕*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\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{03CAB861-1C65-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          yёZ<                                                            ЗXThisDrawing0=47590db4  ThisDrawing  ЕXE  Module10>47590db4  Module1  ЛXУ       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        8еьVhПG╢]&╝40Ц    Н╒╞}■cFИ:ФjЧь╕С        HА  Ь(AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1b ad_GetBlocksFnfTypeifDatahC adBlockSS▒AcadSelectionSet╦╔adBlock╝2AcadBlockReferenceШнadBlockAttributes╕q adBlockList=mi` SelectionSets╙ErroКAddўrClearу═acSelectionSetAll.┬ GetAttributes┴╘ TextString vbCrLfпмMsgBoxЧR AcadDocumentZ  T                                                         $ЗXЕX  #И╢  Ё─╘    ╦?ЗXЕX  #И╢                                                                    ▀■╩АА         ═  x    p    ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizThisDrawingThisDrawingModule1Module1 D2Option /licit rstdole>stdole f%\*\Ё|╘░    ЕН ЗXЛX  ╢                        x  ME          ▀                                                                                                                                (<   <$<   <          @                                 Д Д        p XД        иst wР Д        ╚he l% Д"        шsgBo%`Д&           °`Д(           lis`Д*          t fa    └                                                                                            ▀■╩3А А А  А D(А DpА F╕А FА 4HА <АА └А ╚А рА *шА А J А JpА :└А NА >PА PРА PрА .0А `АhА     "БpАxАШАаАиА░А╕Б└Б╚Б,шБ Б&(БPБpБxБ ИБШБ╕Б ╪Б °ББ Б (Б 8БHА         Xрр ad_GetBlocksрр> This routine demonstrates collecting all blocks in a drawingр> and building a list with the blocks and their attributes.р@ The list is then displayed in a MsgBox. For 'real' purposesр? you can write the list to file and save it far processing.  р. It was developed for AutoCAD 2000 and above.    р6 Demand load: -vbarun;ad_GetBlocks.dvb!ad_GetBlocks;    рр version 1.00    рр# Copyrightй2000-2007 ActiveDwg.comррC This routine is provided for demonstration purposes only and mustрC not be used for critical applications without your verificationр3 that this routine will perform as you intended.рG This routine may be freely utilized for your own personal use so longр8 as the entire contents of this header remain intact.рJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.р═  РЦ]╬мЄ@╬мЄx]Є░]Є╨]ЄЁ]Є]Є ╔8э╢ adBlockSS %,. .ЫGэ╢ adBlockSS !,%0.j B@2мм+F╢INSERTм+ 4╨╨   B@H╢'(  "■ У "!6'& ( "!╢ : '(  *■ &К &СТ ( *$&!8╢, '(  *■╚ ( :'(  "■╚ (A@< B@2o  ░    и    г┤Attribute VB_Name = "Module1" ' ad_GeАtBlocksLThis routine demonstrates collec.g all bl in a d@rawingи оnd buildlist with the 7a#ir aщкs.@T'5Л$n displayedoMsgBox. For 'real' Аpurpose╟Б you c└an wriВ" (to file ?save it far p└rocessXBIАXasАvelopА;f5AutoCAD 200В0В aboveDemБ)load: -vbarun;Й░.dvb! ;wВxversion 1.00Е CopyriPghtйБ6-7 AА╛veDwgЁ.com ╪АЧАdxvidДXp┴┼H only0mustALnot bPe usДcNical applut@sВqЗБWr2 └-ifДDthЬatАy└!┼РwiЛ╚perPm АTfрinten└(ГNJ0mayБ!freec└(АбlizD$@r own @sonА&+ so lo╞Ю┴zenti reАмts of%header rkоА!act!ЙQ"as-is"ВKno@Дcla[─@C,Ч@2 └Жibm@Ied,─A@mА<АЬiА reliability Уany pa rticu t└ask. A5П─+ЕRsol┴E3YFCri@@ DOpi ExliA; Sub╩|() Dim fType(0@) As I└$ger, fDat&aАЕadвГSSБбAcadSebАЁonSeр # ДE"Referen,ce, цТs┴Va╨rian LсЕаюS@Ш;г iБ @On Err /RИesuрЫNex ' ┼= бKDrEтУ.йs("ж"в"If! en ┐@Аs.Add.  .Clear├┴╞-= 0:ц,б▓└INSERTА▓▓#ф$ acIAl°l, !В д5Б ф 'р╝b aгEach┐Е!А<ч"Б╞ h2=E╛.├ч╩д i&╞БB═& " : в b┤iрLBound(─g ) T°o UХ#FyG `(i).T└AH M└,ебD i vрbCrLfс"д?сc╧бSS%>Eр█Sub eDwмм+F╢INSERTм+ 4╨╨   B@H╢'(  "■ У "!6'& ( "!╢ : '(  *■ &К &СТ ( *$&!8╢, '(  *■╚ ( :'(  "■╚ (A@< B@2o  ░р# Copyrightй2000-2005 ActiveDwg.com    а    з┤Attribute VB_Name = "Module1" ' ad_GeАtBlocksLThis routine demonstrates collec.g all bl in a d@rawingи оnd buildlist with the 7a#ir aщкs.@T'5Л$n displayedoMsgBox. For 'real' Аpurpose╟Б you c└an wriВ" (to file ?save it far p└rocessXBIАXasАvelopГ;AutoCАAD 2000ГDem$load: -vbarun; л.dvb! ;Аqsversion 1.0B02/1/-2ВCopyriPghtйБ -3 AА┐veDwgЁ.com ┘АШАeшvid└,fАGЗpAEI onlyAmustВ noАt be usДcАNical aиpplt@srУАЗXr 1ifДсDthatz└!EСDwiАЛperА#m UБfintenG└(├QJ0mayБ!free└(вlizD$@r own 1@sonА&+ spo loFЯA{e`ntireнts of%heaрder r@nАоА!act!ЙQ"asР-is"ВKno└Д╪claА─@C,ВЧ@2 @Zim@Ied,╗─A@mА<ЭiА reliability Бfany particu task. ~A5─+ЕRsЬol┴EYFCri@!@ Opi E xli; Sub }() Dim fType(0) As I└$ger, f0DataАЕad тГSSбAcadДSeвАonSeр # ДE"Refe`rence, &УsБ┴Varian vL!ЖаSАШ;г iБ On ErBr /Resu ЬNE ▄Sub i@@ DOpi ExliAv Subj|() Dim fType(0@) As I└$ger, fDat&aАЕadBГSSБбAcadSeАЁonSeр # ДE"Referen,ce, ЖТs┴Va╨rian LБЕаюSрЧ;г iБ @On Err /RИesuАЫNex ' ┼= бKDrEВУ.йs("ж"в"If! en ┐@Аs.Add.  .Clear├┴╞-= 0:ц,A▓└INSERT ▓б▒#ф$ acIAl°l, !В д5Б ф 'А╝b гEach┐Е!А<ч"Б╞ h2=E╛.а┬ч╩д i&╞Бт╠& " : в ┤iрLBound(─g ) T°o UХ#FyG `(i).T└AH M└,ебD i vрbCrLfс"д?с╧бSS%>EА█Sub rUААА Р!Iq    ∙4Щa┴                                                                                                                            Vc╢        <  h╕╩e╓▒vT∙┘uО!=╥Е─ а╞&g╕╩e╓▒vT∙            x·Р6    ЗXЕX  #Иg╕╩e╓▒vT∙