аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__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џџџџџџџџŽ”пVЩVBA_Projectџџџџ DњЫYЋСŽ”пVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ DњЫYЋС0Єџ“пVЩўџџџ§џџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=ўџџџ?@ABCDEFGHIJKLMOўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{F0A3598B-16E4-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2123B2B2B6B2B6B2B6B2B6" DPB="4240D1F2F3F3F3F3F3" GC="6361F0D510D610D6EF" [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 Z Module1Module1PROJECTwmџџџџџџџџџџџџN>PROJECTџџџџšThisDrawingџџџџ>Module1 џџџџџџџџ5_VBA_PROJECTџџџџџџџџџџџџо dirџџџџџџџџџџџџp__SRP_4џџџџџџџџџџџџўџџџ__SRP_5џџџџџџџџџџџџўџџџ@lВ€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@4D0BB4 Dindows\system32\FM20.DLL#Microsoft ‚: €] Ob­ Librarаy/;D1€„€tˆ€ˆ€00}#0‚€#€0 €r€ 3CAB861-1C65-11D6-B11947612054F9PРOP\VBE\„G.EXD /€с.E р….`PŒM ДС™Т”DТ‡XТ–ThisDrawi ngG€Thi€^DrawРng* 2 € HB1ЁEB,B …X"B+Bƒ‚oduPle1G„‚o@ЅuнBЅ1@ ТŠ2OF“@НM‹X!HТ0204EF-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 2009 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<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‡XThisDrawing1C4abdd447џџThisDrawingџџ…XEџџModule11D4abdd447џџModule1џџ‹X“ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTњи{pњGЈяcЋ(jфџџџџH1Š$*AКЧушULьџџџџџџџџ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 drawingFiр> 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 for processing.џџр. It was developed for AutoCAD 2000 and above.џџџџр6 Demand load: -vbarun;ad_GetBlocks.dvb!ad_GetBlocks;џџџџрр version 1.00џџџџрр# CopyrightЉ2000-2009 ActiveDwg.comW<гWррC This routine is provided for demonstration purposes only and mustƒЄHƒрC not be used for critical applications without your verification}Ьѕ}р3 that this routine will perform as you intended.zœДzр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 f€"proАcessXBI€Xas€velop€;AutoCA@D 2000‚ aboveDem)load: -vbarun;A‰А.dvb! ;w‚xversio@n 1.00… CopyrightŠЉ6-9 A€ОveDwg.com и€—€dvid„XpСХH onlТy0mustALnot be u s„cNical  applt@Ns‚q‡Wr Р-i†f„Dthat€yР!Хwi‹perPm €TfintenР(ƒNJ0maya!freeР(€Ёl izD$@r ow3Р1РKon€&+ spo loЦžСze`ntire€Ќts of%heaрder rkЎ€!act!‰Q"as-is"‚Kno@„иclaФ@C,—@2 im@Ied,ЛФA@m€<€œi€ reliabilityBœany €particu task. A?5Ф+…RsoЮlСEYFCri@@  Opi Exli; SubЪ|() Dim fType(0) As IР$ger, fD˜ata€…adЂƒSSЁAcadSТeb€onSeр # „E"ReferАence, ц’sС@Varian LЛс… S@˜;Ѓ i On Err! /Resuр›Nežx  Х= ЁKDrт“.Љs("eІ"Ђ"If! en П@€s.A dd.  .Cle arСЦ-= 0:ц,ЁВINSERT€ВВф$ acIрAll, !‚ Є5? ф 'рМb aЃEaќch…!€<ч"Ц h2њ=E.УчЪЄ i&ЦBЭ& " :* Ђ bДiрLB`ound(Фg )р To U•#FƒyG (i).TРA5H Р,ЅЁD iџvbCrLfсџ"Єс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љџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ