╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Root Entry            ■                                       Root Entry        фu╬тV╔@!VBA_Project     Ёд 8*┴фu╬тV╔VBA_Project_Version(            VBA         Ёд 8*┴pДt╬тV╔        ¤   ■    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                               ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr■   tuvwxyz{|}~АacID="{45166CEA-9608-11D5-B118-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C6C4550EF73E5442544254425442" DPB="1F1D8CE9BC1B141C141C14" GC="787AEB0CEC0CECF3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=26, 164, 676, 690, Z Module1Module1PROJECTwm            Д>PROJECT    бThisDrawing    sModule1         =r _VBA_PROJECT            Э dir            n                        j▓А0*Р pHВdф ACADProject8@╒ = t  БKВ;( 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РАrА 6801F522-953D-11D5-B118105A11B3C9РP└OP\VBE\ДG.EXD /Ас.E ПрЕ.`М(M ┤┴Щ┬Ф"┬w~┬ЦThisDrawingGАThiА^Draw└ng 2 АHB1бEЛB,B u~"B +BГВodulиe1GДВo@еuBеn1@ ┬К2Oцв O{~!H┬00204EF-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{6801F522-953D-11D5-B118-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          БKВ;                                                            w~ThisDrawing2Q4abdd9c4  ThisDrawing  u~E  Module12R4abdd9c4  Module1  {~ц       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        E8R(єBLМM▒NQО╔@    щA┼а?ёpHЖ)┘Fё▓ v        HА ╪'AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1bad_SwapProfilesEfadPrefsйЪAcadPreferencesЎ adLoadFileа adProfileNameЄ Applicationе* PreferencesЦProfiles# ActiveProfile)uNoFileцА ImportProfileЁMsgBoxЧRErroК Description╛  AcadDocumentZ  T                                                         $ w~{~  ╢  Ё╘╘░    ▄р w~{~  ╢                        x  ME          ▀                                                                                                                                (<  <  <   <          Ш                                 Д Д        X%`Д          рJav`Д           D 20    h                                                                                            ▀■╩*А А А  А D(А .pА BаА шА ЁА А *А @А JHА JША :шА N(А >xА P╕А PА .XА ИА     АРА     "БШАаАиА░Б╕Б╨БЁБББ Б8БHБPБXБpАxБ*АБ░А         └рр ad_SwapProfilesрр= This routine demonstrates a method to swap active profiles.xJavр' Developed for AutoCAD 2000 and above.р< Demand load: -vbarun;ad_SwapProfiles.dvb!ad_SwapProfiles;рр 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.Ир═  hЦ]Є@]Є`]Єxэ !"!$.yд╕y !&!(╢Profile1Ь$║y╢ Profile2.arg'°╢Profile2' d  р╢ Profile1.arg'was ╢Profile1' k  ░╔*и  ╖ $!&B@,|  Иг*А╢Profile Import Failed: 0!2A@.x    o  H    @    И│Attribute VB_Name = "Module1" ' ad_SwapProfilesXThis routine demonstrates a method to sr actiPve pВ.мDeveloped for AutoCAD 2000 and ab(ove)mload: -vb arun; Ц.d(vb! ;лversion 1.00CopyrаightйБ9-9 ATDwg.xcom tАycvidД[|Б/purposБonlyбcmust$ not be uscriticАal applBtА s wiЭuАt your А[ if Д"that tЙ╜will perгm asББ intenАQ#аК`mayCfrМeeАQАolizD$┬ownAsonА&+ so lo ng─the entire cВots of%header rрemainБ!└~!ЙQ"as-is"ЙВKnoАТclaТ▒@C, w└H@2 @И─im@Ied,─!@.mА<АЩiА reliabilityВФany pa r└Xu tasЁk. A5─+уЕ▒sol┴EYFC ri@@ DOpБi ExБliAАv Sub═╚(А) Di└cdPrefs A Аcaerenмce└╤EL╢FА╓¤ Sф┴ZGB▌┬ц└1ЗSet@= AxDrawing4.AЗУ.┴╚Ifў┼ @Гє.c^д{сDф1"а enaАЖГ Д$2.arg└ДБ[A'hтElse 1 тС E ГIfA On ErrрBGoTo