аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_5 џџџџj—_VBA_PROJECTџџџџџџџџџџџџ:Š dirџџџџџџџџџџџџ.Т__SRP_0 џџџџ A6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй CloseAllDwgs6ЇCloseAllšФeClassV EventClass кappAcad}o ApplicationЅ*Drawing<0 AcadDocumentZ DocumentsМActivate—|MsgBox—RvbYesNovbYesa?FullNameаžAcadApplicationф appAcad_EndSave&kFileNamejУClassЛ€џEndSaveЁH €џџџ_B_var_IfPђCloseAllDrawingshџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ џџџџџџ џџџџџџџџџџџџRoot EntryџџџџџџџџРї ŽС@BVBA_Projectџџџџ р"т4‚ПРї ŽСVBAџџџџџџџџр"т4‚Пр+ИiІОРPROJECTwmџџџџџџџџџџџџn#§џџџ $ !"%ўџџџўџџџ&'()*ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџкThisDrawing џџџџі __SRP_6џџџџџџџџџџџџЫ__SRP_7џџџџЩBўџџџ‚ ўџџџ !"#$%&'()*+,-ўџџџ/0123456789ўџџџ;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXY[ўџџџ\]^_`abcdefghiўџџџklўџџџnopqrstuўџџџwxyz{|}~€ID="{6460C03B-092F-4C8C-9D2F-71BA11249737}" Document=ThisDrawing/&H00000000 Module=CloseAllDwgs Class=EventClass Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C3C17AB939BD39BD39BD39BD" DPB="86843FFEC1028503850385" GC="494BF005F105F1FA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=26, 26, 572, 505, C CloseAllDwgs=0, 0, 546, 479, EventClass=78, 78, 624, 557, ThisDrawingThisDrawingCloseAllDwgsCloseAllrU€€€€~~~~w џџџџџџџџџџџџ џџџџ  с Й1  (appAcad Q8FileName]“K*mџџџџrU€€€~~~~~~~~~~~~Y ЩCloseAllDwgsџџџџ џџџџА‡VBA_Project_Version(џџџџџџџџџџџџZEventClassџџџџџџџџџџџџv__SRP_4џџџџџџџџm2ЕС2Щ§oAšки X‘  фџџџџƒŠa 1џџџџџџщџџџџџџџџџџџџџџџџџџџџџџ A y џџџџQ џџ1  с ACADProject ThisDrawing CloseAllDwgs EventClassяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA Qџџџџ y 0тС”РЦWв…у  Ц& 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD qџџџџ™ё@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole aџџџџ‰бPс.E р….`ŒM ДC:\WINDOWS\SYSTEM\FM20.DLLMSForms aa‰Щ`Шi–ИђGЃH$ЛЗŠc:\windows\TEMP\VBE\MSForms.exd 9aaЩpCloseAll йuŽ!=в…Ф  Ц&ZпvN=a:УЪйuŽ!=в…Ф  Ц&;WЂЊЋhJ‘‚2ЫS‡0XсXh—{ а‰п€_ТћК AcadDocument @йuŽ!=в…Ф  Ц&+=ћќњ hЇ8+3qЕŽŠuЛ–ЗNЂсЖМ|mŸщ*=ћќњ hЇ8+3qЕЉ5 hЊŽHЃКkoЈ kѓ!=ћќњ hЇ8+3qЕClassP№gv№Э›3+3o VBInternal qџџџџ џџџџ™јnЇt)›ЁбЂА мcšappAcadappAcad_EndSave H88йuŽ!=в…Ф  Ц&Љ Qџџџџ Close  ? $Close All Drawings  < cannot be Closed until Saved. Save Save if ChangedЉ VBE6.DLL й џџџџS  has been SAVED.fОВ€0* pH‚dф ACADProject8@е = t  $;<( 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-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Mic€rosoft ‚9" €\ ObЌ Library/њ;C1€„sˆAˆ00}#0‚#G€j0rРAB89669 C8-1E647F2-A348-24BB1FB70198APX€WP\VBE\DO.exd`7€с.E р….`PŒM ДЁ‚œDТРU‚žT@hisDraРugG€Thi@fDra‚wРng Š2 €HB‚1ТЈоBE,B Д|"B+BТЉCloseAllDwgsGT@CРЌo€#eDA@lD€$gЕРЮ 2к Я$€ЬБЭ$Йe!B#Х$ @EventClaJs@$Сv@бnk@дС&aР"s€GK 26U яя@эѓџЅc#(р ЃbЬamџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsт*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\Program Files\AutoCAD 2000i\ACAD.TLB#AutoCAD 2000 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\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Libraryф*\G{B89669C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ$;<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРUThisDrawing063c0f37c2џџThisDrawingџџД|оџџCloseAllDwgs073c0f3b24џџCloseAllDwgsџџЙe џџEventClass053c0f37c2џџEventClassџџѓџџџџџ0я џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlIKь=wE \ёє @e1џџџџщi0ˆе%LОЌЇ'уGœАџџџџО9g“о­;B‚ŒZЩ|ЂMаџџџџџџџџ0€ џ˜(AutoCAD"јVBAїтWin16С~Win32MacГВVB џџџџџџ6rU€€€ џџџџџџџџH(Й`(џџџџџџџџљ Сџџџџџџџџ@й8nrU€€€ ˜и Ay ЁЩ џџџџy@41Yџџџџџџџџџџџџџџџџџџƒўџџџ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏўџџџБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШаЪўџџџЬЭЮЯўџџџбвгдежзийклмнопрстуфхцчшщъыьэюя№ёђѓєѕўџџџїјљњћќ§ўџџџ< Ё9 џџџџџџџџџџџџ`Сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ EyЯHl Cxџ;'џ'$џ'Dџѕtџ$ Ьltџ*Fdџ /tџ6dџDџ$џџxH(кxџ tџdџDџ$џџ8 <A$фˆЧсщ РUѓџџџ‚ЖџџџџџџџџDџџŽŠuЛ–ЗNЂсЖМ|mŸщ*=ћќњ hЇ8+3qЕЉ5 hЊŽHЃКkoЈ kѓџџџџџџџџџџџџxЉ5 hЊŽHЃКkoЈ kѓŽŠuЛ–ЗNЂсЖМ|mŸщџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ`”џџ26ЂџџџџPџџџџš"џџџџLџџџџџџџџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %*€џџџџ8@џџџџџџџџџџџџ 4џџџџ`џџџџџџџџhџkpџџџџ(DwgsEventClassEventClass”iƒ6џџџџ џџџџџџџџ„2A-A€ўџџџџџџџИџџџџџџџџџџ%џџџџ0џџџџƒўџџџџџџџјџџџџџџџџџџџџџџ%џџџџ`@џџџџџџџџџџџџ€Hџџџџ$џџ„€ )ƒџџџџџџ@џџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџ`џџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 `„6џџџџxџџџџџ€џџџџџџџџ*@ўџџџџџtџџџџџ @ўџdџџџ џџ @ўџЈTџџџ џџ @ўџРDџџџ џџ @ўџи4џџџ џџ @ўџ№$џџџ џџ @ўџџџџџџџџ џџ @ўџџџџџџџџ џџ џџџџ№0џџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџаH,џџџџџџџџџџџџџџџџџџџџџџР$;<*\R1*#10e$*\Rffff*053c0f37c2*\R1*#f4$*\Rffff*063c0f37c2*\R1*#f2*\R0*#14пџџџџ4<ўЪ€€ џџџџ€ 6X€ € *А€ џџџџ€ Pр€ R0€ Rˆ€ Rр€ N8€ ˆ€ џџџџ€ Ј€ џџџџ€ € џџџџ" $; H€ џџџџџџџџРЭџџx] ђФ–0 !0Ж has been SAVED.A@*oџџ0џџџџ(р/ VBA for AutoCAD 2002: Writing AutoCAD Macrosр Jeffrey E. Clark 0 р# Copyright 2002 Prentice Hall PTRl SaveрJ This software may be freely copied and used so long as this disclaimer,рK together with the above copyright notice, are included in all copies andрL any accompanying documentation. These example programs are made availableрK "as-is" without any explicit or implied warranty. Neither the author norрG publisher warrant that these programs are error free or will operateр without interruption.р Example 13-1.џџџџ$ГAttribute VB_Name = "EventClass"D „Bas„0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalЬSpac’False dCreatab"lTru Pr@edeclaIdЎBExposeTempla€teDeriv–Customiz„D3Option 0licit @ ' €žA for Aut@oCAD 2€‚: Writing† MacrosƒJeffrey HE. Еrkƒ CopyrightE‚ €unti€”H€all PTR…7This softw€ƒ may be €'ely copi€jand u‚so lo!€Bas tdi‚sŸimer,:together withРe `above#noA!, incˆludin A%‚s €Cany€ accomp@AA?docum@”aAAN. The‘exaae programРreР1ТdРvail]ƒ€"as-is"Т&outРy exъpB_ @\i€;Branty. Ne€1@3€4 aut"h norCpublisТ:arС 9€;atС<Р$Ъ"erNrTAwiР_oxper€CСJС#idnt€ up7…gEAD713-1.PqСc W@&BзР;ppAcad Asr СAp4‚H‰УaC .@чVarHelpIDРМ-1ƒ€ЏР# Sub  _EndSave(ByVal FXileBѕ@S@њng) €Ћ MsgBoxРbisDrawР4.FulBs & " h€Ebeen SAVxED.y  с№дд(џџџџн РUЙeџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ$<$џџ<(џџ< џџ<џџ<џџ<џџ<џџ< џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ €8`џџџџџџџџџџџџьў@џџџџџџџџџџ„ ЄџџџџxџџџXt % „#џџџџlџџџxct%ИƒџџџџџџАџџџџџџџџџџџџџџ%џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXИx,*.Ш@tџџџ џџ @ўџpџџџ џџ @ўџhџџџ џџ р№dџџO џџ Ша`џџџџџ ј@ўџ\џџџџџ @ўџLџџџ џџ @ўџ<џџџ џџ €,џџџ џџ @ўџџџџ џџ А џџџ џџ @ўџќўџџ џџ ьўџџ џџ џџџџ >џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџриџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ'€€ џџџџ€ 6ЈrU€€€ џџџџџџџџ@nrU€€€ Шi‘ЙџџџџA4сa џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV`€ р€ *€ џџџџ€ P0€ R€€ Rи€ R0€ Nˆ€ и€ џџџџ€ ј€ џџџџ"€+€ џџџџ€0!8 H€ џџџџLTX Ј28И №JWјHX`p x€ џџџџ€ ˆ€ џџџџ ˜џџџџЭџџx–и]ђ@э !  /\G{]ђ`џ "ў &“8 "B@(3-9І ЖClose "!Ж? ,ЖClose All Drawings$* .œ "!0Жœ "!Ж cannot be Closed until Saved.A@*dџџІ ЖSave !Ж? ,ЖSave if Changed$* .œЗ B@Bdџџ З B@Bkџџˆkџџ€kџџxџЧpэА.oџџ`џџџџXр/ VBA for AutoCAD 2002: Writing AutoCAD Macrosр Jeffrey E. Clarkр# Copyright 2002 Prentice Hall PTRрJ This softw__SRP_1џџџџџџџџџџџџ ё__SRP_6џџџџџџџџџџџџўџџџ4__SRP_7џџџџџџџџџџџџўџџџ•џџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџare may be freely copied and used so long as this disclaimer,рK together with the above copyright notice, are included in all copies andрL any accompanying documentation. These example programs are made availableрK "as-is" without any explicit or implied warranty. Neither the author norрG publisher warrant that these programs are error free or will operateр without interruption.р Example 13-2.џџџџˆџџџџhГAttribute VB_Name = "CloseAllDwgs" Option Explicit ' РA for AutoCAD 2002: W@riting*M acrosbJeffrey E.@ Clark*CopyrightA Prentice Hall PTRoThis software may be Oely copied and usso lBo…as t6disclaimer,ttogether with€e above“$FnoB, 6@includ€+iln J7s7ƒ&any accomp€~docum€caœ. These example progr,am€‚cd€=va@ilable'"@as-is"‚MoДut€3yƒО €Иi#w„rantрy. Nec€fi authnorƒ&publis™‚uarwatyу€IŠEerrTAwiР_operaŽtФ%СJС#int€ ,up7…gED713ˆ-2.Sub€yD’rawРEs() €Ž Dim ‚eР€ss As@/pw Ev€KBCSetD.appAXcad@І€Dƒ.ќApDXC CA„[DcF€8Each E In EРЉA'B(…ctivB@EƒAIf €MsgBox(ƒЬP " &….г& "?", vbYesNo, _k… Фл мsм")@;B СŽnK €AФ..FullEэ" ƒ(Ю% canРИhт} gрnl S`aved.Р~ № Els`@)aш_ЁТI4_ - "тif Changedњ …IB (TјrueDMI г!pœFa€‘€ŒIfK2ŽEp'ЉNex ЈOAуч\ >No •ng !рg <фjxиРUД|џџ#ˆЖџџџџџџџџ<џџZпvN=a:УЪйuŽ!=в…Ф  Ц&;WЂЊЋhJ‘‚2ЫS‡0Xџџџџџџџџџџџџx;WЂЊЋhJ‘‚2ЫS‡0XZпvN=a:УЪџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@ttџџџџџџџџџџџџџџџџџџџџџџ0$;<$*\Rffff*063c0f37c2пџџџџ4ўЪ€ џџџџџџџџџџџџxџџџџОАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2