аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№@дtџџџџH` <еџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ$<џџ<џџ<џџџџџџš0{6FEC6AEC-3EBF-4892-AD05-7F9CC03617F9}{A8269808-CD9A-48BB-B4AE-5CE7139D6150}џџџџ@ xџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”`„ џџџџџџџџџџ „"џџџџџџџџp% 0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” „2џџџџџџџџа the%€ўџџџџџиџџџџџџџџ%ўџџџџџџџџџ0џџџџџџџџџџ %џџџџРџџџџџџџџџџиџџџџџџџџxџџџџџџџџџџџџџџRoot EntryџџџџџџџџРlцB[Ч€;VBA_Projectџџџџ mWn’ОРРlцB[ЧVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ mWn’ОРРlцB[Ч§џџџ $ўџџџ !".ўџџџ#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ/ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџj ўџџџ !"#$%&'()*+,-./0123456789:;<=>?ўџџџABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghimkўџџџЁnopqrstuvwxyz{|}~€acID="{CD8D1569-2A60-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9B9906033F073F073F073F07" DPB="D0D24D6E4E6E4E6E" GC="05079891F8C7F9C7F938" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, CPROJECTwmџџџџџџџџџџџџl\PROJECTџџџџThisDrawingџџџџ џџџџАModule1 џџџџџџџџ‚ UserForm1џџџџ@О_VBA_PROJECTџџџџџџџџџџџџ0 dirџџџџџџџџџџџџ__SRP_3џџџџџџџџџџџџўџџџe™В€0* pH‚dф ACADProject8@е = t  b†;( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4Dsystem32\FM20.DLL#Micro soft ‚: €] Ob­ Lib€rary/;D~1€„€tˆ€ˆ€0а0}#0‚€#€h0€r€ DA95569E-9860-11D@5-B118105A11B3C9P.РOP\VBEТ\„G.EXD /€с.E р….`ŒM ŠДС™Т”Т<Т–ThisDrawingG€Thi€^DrawAРng 2E €HB1СЁEBЂ,B <"B+Bƒ‚odule1ЊG„‚o@ЅuBЅ1@ ›ТŠ2O)O(ш€ P(€ Px€ .Ш€ ј€ џџџџ€€ џџџџ"€€€ џџџџ 0 P `p€ џџџџ"x€€ˆ˜АИ€ џџџџ€ џџџџџџџџШрр ad_ActiveDwgрр: This routine demonstrates populating a combobox with theр; names of the active drawings and changing between themр$ by selecting from the dropdown.р. It was developed for AutoCAD 2000 and above.џџџџр6 Demand load: -vbarun;ad_ActiveDwg.dvb!ad_ActiveDwg;џџџџрр version 1.00џџџџрр# CopyrightЉ2001-2007 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 y Module1=22, 22, 803, 760, Z UserForm1=0, 0, 463, 526, , 220, 220, 776, 746, , rawingModule1Module1UserThisDrawingThisDrawingModule1Module1Userour own risk.рЭџџј–]ђ@]ђX &!d' der э  !(!*%,." rou "B@.ovided џџA@rnd no oџџˆ–x]ђИџ 2ў *“ 2! &B@4s reliџЧHoџџ@џџџџ8џџџџTДAttribute VB_Name = "UserForm1" " €Bas€0{6FEC6AEC-3EBF-4892-AD05-7F9CC0361}{A8269808-CD9AJBB-B4AE-5CE713€9D6150} d@Global‹SpacoFalse ŠCreatablPredeHclaIdдTru BExpose0TemplateDeriv–Customiz‹D' ' @ad_ActD wg‚ This routine demonstr€2s popu€7ing a combobox €with th]!( nбs $of a‚. draws an€d chang"€betweenm=€by se le€2from#dropdown.‚ It wa‚sР&velop>for AutoCAD 2000A‚above Demload: -vbarun; ?.dvUserForm1џџџџџџџџџџџџўџџџ*__SRP_1џџџџџџџџџџџџўџџџіUserForm1џџџџ€RQ"Ї,С€RQ"Ї,Сfџџџџџџџџџџџџь^ўџџџƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЂўџџџЃЄЅІЇЈЉЊЋЌ­ЎЏўџџџБВГДЕЖЗИЙКЛМНОПРўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџхцчшўџџџъўџџџўџџџэўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџb! ;@version 1.00ХCopyrigHhtЉ@1-7z ЦQ.@F ЪR€UpрrovidD,ЧVСpurСz@Nnly0mnE noРt be uС‚;critical  applt@sBbРm your2 Р-if„Dth at€Sˆwwill perРm €T@ intenР(#ƒNJ0may!frŒeeР(@ˆliz3ЧТ@hAson€&+€ so lon–A1Р‰ entiьret<Š%header rљkin!! Ц(€"as-is"Т%,no BСiaЁ!, Vw`$  `Ciрdiиed,ф m@ to i@reliability с+any par`,^r taspk. A€B[iŽs„ %e€ solс"3€,І!ri   а Op `z@64itAPw@k Sub CjBox1_Cрk() Diр2dPick t As >S€Ё*EЦNAc€adDocum@,+ a†=' .Texр SetS`€g= с=DЃu. A‡K.Х s.It˜em(Ц ЂadFN."`UnAn zM`ƒE хИ_єIn ZaсI „ь‚ П Each`Б!In ЦС (иAdd#.AЖ!Nтh џџ№\дˆџџџџc#<<џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€ € €  € @(€ Bh€ *А€ 4р€ <€ X€ `€ x€ *€€ А€ JИ€ J€ :X€ N˜€ >ш€ P(€ Px€ .Ш€ ј€ џџџџ€"  џџџџ0рр ad_ActiveDwgeрр: This routine demonstrates populating a combobox with theр; names of the active drawings and changing between themр$ by selecting from the dropdown.р. It was developed for AutoCAD 2000 and above.џџџџр6 Demand load: -vbarun;ad_ActiveDwg.dvb!ad_ActiveDwg;џџџџрр version 1.00џџџџрр# CopyrightЉ2001-2007 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р'Form1UserForm1Ѓ§џџ@ўџXџџџ џџ Э @ўџ routine is solely at your own risk.рЭџџј– B@˜k.oџџиџџџџаџџџџфВAttribute VB_Name = "Module1" ' ad_Ac€tiveDwgLThis routine demonstrates popula.g a combobox wi@th the   nжs of  a] drawings an€d chang between(m=by sele6ng fromFdropdown.&It was›veloped for AutoCAD 2000faboDveDemn!!@ †Q"a s-is"‚Kno1@„claРЊ@C, –wРH@2 Р†im@Iиed,ФA@m€<to i€ reliability“any parРXМr task8. A5‚ЖisЧEЪsolСEYFCri@@ ˆ Opi Exl"i€vSubJр() СIUserForm1.sho0w EЭР orm1.show E€ЬР ўЪ№ФдџџџџЫ?<<џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit dDocumeZn€- ‡=/.Tex Set€- = ThisDrawing.ЈApp€AaW.…)€s.Item(†) ‚OadУ.Act iv€2Unload M€VEnd7Э:E‰_InitРializeЩ;S4‚ Р• Each@-БAIn Ц& Ш8иAddA+C .ЇANB>Ш$ Жџџџџџџџџ<џџЂV•к`˜еБZГЩйuŽ!=в…Ф  Ц&ЁV•к`˜еБZГЩџџџџџџџџџџџџxњš8џџџџ<<џџ#ˆЁV•к`˜еБZГЩЂV•к`˜еБZГЩџџЖђђ*џџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}b†; $*\Rffff*113b866335п џџџџрўџџџџџџџџџ(џџџџџџџџџџŒM Д$џџџџHџџџџ0џџџџ(ƒўџџџџџџџpџџџџџџџџџџџџџџ $‚ џџџџўџџџ џџўџџџџџџџџџџџL6 $ƒўџџџџџџџаџџџџџџџџџџџџџџА6 $џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxЈ@ttџџџџrU€€€ џџџџџџџџ@prU€€€ ш Љ б џџџџ1 4љ С! Layers‚й €џActiveLayer„>CommandButton1_ClickфСUserForm_Initialize5centryЉЯ€џAddItem‡  adPickDwg7cadNewDwgCѕdrawing<0 €џApplicationЅ*Itemзzdrawing_numberё€џActivate—|€џClickŠу €џџџInitializeгN€џџџ_B_var_drawing?$ adActiveDwg” adCurrDwgDB €џџџ_B_var_Set€џValueфKthe'й retriџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVcџџџџџџџџџџџџџџџџџџ8MEџџџџџџџџџџўЪ€__SRP_7џџџџџџџџџџџџўџџџ@__SRP_4џџџџџџџџџџџџўџџџf__SRP_5џџџџџџџџџџџџўџџџЏ__SRP_0џџџџџџџџџџџџўџџџ€ oџџџџы8CompObjџџџџџџџџщaVBFrameџџџџџџџџџџџџф)__SRP_6џџџџџџџџџџџџўџџџЖџџџџџџџџџџџџ/W•к`˜еБZГЩ+W•к`˜еБZГЩ!W•к`˜еБZГЩџџџџџџџџџџџџxоЌ Zџџџџ<еџџˆџџШ жжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ<џџ€ PP€ P € .№€  € џџџџ€€ џџџџ"ш€№€ј€ џџџџ =Р р јH€ џџџџ"p€x$€1 ЈА€ џџџџ€ џџџџџџџџрХџџxџџџџphZъџџџџZъџџџџZъџџџџЎ'Hї Dі >Œ H D!VЎ\ D! 4'HЮŸFЊїП >!@Є •$В'F№|ŸДЎC:/adDwgList.txt FЃФ FЃ Hз№hџџ( FSlџџZъ˜Zъ˜ b!f'zх h %n.| џџA@t j (plџџАp џџA@tlџџАZъ№ї Dі >Œn D! bB@xїПHlџџ@џџџџ@х z !€!>%‚.Ž ŽB@†џџџџˆ џџA@tџџџџџџџџџџрџџџџј !'џџџџџџџџ@џџџџPџџџџии ad_ActiveDwgии; names of the active drawings and changing between themи> drawing date information from the internal AutoCAD formatи: to Julian format and conversion of the elapsed timer.и# It was developed in AutoCAD 2000.ии version 1.00и 8/24/2001ии CopyrightЉ2001 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 t€ џџџџџџџџХџџxџџџџpТАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2O@ption /licit VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Select ActiveDwg" ClientHeight = 570 ClientLeft = 45 ClientTop = 330 ClientWidth = 2610 StartUpPosition = 1 'CenterOwner TypeInfoVer = 3 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqA€H€,‰,5€ЅTahomaЎ  }ќэ0Ў(х €8ComboBox1дд€ џџџџџџџџХџџxџџџџpТАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009