аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџom‚dropdown.‚ It wasР&velopР?for AutoCAD 2000‚above Demload: -vbaPrun;Р@A‚'D€wg.dvb! ;@versi€on 1.10ХCopyrigh”tЉA-6 ‡@F ЪR€UprovidD,ЧVСpurЃ|@Nnly0mРoE not be us„critical apдplt@sBbРm@ your Р-i†f„Dthat€Sˆwwill pe2rPm €T@ ipntenР(ƒNJ0m„ay!freeР(ё@ˆlizD$Т@hAson€&+ soр longФР‰€ entire t„Š%header rkinС€G Ц("as-Шis"Т%no BЁjbaЁ!, w`$  …`CiРeied,ф m@ to i@reliabi lity Ian`y par`,^r task. Aї€B[iсeA3%e€ 8solс"€,І!ric Р P@u h Sub cmdC ancel€pick() UвnсS MiE dр$ ЮNoIMe.hРIЁ@Ђ Each Фy In рDocum -@!e$. (‹"N ext —YesЉOn ErrQР*Resр У Ч ПЏSav юaь`џџџџџџџџџџџџєўDџџџџџџџџџџ №ЄдАџџџџЌ„ БНџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ@ПlZБуХ@7VBA_Projectџџџџ EWpъЮП@ПlZБуХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ  EWpъЮП@ПlZБуХ§џџџ  ( ўџџџ!"#$ўџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџм ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEўџџџGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvўџџџxўџџџz{|ўџџџ~€acadID="{6614C397-96B3-4404-BA78-A6966F8F9458}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=CloseModeForm HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="23219CCDCDD1CDD1CDD1CDD1" DPB="5052EF10F010F010" GC="7D7FC213C241C341C3BE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawCloseModeFormџџџџ EWpъЮП`m`pъЮПPROJECTwmџџџџџџџџџџџџ hPROJECTџџџџ(fџџџџџџџџџџџџ}оing=0, 0, 0, 0, C Module1=63, 26, 775, 568, CloseModeForm=62, 66, 774, 608, , 165, 132, 877, 674, Z 7, 674, ThisDrawingThisDrawingModule1Module1ClosЦВ€0* pH‚dф ACADProject8@е = t  ЬиC(? 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 џџџџyќCompObjџџџџ џџџџwaVBFrameџџџџџџџџџџџџr/ThisDrawing џџџџШхModule1џџџџџџџџ“ CloseModeFormџџџџџџџџFL_VBA_PROJECTџџџџџџџџџџџџ˜ dirџџџџџџџџџџџџ Ъosoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€Ž#€k0Ї‰РAFB04163D-503E-4879-98A9-E1919@066642ЩXDOCUME~1\WALTER~1.ARB\LOCALS@Temp \VBE\„U.exd =Р"€с.E р…. `ŒM ДСЇТЂˆТБТЄThisDraw@ingG€Thi€lDrawРngT 2 €HB1Џ%,B,B Г*"B+Bƒod ule1G„o@ГКuBГ1@ Ҙ2‰OŠ OН!J @CloseM(odeA’G@ŠC@o@AeM€ЎvdРгГ@жР‰ 2[\/5Рэ!Тф!(шbseModeFormяРF /C:\PROGRA~1\COMMЬ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{FB04163D-503E-4879-98A9-E19190666426}#2.0#0#C:\DOCUME~1\WALTER~1.ARB\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџЬиC?џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБThisDrawing1B44d868dfџџThisDrawingџџГ%џџModule11C44d868dfџџModule1џџНŠ џџCloseModeForm1D44d868dfџџ)CloseModeFormџџТ05 џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ@xeыз`HŒjH|uЁИžџџџџƒждэDм™IŸž їBдУџџџџž{o’ŠЯM‚ Й4xрџџџџџџџџ0€ џŒ(AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1bDrawing<0 AcadDocumentZad_CloseAllDrawingsq” DocumentsМCount0vMsgBox—R SendCommandcњvbCr$ CloseModeFormУrshowѕcmdCancel_Click\е cmdNo_Clickœhide9z cmdYes_ClickљgSave’аUserFormNLabel1,cmdYes4cmdNo cmdCancelЭџџ`џџџџџџџџџџџџџџџџ) џџџџџџ џџџџџџџџ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ6о*\G{0D452EE1-E08№дLџџџџ/ БТџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SPџџџџSџџџџSџџџџSџџџџџџš0{89A9F695-8E00-492D-BB5C-3931BF9668B1}{2539AC62-E432-4B78-BC0B-378B096302B0}џџџџ@ ,@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” .€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” 2џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”€ўџ№џџшџџРџџџџџџџџ%ўџџџџџџџџџџџ№џџџџџџџџ %@€џџџџџџџџџџџџРџџџџџџџџРџџџџџџџџ€џџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЬиC?пўЪ)€ € € (€ @0€ Bp€ *И€ 4˜€ <ш€ (€ 0€ H€ *P€ €€ Jˆ€ Jи€ :(€ Nh€ >И€ Pј€ PH€ .˜€ Ш"а иш€ џџџџ"№ ј(0€ џџџџ"8@ HX h xˆџџџџирр ad_CloseAllDrawingsрр: This routine demonstrates populating a combobox with theр; names of the active drawings and changing between themр$ by selecting from the dropdown.р6 Demand load: -vbarun;ad_ActiveDwg.dvb!ad_ActiveDwg;џџџџрр version 1.10џџџџрр# 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 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.0р– џџA@rryoџџШ–@ џџB@08A1џ ў “BЗ B@B0џЧˆoџџ€–€Щp џџB@0NDOџ ў “\ B@4SFo B@BXD#џЧ(oџџ р. It was deVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} CloseModeForm Caption = "Verify Close Mode" ClientHeight = 1665 ClientLeft = 45 ClientTop = 330 ClientWidth = 3420 StartUpPosition = 1 'CenterOwner TypeInfoVer = 7 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq8)џ!€Save all drawings before closing?ЋЗ&{З€@УМArialЎ(€YesNu€ЅTahomaЎ(€NoЎOu€ЅTahomaЎ(€CancelЎEOu€ЅTahomaЎ  }‘y А„(ѕ€2\Label1Ўдд(ѕ€74cmdYesЎіO$х€4cmdNoЎg O(х €ўџџџ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’ўџџџ”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧўџџџЩЪЫЬЭЮЯабвгдежзўџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8cmdCancelЗEqveloped for AutoCAD 2000 and above.wџџџџ(џџџџДAttribute VB_Name = "CloseModeFo rm" Bas0{89A9F695-8E00-492D-BB5C-3931BF9668B1}{2539AC62-E432-4B78-BC0B-378B09€6302B0} d@GlobalSpacoFalse ŠCreatablPredeHclaIdиTФru BExp€u0Templat€eDerive•Customiz‹D' ' ad_‚ІAllDrРawings€  This routine dem onstr6s 0popu; a combobox with t†h€`€+ n€жs of act€P d„1 an€d chang"€betweenm=€by seleng frџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ< џџ<џџџџџџџџџџh(„џџџџџџџџ% џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „џџџџџџ џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ!€ € € (€ @0€ Bp€ *И€ 4Р€ <ш€ (€ 0€ H€ *P€ €€ Jˆ€ Jи€ :(€ Nh€ >И€ Pј€ PH€ .˜€ Ш€а"ирш ј>X` h>xИџџџџрр ad_CloseAllDrawingsир…рр: This routine demonstrates populating a combobox with theр; names of the active drawings and changing between themр$ by selecting from the dropdown.р6 Demand load: -vbarun;ad_ActiveDwg.dvb!ad_ActiveDwg;џџџџрр version 1.10џџџџрр# 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 verification```р3 that this routine will perform as you intended.€0PрG This routine may be freely utilized for your own personal use so long0р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.utр] ђ– Ща ! ЌœЖNo drawings to close!A@"Ж _vbaunload &ЖCloseAllDrawings.dvb & B@$IN|џџXkџџP (B@* TDUSЖ _vbaunload &ЖCloseAllDrawings.dvb & B@$oџџџџџџџџџџџџџџўџџџЌџџџџџџџџџџџџўџџџБџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџЩџџџџџџџџџџџџўџџџhџџџџџџџџџџџџўџџџВџџџџџџџџџџџџџџџџџџџџџџџџјр. It was developed for AutoCAD 2000 and above.Ж џџџџџџџџƒГAttribute VB_Name = "Module1" ' ad_CloseAllDr@awingshThis routine demonstrates€ popula.g a combobox wit h theЎ „ nrs ofР activFc and changq betw(een(m=by sele6ng fromFdr€opdown.&@It was›veloped for AutoC€AD 20003 aboveDemЖ _vbaunload @ЖCloseAllDrawings.dvb @ B@>eџџџџРџџџџфБAttribute VB_Name = "Module1" ' CloseAllDrawin gsP\version 1.10 1/28/20 02 Developed 06/0560 by Walter BlairVCopyrightЉ A0-F Arban & Carosi, Inc./This routine cЂs all currently" xn dД and saves them orP notL a ccordn to us€Minput6 Public € As AcadDocum5 SubŽ’() O n Err6ReBs Nex:  If s.CountЛ0 Then MsgBox "Noїa€Mt!€ЫZ„I.SendComms"_vbau@nload"€žv(bCr"у.d vb…Exit– 3AEРKIfAТ @„eForm.№showA?Т€ џџџ№Ьдџџџџг'БГџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0œŸ;9 пўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ