╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   __SRP_0            ■   E                                     ЁА╘t    И┤ vzKz  И╢                        x  ME          ▀                                                                                                                                PSP    S    S    S    <  $<  <  <      Ъ0{C280DD2B-8782-400Root Entry        р<я уV╔<VBA_Project    └┴д┌┐р<я уV╔VBA_Project_Version(            VBA         Ащн┌┐@╢э уV╔■       ¤    6 !"#$%3                                                    45■   ■                                                                                                                                                                                                                                                                                                       ■    ■   ~ ■    !"#$%&'()*+,-./0123456789:;<=>?@ABC■   EFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}■   АacID="{6705909B-45B2-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Module2 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="AAA8D29B899F899F899F899F" DPB="65671D64631E641E641E" GC="2022589B599B5964" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, CUserForm1    `▓╛┌┐`▓╛┌┐PROJECTwm             \PROJECT    f            эО UserForm1=59, 31, 771, 643, , 236, 88, 691, 481, Z Module2=106, 144, 781, 687, awingUserForm1UserForm1ThisDrawingThisDrawingUserForm1UserForm1Ю▓А0*Р pHВdф ACADProject8@╒ = t  V╜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.Do     хpCompObj         уaVBFrame            ▐5ThisDrawing        пхModule2        Е| UserForm1     D╬_VBA_PROJECT            _ dir             в__SRP_3            ■   Ю__SRP_2            ■   Є_VBA_PROJECT            ■   dir            ■   [__SRP_6            ■   __SRP_1            ■   rModule2            ■   7 __SRP_7            ■   @LL#MicАrosoft В:" А] ObБн Library/·;D1АДАtИАБAИА00}#0ВА#гА0РАrА 89CD4EAB-50C5-11D4-B112105A11B3C9РP└OP\VBE\ДG.exd /Ас.E ПрЕ.`М(M ┤┴Щ┬Ф"┬vz┬ЦThisDrawingGАThiА^Draw└ng 2 АHB1б%ЛB,B tz"B +BГВodulиe2GДВo@еuBеn2@ ┬К2O╔г@ M╛с!J @UserГ1G╢Б@?e@?Еб1└mК 2Ф O ЦАяM Kе─=(@ гb ╠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{89CD4EAB-50C5-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          V╜9                                                          vzThisDrawing2Z4abdda1e  ThisDrawing  tz%  Module22[4abdda1e  Module2  ╛с╔  UserForm12]4abdda1e  UserForm1  Kz0Ц       P                                                                                                                                                                                                                                                                0                                                                                                                                                                                                                                                    СJY╨V KБ(ZTо╪К    р▒2ЄП┤EТфl-┘7UZ    ДЙки4D┐ БЧїЖ        0А H(AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module2cad_TextStyleList`  UserForm1)╓ShowїComboBox1_ClickО PickStyleщ┬NewStyleГд AcadTextStyle╔0 ComboBox1'╪ TextStylesЁ▐ActiveTextStyleл CommandButton1_Clickф┴UserForm_Initialize5centryй╧AddItemЗ  AcadDocumentZUserFormNCommandButton1|╘  `                                                                 6vz╛с  ╢  ЁА╘t    ИР vzKz  И╢                        x  ME          ▀                                                                                                                                PSP    S    S    S    <  $<  <  <      Ъ0{A9345C2F-F31E-41F4-B11E-1455E59DE86B}{0DBCB3BF-6EC2-4186-8762-1A810D3778EA}    А x                             Ф`Д           ha Д"        pTO% ,╕                            Ф .                                Ф Д0        erLi%А■ H  @          %Б■         p  H         %    А                  ╕        H                                                          ▀■╩+А А А  А H(А BpА .╕А <шА (А 0А HА *PА АА JИА J╪А :(А NhА >╕А P°А PHА .ША ╚А╨"Б╪АрАшА     Б ЁББ Б (Б8А     "Б@Б HБXА     "Б`АhБpБИБаБиА         ╕рр ad_LayerListenррB This routine populates a combobox with the layers in the currentр; drawing and makes the selected layer the current layer.CAD 20р' Developed for AutoCAD 2000 and above.р6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;ion рр version 1.00righрр# Copyrightй2000-2009 ActiveDwg.comis rouррC This routine is provided for demonstration purposes only and must      рC not be used for critical applications without your verificationis rouр3 that this routine will perform as you intended.ongИрG This routine may be freely utilized for your own personal use so longouр8 as the entire contents of this header remain intact.d,р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.р═  (Ц]Є@]ЄX &!d' э  %(."ь╘З   A@rЗм╒З " (*!o  └Цx   A@rs) to o  аЦ╕]Є°  0■ !(Уe(s)' 0! &B@20$, ╟Xo  P    H    4┤Attribute VB_Name = "UserForm1" " АBasА0{A9345C2F-F31E-41 F4-B11455E59DE86B}{0DBCB3BF-6EC2J86-8762-1A810DА3778EA} d@GlobalЛSpacoFalse КCreatablPredeHclaId╘Tru BExpose0TemplateDerivЦCustomizЛD' ' ad_Layer0ListВ This routiАne popu1s a combobox witАh the lБs inВcur(renБ# drawing anАd makesВ└selectАU &.ADevelopfor AutoCAD 2000ВaboveE mload: -vbarun;Й5.dv4b! ;АBversion 1.00┼CopyrаightйA- 9 ActАWDwDim PickSt┬yрГAs SАЬ┴)ЕNewfAcaрdTextуг5'= .AуSeдt  = !>D├r3Вт s(жdUn∙┴i MАСбйCafcАЦ┼ E}   AtButxtonк ш tе╝_tInаbaaR (└Mry А'$А├ Ea╚ch ГIn┤%с&5.AddIt┤emC.┴╝гN`0ъъ                                MЁ\╘И    c├vz╛с  ╢                        x  ME          ▀                                                                                                                                          H                                 Д    8                                                                                            ▀■╩А А А  А D(А "pА .ША D╚А А А 0А *8А hА JpА J└А :А NPА >аА PрА P0А .АА ░А╕"Б└Б ╚Б╪    шрр ad_TextStyleListрр> This routine simply populates a combobox with the TextstylesxJavр in the current drawing.р' Developed for AutoCAD 2000 and above.р> Demand load: -vbarun;ad_TextStyleList.dvb!ad_TextStyleList;    рр 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 longxр8 as the entire contents of this header remain intact.xр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.Зр═  @Ц B@З щЗo           п▓Attribute VB_Name = "Module2" ' ad_TextStyleList\This routine simply populates a combobox wit@h the МsЕМs░ incurrent drawing.Developed for AutoCAD 2000 and аabove)mload: -Аvbarun; ╢а.dvb! ;5В6version 1.00Е CopyrightйБ:-9 ActАiveDwg.oКДКprovidД\demonstratБ/pur╚posАПonЧ[muй not@ be uscritical ░applБ sзБА║ your А[if GБ"thatл╬will perдm asуБ╜tenАQГPJ0mayБ!freec└(└wlizD$┬o─wnAsonА&+ so longП─{tire@БВnts of%header remaАinta ct!ЙQ"as-is"┬}no decla├S, w└H └ИБаied6,─!@mАp 1x t  $(x p t T l¤Ьx "$ x  $ x ┤h$t "$ 4Qt [p x ■Иl d1'H h x  x>h FX t ! Рt  ╨t 6X H  x ■Лl &4h0p l x h t X H 8<4Ktyleл  А TextStylesЁ▐ad_TextStyleList`   `■       `              ed\v $Ва    ■   Р  ■           ╕\ $Г■       └              2%e├ $    0Г■       °                   $Ва    ■   (  ■                $Г■       X                   $    8    1-8B55-FE29D7995AA5}{AB3096C3-C332-482C-AF85-55CB98711B67}    А x                             Ф`Д                Д"        p    % ,╕                            Ф .                                Ф Д0        erLi%А■ H  @          %Б■         p  H         %    А                  ╕        H                                                          ▀■╩,А А А  А H(А BpА ,╕А <шА (А 0А HА `А *ША hА JpА J└А :А NPА >аА PрА P0А .АА ░А╕"Б└А╚А╨А     Б ╪БшБ Б Б А     "Б(Б 0Б@А     "БHАPБXБpБИБРА         ╨рр ad_LayerListForFррB This routine populates a combobox with the layers in the currentр; drawing and makes the selected layer the current layer..р% It was developed in AutoCAD 2000.st.dр6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList; рр version 1.00 р 9/11/2000iveDwgррр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.`р═  Ц]Є@]ЄX &!d' Plotэ  %(."╢   A@rs) to " (*ho  ░Цx   A@re(s)'o  РЦ╕]Є°  0■ !(УЬg.co 0! &B@2erName ╟Ho  @р# Copyrightй2000-2005 ActiveDwg.com!(    0    F┤Attribute VB_Name = "UserForm1" " АBasА0{C280DD2B-8782-4001-8B55-FE29D7995AA5}{AB3096C3-C33J82C-AF85-55CB98711B67} dGlobal!ЛSpacoFalse КCreatablPre declaId╘Tru BExpose0TemplateDerivЦCustomizЛD' ' ad_Lay└erListВ This routine popu1s a combobox with the BlБs inВcаurrenБ# drawing and makesВselect/АU &.A It was d└evelop└ └AutoCAD 2000├ DemБload: -vbarun;A 5.dvb! ;┬versio@n 1.009p/11/┴@Copyright йA-3 Ac┬tАZDwg.@C JLOprovid-forА0mon stratApurAts only├FАgВ not` be uA|Бcritical ░applAsB_Б@g your @1 ifДDthatVqwill pфer└m @U@└l8ten└(RJ0ma┬yБ!free└(└Бliz3┬own1AsonА&+ s└o long─г┴Ж@ВireНn tDCtВт s(УжdUnБk MУ?бйCafШ┼ ЖEА~  БvButtonк Gш t%╛_Inаba╟aR (└Mry А'$Б┼ Each ГрА P А PpА .└А ЁА°"Б`АHАиА     Б ШБ.ШБ `Б XБhА     "БpБ АБxА     "БАБ$Б10Б HБPА         0ПшZъ°о'$ў Ў !xМ ! (B@8ў┐(l       ПРl  PПАl   A@t  ╚    └ (!f'n(Zъp    и╪╪ ad_LayerListьЇ%e╪╪B This routine populates a combobox with the layers in the current╪% It was developed in AutoCAD 2000.n Au p (vf%e╪╪ version 1.00LЎ%e╪ 9/11/2000╪╪╪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.╪┼  X╪; drawing and makes the selected layer the current layer.  Zъ     ╪       A@tMsgBox╪ MsgBox PickLayer          xх n %x.p    Ё╪6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;>    ╕╪                                0@tt                      0ME          ■╩        xн░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |CreatablAЖFalse ╝PАredeclaDIdКTru "E xposeTemplateDeriv$eCus`tomizVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "ActiveDwg Current TextStyle" ClientHeight = 1260 ClientLeft = 45 ClientTop = 330 ClientWidth = 2955 StartUpPosition = 1 'CenterOwner TypeInfoVer = 2 End ■      Microsoft Forms 2.0 FormEmbedded ObjectЇ9▓qAАHА,{5АеTahomaо(АCancelоqOuАеTahomaоrUААА         @prUААА ╪i С ╣     A 4с ┴                                                                                                                             Vc  }\п`В(х А8ComboBox1╕│╘╘,хА8CommandButton1╢Э"