аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№|дАџџџџ… ‡\ƒ\џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ&< џџ<џџџџџџџџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ#„ „џџџџџџџџX%`„џџџџџџџџџџ „ џџџџџџџџЈin a„"џџџџџџџџр 200Ш „$џџџџџџџџ%`„(џџџџџџџџ џџ`„*џџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ:€ € €  € F(€ *pRoot EntryџџџџџџџџpuяB[Ч€VBA_ProjectџџџџрѕОѕŒРpuяB[ЧVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ ШѕŒРpяB[Ч§џџџ ўџџџ ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCDEFGHIJKLMNPўџџџQўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{25244E2E-FB3D-11D4-B115-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="484AEDEBF1EBF1EBF1EBF1" DPB="D3D176FD00FE00FE00" GC="5E5CFB8A0D9E999F999F66" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=9, 42, 788, 802, Z 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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€F#€0Ѓ€…€ 2D109D16UA9-4A53-BF3E-6C88031990FEH.DOCUME~1\WALTERLOCALSTemp \VBE\DL.exdр3Р!€с.E р…. `ŒM Дž‚™ˆТ‡\‚›ThisDraw@ingG€Thi@cDrawРngT 2 €HB1ТЅE,B,B \*"B+BC‡od ule1GD‡oЊКuЊ1@ ‚2‰O Oƒ\!HТ~1\MICROS~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 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{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 Д  џџџџџџџџž э:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‡\ThisDrawing0T47590f10џџThisDrawingџџ\EџџModule10U47590f10џџModule1џџƒ\ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ•,aЩоєIОJ…ЮcЩуЏџџџџUoJЫvмNВњё*зІџџџџџџџџ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_FixBlocksрр@ This routine demonstrates the selective updating of particularр# 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-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.рЭџџ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-7 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аа  "