аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_0џџџџџџџџџџџџўџџџE џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№€дtџџџџˆД vzKzџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ$<џџ<џџ<џџџџџџš0{C280DD2B-8782-400Root EntryџџџџџџџџаƒgKЊыХ<VBA_ProjectџџџџРСЄкПаƒgKЊыХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ €щ­кПрW`KЊыХўџџџџџџџ§џџџ 6 !"#$%3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ45ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџ~ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCўџџџEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}ўџџџ€acadID="{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="A7A5DF8FE3B371B771B771B771B7" DPB="393B41B242B242B2" GC="CBC9B3D344D444D4BB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0,UserForm1џџџџ`ВОкП`ВОкПPROJECTwmџџџџџџџџџџџџ \PROJECTџџџџfџџџџџџџџџџџџэŽ C UserForm1=59, 31, 771, 643, Z, 236, 88, 691, 481, C 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-02608C4D0BB4Dsystem32\FM20.DLL#Micro џџџџхpCompObjџџџџ џџџџуaVBFrameџџџџџџџџџџџџо5ThisDrawingџџџџџџџџЏхModule2џџџџџџџџ…| UserForm1 џџџџDа_VBA_PROJECTџџџџџџџџџџџџ_ dirџџџџџџџџџџџџ š__SRP_3џџџџџџџџџџџџўџџџž__SRP_2џџџџџџџџџџџџўџџџђ_VBA_PROJECTџџџџџџџџџџџџўџџџdirџџџџџџџџџџџџўџџџ[__SRP_6џџџџџџџџџџџџўџџџ__SRP_1џџџџџџџџџџџџўџџџrModule2џџџџџџџџџџџџўџџџ7 __SRP_7џџџџџџџџџџџџўџџџ@osoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€F#€0€r€ 89CD4EAB-50C5-11D4-B112105A110B3C9P.РOP\VBE\„G.exd /€с.E р….`PŒM ДС™Т”DТvzТ–ThisDrawi ngG€Thi€^DrawРng* 2 € HB1Ё%B,B tz"B+Bƒ‚oduPle2G„‚o@ЅuнBЅ2@ ТŠ2OFЩ@ MОс!J !@Userƒ1Gl@?e@?…Ё1лРŠ 2” O –€яM JKФ=(@ Ѓ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{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{89CD4EAB-50C5-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџVН9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџvzThisDrawing1k44e5c97aџџThisDrawingџџtz%џџModule21l44e5c97aџџModule2џџОсЩџџUserForm11m44e5c97aџџUserForm1џџKz0– џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(ЄЧ@{ыDž‚a2ЪџЗ9џџџџљБAЙмаКLЃГ2?ГИЯџџџџџшэ КщbKЖ4R‹Y€ џџџџџџџџ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{D391600D-6A9C-458B-BBA8-8136F76EF20E}{76C17459-3F5A-402C-BC32-11B8D7D2BDA1}џџџџ€ xџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”`„ џџџџџџџџџџ „"џџџџџџџџpџ% ,Иџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” .џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” „0џџџџџџџџerLi%€ўџHџџ@џџџџџџџџџџ%ўџџџџџџџџџpџџHџџџџџџџџ %џџџџ€џџџџџџџџџџџџџџџџџџИџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ+€ € €  € H(€ Bp€ .И€ <ш€ (€ 0€ H€ *P€ €€ Jˆ€ Jи€ :(€ Nh€ >И€ Pј€ PH€ .˜€ Ш€а"и€р€ш€ џџџџ №  (8€ џџџџ"@ HX€ џџџџ"`€hpˆ Ј€ џџџџџџџџИрр ad_LayerListррB This routine populates a combobox with the layers in the currentр; drawing and makes the selected layer the current layer..р' Developed for AutoCAD 2000 and above..dр6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList; рр version 1.00# рр# CopyrightЉ2000-2006 ActiveDwg.comovidedррC This routine is provided for demonstration purposes only and mustџџџџџџрC not be used for critical applications without your verificationTџџр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' ayouэ  %(." џџA@r Creat " (*s)'oџџЈ–x џџA@r'"oџџˆ–И]ђјџ 0ў !(“o an e 0! &B@2 C:\PџЧ@oџџ8џџџџHџџџџ6ДAttribute VB_Name = "UserForm1" " €Bas€0{D391600D-6A9C-458B-BBA8-8136F76EF20E}{76C17459-3F5A-402C-BC32-11B8D7D2BDA1} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹D' ' ad_LayerList‚ This routine popu1s a combobox with the ls in‚curren# drawing and makes‚seleМct€U &.A€Developfor AutoCAD 2000A‚aboveE mload: -vbarun;A‰5.dvb! ;€Bversio@n 1.00ХCopyright ЉA-6 AcТt€WDwg.@@ JILprovidD,demonstˆratСpurAqРs onlyУC€dInot be uAy;critical app6lAsB\@d your Р-if„aDthatSnw€ill perР0m asAРiteŽnР(ƒNJ0may!0freeР(Р~liFz3ТownAs on€&+ so №longФСƒ@ЈireŠnt<f%header remaРŠin0tact!‰Q"a s-is"‚KnoЦ eт), w`$ `CModule2Module2џџџџџџџџџџџџџџџџ$i `ied,ф m@ to i@reliab@ility с+aРny par`,рZr task. іA€‚ƒ„ўџџџ†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎўџџџАБВГДЕЖЗИЙКЛМНОўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпрстўџџџфўџџџцўџџџџџџџџџџџџџџџџџџџџџџџџџџџюяўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџoу„ e`€ 8solс"€,І!riУ   OpТ<`u56iр_PРqРr Sub CfBox1_C k()  С>Dim Pi ckStyрƒAs S€œС)…NewfAcadTex^tуЃ'= .CAуSet  =: !>DУr‚т s(“ІdUnСi M€‘?ЁЉCaf€–Х †E}  AtButtonЊ Gш tЅМ_In baЧaR (РMry €'$€У Each ƒx€ PИ€ P€ .X€ ˆ€"˜  Аџџџџшрр ad_TextStyleListрр> This routine simply populates a combobox with the TextstylesUпр' Developed for AutoCAD 2000 and above.р> Demand load: -vbarun;ad_TextStyleList.dvb!ad_TextStyleList;рр version 1.00џџџџрр# CopyrightЉ2000-2006 ActiveDwg.comџџџџџџррC This routine is provided for demonstration purposes only and mustџџџџџџрC not be used for critical applications without your verificationovidedр3 that this routine will perform as you intended.not beрG This routine may be freely utilized for your own personal use so long tр8 as the entire contents of this header remain intact.ouр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.d,рЭџџ8– B@elpoџџр in the current drawing.џџџџџџџџЏВ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Љ:-6 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Ж"џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ