аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ Nx€ >Ш€ P€ PX€ .Ј€ и€р"ш€№€ј+3(@€ џџџџЈ€ $X€ Rа€џџџџ0рр ad_UnloadVBAHВbvрр7 This routine demonstrates how to unload a macro afteravр7 it executes. The functional part of this routine isр the last code line.р' Developed for AutoCAD 2000 and above.р6 Demand load: -vbarun;ad_UnloadVBA.dvb!ad_UnloadVBA;џџџџрр 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.LрG This routine may be freely utilized for your own personal use so longzр8 as the entire contents of this header remain intact.zрJ ThiRoot Entryџџџџџџџџ ЬфVЩР.VBA_Projectџџџџ`рфђ7ѓП ЬфVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ`рфђ7ѓП 8z_уVЩ§џџџ ўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ  !И#$%&'()*+,ўџџџ./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWўџџџYўџџџ[\]^_`Йbcdefghijklmnopqrstuwўџџџxyz{|}~€acID="{752D018A-5EF1-11D4-B112-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="E9EB7A7A7E7A7E7A7E7A7E" DPB="D4D64782D96CDA6CDA6C" GC="BFBD2CBBFC4DE64EE64E19" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=132, 132, 807, 675, Z Z Z le1Module1PROJECTwmџџџџџџџџџџџџv>PROJECTџџџџ ThisDrawing џџџџІšModule1 џџџџџџџџa_VBA_PROJECTџџџџџџџџџџџџ-Ј dirџџџџџџџџџџџџ"“__SRP_4 џџџџ __SRP_5џџџџџџџџџџџџžB__SRP_2 џџџџZФ__SRP_3џџџџџџџџџџџџXg__SRP_0 џџџџ __SRP_1џџџџџџџџџџџџnrU€€€€~} џџџџџџџџџџџџ   йpole f%\*\“K*mџџџџrU€€€€~~~~~~~~~e Щ/сQѕnёѕHŠaFyжНƒƒ  фџџџџƒŠa iџџџџџџщA Yџџџџ€џџџџ1џџ Сй щ ACADProject ThisDrawingModule1яРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA !џџџџ IБ0aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD џџџџAС@0РFC:\WINDOWS\SYSTEM\stdole2.tlbstdoleй‰џџџџ 1GKЪdFИК*VtS1У 1џџџџYЁPс.E р….`ŒM ДC:\Windows\system32\FM20.DLLMSForms aa‰б`нœ#D +|O‚# YЦуР 2C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd Aaiбp ad_UnloadVBA YjЖє AЖ—ˆk,_aПgбЎ“FyжwНХA•ЛЋzОyL€$ыjђq#щ<4g€ЊНLЛ.[БжЦШKЇLIŽц#s\Ы AcadDocument @|Cћ.ФOˆюњPўqGЕG`ZшUkEЅбд,]Щ –™ЊЗ(љРGL™^Šr–Ё ad_UnloadVBA.dvbйШ _vbaunloadВ€0* pH‚dф ACADProject8@е = t  xј|9( 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‚€#G€k0Ѓ…РA44239CDD-2B09-4F7C-8223-2059C6`02E3C@ЦXUsers\walter\AppData\Local\Temp\VBE\„T.exd <Р!€с.E р….`Œ(M ДСІТЁ"ТвсТЃThisDrawingG€Thi€kDrawРng 2 €HB1Ўк‹B,B дс"B +BƒodulЈe1G„o@ВuBВn1@ Т—2OЃЃмMжс!HТџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ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{44239CDD-2B09-4F7C-8223-2059C602E3C0}#2.0#0#C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџxј|9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвсThisDrawing2n4abddac9џџThisDrawingџџдскџџModule12m4abddac9џџModule1џџжсџџџџЃ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№byЫаЂ,O‹x‹Еi4д7џџџџeњK+РЋ3IšМ|їM˜дiџџџџџџџџH€џd' AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй Module1b Ќ(ad_UnloadVBAџLPrefs€йAcadPreferencesі MenuDisplay‡! ApplicationЅ* preferences–DisplayDisplayScreenMenuЊB UnloadDVBшЃ AcadDocumentZ €џSendCommandcњvbCr$џџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $€ р3 that this rU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrsonal use so longzрrU€€€€~|  Ј y‰БaЙс yЙЬ+lџpџ$ tpџ hllџ=xџ)pџlџ3jџlџpџ$ hpџ $lџ Tkjџpvџ)pџlџkvџУpџxџ $pџ PpџkvџУpџxџ $pџ Ppџ.  *#dџ*#`џ *#\џ$ h2dџ`џ\џ Ь(‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œЅŸўџџџЁЂЃЄўџџџўџџџЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗКўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџ dџ`џ\џpџlџk№„д(џџџџ} всжсџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџ6 џџџџš"џџџџLџџџџLџџџџPџџџџ”џџџџLџџџџLџџџџџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџџџџџа џџџџ`џџџџџџџџџџџџ\џHџџџџџџџџџџ „ „џџџџxџџџX%`„џџџџvџџџ џџџџџџƒџџџџџџЈџџџџџџџџџџџџџџ%џџџџHџџџџ џџџџ8џџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџxxј|9$*\Rffff*2m4abddac9*\R1*#19f$*\Rffff*2n4abddac9*\R1*#17d*\R1*#17f*\R1*#180*\R1*#199*\R1*#180*\R1*#182*\R0*#eпўЪ#€ € €  € >(€ >h€ Ј€ .Ш€ <ј€ 8€ @€ XThisDrawingThisDrawingModule1Module1€ *`€ € J˜€ Jш€ :8s 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.{рЭџџ–]ђ@]ђ`э ! !".s the "!$!&'  !$(&  !$(&рYou can also use 'SendCommand'oџџџџџџџџџџџџџџшџџџџЖad_UnloadVBA.dvbA@(_Unloaџџџџ(рK ThisDrawing.SendCommand "_vbaunload" & vbCr & "ad_UnloadVBA.dvb" & vbCrџџџџџџџџsГAttribute VB_Name = "Module1" ' ad_Un€loadVBALThis routine demonstrates how to ub a macro afterš it execъs. The functional pa€rt of t _is9t,last code l{.Developed for AutoCAD 2000 an€d above)mЭ: -v@barun;‰p.аdvb! ;1‚2vers€R 1.00… Copyr ightЉ6-9 AfveDwрg.com ˜€Рprovid„X /purposЅonly`mus t$ not be uscritic€œapplЃs withЮ your €[if „"tha"t‹Бwil@_er!Pm asA ipntenР(ƒNJ0m„ay!freeР(1€lizD$Тow8n pРKu+ sРo longФСrentire@s ts~header remaibn!act!‰Q"@as-is"‚Knbo€ЄclaЄРS,, wРH@2 Р†imБ@Ied,Ф!@m€ <РЌi€ reli€ability“ˆanyЅicu task. A?5Њ…УsoЮlСEYFCri@@  Opi ExElivSub й() СzDim €Prefs A€caderen ce@ФEMenu`Displ€dР BoРanCSetD=@кisDra@wing.A‹.Np Š = Ш.гФ хScР?nСЃ зb—`‹N W(ш уЃ“DVB "-y˜You c`an al€PС6'bSРZComACœ cЊ#Ш "_`„ƒ™"rU€€€ џџџџџџџџ@nrU€€€ ˜ЁЩёџџџџy4aAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\`€ & vbCrРя d End : двсдсџџ#ˆЖџџDфr€двсдсџџ#ˆЖџџџџџџџџ<џџaПgбЎ“FyжwНХA•ЛЋzОyL€$ыjђq#щ<4g€ЊНLЛ.[Бжџџџџџџџџџџџџxщ<4g€ЊНLЛ.[БжaПgбЎ“FyжwНХAџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ0ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@ŒŒџџџџџџџџџџџџџџџџџџџџџџ8xј|9$*\Rffff*2n4abddac9пџџџџ4ўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempl  fa€teDeriv’BustomizD2