аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№|дАџџџџ… ‡\ƒ\џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ&< џџ<џџџџџџџџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ#„ „џџџџџџџџX%`„џџџџџџџџџџ „ џџџџџџџџЈin a„"џџџџџџџџр 200Ш „$џџџџџџџџ%`„(џџџџџџџџ џџ`„*џџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ:€ € €  € F(€ *pRoot EntryџџџџџџџџРnўоVЩ€VBA_ProjectџџџџрѕОѕŒРРnўоVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ ШѕŒРpЋўоVЩ§џџџ ўџџџ ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCDEFGHIJKLMNPўџџџQўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{25244E2E-FB3D-11D4-B115-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1D1FB864F800FC00FC00FC00FC" DPB="BDBF18C4186519651965" GC="5D5FF8A43845394539BA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=9, 42, 788, 802, Z gModule1Module1PROJECTwmџџџџџџџџџџџџO>PROJECTџџџџŸThisDrawingџџџџ@Module1 џџџџџџџџР_VBA_PROJECTџџџџџџџџџџџџ dirџџџџџџџџџџџџ‹џџџџџџџџџџџџўџџџ`џџџџџџџџџџџџўџџџgџџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџnџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџB‡В€0* pH‚dф ACADProject8@е = t  ž э:( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^€MSForms>BSFEr@ms3€DD452EE1-E08F-1 01A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#Mic€rosoft ‚:" €] Ob­ Library/њ;D1€„€tˆ€Aˆ€00}#0‚€#Ѓ€0Ѓ€…€ 2D109D16UA9-4A53-BF3E-6C88031990FEH.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exdр3Р!€с.E р….`PŒM Дž‚™DТ‡\‚›ThisDrawi ngG€Thi@cDrawРng* 2 € HB1ТЅEB,B \"B+BC‡oduPle1GD‡oЊuнЊ1@ ‚2OD Oƒ\!HТS~1\VBA\VBA6\VBE6.DLLVBA џџџџ Ь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{2D109D16-02A9-4A53-BF3E-6C88031990FE}#2.0#0#C:\DOCUME~1\WALTER~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџž э:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‡\ThisDrawing154abdd356џџThisDrawingџџ\EџџModule1164abdd356џџModule1џџƒ\ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ/†;F…Мj)AџџџџёžЅєтhw@‹kЄkЉЧУќџџџџџџџџH€ џЈ(AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_FixBlocks$†adSS$њAcadSelectionSetЫЩ adBlocktoFixьзfTypeifDatahC adDwgBlock?щAcadBlockReference˜­adBlockAttributesИqi`DeleteИx SelectionSetsгAddїracSelectionSetAll.Т GetAttributesСд TextString  ApplicationЅ*UpdateвќMsgBox—R AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $џџModule10H4093a6f9№ФдџџџџЫ?‡\\џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreThisDrawingThisDrawingModule1Module1€ 4 € <и€ €  € 8€ *@€ p€ Jx€ JШ€ :€ NX€ >Ј€ Pш€ P8€ .ˆ€ И€Р€ џџџџ"Ш€а€и€р€€€6  X€ (h&А иј  0@Xpˆ Иаш(0 8H Xx€ џџџџџџџџˆрр ad_FixBlocksHВbvрр@ This routine demonstrates the selective updating of particularavр# block attributes in a drawing.р. It was developed for AutoCAD 2000 and above.р6 Demand load: -vbarun;ad_FixBlocks.dvb!ad_FixBlocks;џџџџрр version 1.00џџџџрр# CopyrightЉ2000-2009 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.…рЭџџ8–]ђ@]ђ`]ЌЌђxЌЌђА…]ђш]ђ]ђ ЩрЖ Conn_Mark'р<-- Your block name goes here B@,р" Set adSS = objSelCol.Add("adSS")эЖadSS !.%0.ЌЌ+ FЖINSERTЌ+"ЌЌ+ F Ќ+" 2аа  " B@HЌ'*џ $ў “ $!4'(Ќ$(!6Ж4GœЖ4Ќ$((6ЖJ2x1Ќ$((6ЖC2x1Ќ$((6ЖL6x1Ќ$((6ЖL5x1Ќ$((6ЖL4x1Ќ$((6ЖL3x1Ќ$((6ЖL2x1Ќ$((6 *Ќ '*kџџаџЧШ B@, !8B@: *Ж blocks updated.A@<oџџ€џџџџxџџџџЅДAttribute VB_Name = "Module1" ' ad_Fi€xBlocksLThis routine demonstrates the selective updaFg of particularЌ bІ a„s in a drawing.%It wasbveloped for AutoCAD 2000 and@ above0Demload: -vbarun; У.dvb! ;€46version 1.00… Copyrig(htЉ6-9 AnDwg.com ‰€Žprovid„X‘/purpos–onlya`must$€‰  not b€œscri›al a`pplicЇЖ withП yoШur €[if „"0that€Хˆвwi@ll per mŽ Љ€€ЗtenР(#ƒNJ0may!frŒeeР(zlizD$ТownAson €&us}o longФA‚ent€ire contstŽhea`der rkР|i`ntact!‰Q"@as-is"‚Kno@„c@’BC, wKРH Р†im@Ield,Ф!@m€2…ЂiІу a‚c All, !Зb Ф4Ai!F@(АEachР†5IЃ/рDСВ3=h.GЬetч6#IfŒр(0).T@4уI€"4G" Theўnc№ PТ"С–$ 'Ф(1э J2xЁЪЁU‘ 2эCћ3эLЊ6њ 4ю5њ5юЊ4њ6ю3њ7юƒщСAi + 1Ѓ1ВE мIfaЧjScR 7is]A'Х.U!№тzMsgBo€x i & "Cяbsуѓed.`Sub Sub your own personal use so longр8 as the entire atablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit eclaration, 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.рЭџџ0–]ђ@]ђ`]ЌЌђxЌЌђА]ђш]ђ]ђ ЩиЖ Conn_Mark'р<-- Your block name goes here B@FЌЌ+ FЖINSERTЌ+"ЌЌ+ F Ќ+" 6аа  "