╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Root Entry            ■                                       Root Entry         пKкы┼@!VBA_Project     Ёд 8*┴ пKкы┼VBA_Project_Version(            VBA         Ёд 8*┴ пKкы┼        ¤   ■    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                               ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr■   tuvwxyz{|}~АacadID="{45166CEA-9608-11D5-B118-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3230A1A40CA80CA80CA80CA8" DPB="999B0A2F0B2F0B2F" GC="000293949494946B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=26, 164, 676, 690, Z Z ingModule1Module1PROJECTwm            Д>PROJECT    ЧThisDrawing    sModule1         =r _VBA_PROJECT            Э dir            f                        b▓А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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft EВ: А] ObБн Library/Ї;D1АДАtИАГБИА00}#0ВАF#А0РАrА 6801F522-953D-11D5-B118105A110B3C9P.└OP\VBE\ДG.EXD /Ас.E ПрЕ.`PМM ┤┴Щ┬ФD┬w~┬ЦThisDrawi ngGАThiА^Draw└ng* 2 А HB1бEB,B u~"B+BГВoduPle1GДВo@еu▌Bе1@ ┬К2ODц O{~!H┬\G{000204EF-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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 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~ThisDrawing1f44e5c966  ThisDrawing  u~E  Module11g44e5c966  Module1  {~ц       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ф╞o5<║FFйWx! 8zО    ╬ ╠╧╔·ЧHз═DR▓вjГ        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          ▀                                                                                                                                (<  <  <   <          Ш                                 Д Д        X0%`Д          erWW`Д               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.р' Developed for AutoCAD 2000 and above.р< Demand load: -vbarun;ad_SwapProfiles.dvb!ad_SwapProfiles;рр version 1.00°рр# Copyrightй2000-2006 ActiveDwg.com)44рр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.р═  PЦ]Є@]Є`]Єxэ !"!$. !&!(╢Profile1Ь°╢ Profile2.arg'u\╢Profile2' d  ╚╢ Profile1.arg'& ╢Profile1' k  Ш╔*Р  ╖ $!&B@,|  pг*h╢Profile Import Failed: 0!2A@.poro  0    @    И│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-6 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