ࡱ> E3-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{BD41D01E-A885-11D3-99C7-0010A4F84B6B}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M   0l8qThisDRoot Entry6 VBA_Project0ڊ6 VBA_Project_Version(VBA =0ڊ6      !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyzID="{7FCA7A94-318D-4B7D-8A38-72486968C5E5}" Document=ThisDrawing/&H00000000 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="FAF811699F6D9F6D9F6D9F6D" DPB="84866FFB738474847484" GC="0E0CE57DE58D6E8E6E8E91" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=26, 26, 572, 505, ThisDrawingThisDrawingPROJECTwm&PROJECTxThisDrawing;_VBA_PROJECT dirA_VBA_PROJECTdir__SRP_0__SRP_1=0* pHd ACADProject8@ = t  0l8( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Microsoft 9" \ Ob Library/;C1sA00}#0#0r BD41D01E-A885-11D3-99C7 10A4F84B6BP@OP\VBE\G.EXD /.E .`(M AB"qBTh isDramgGThi^DrawAng 2E HB1B,B ."B+BBam  *\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-85rawing053d70627cThisDrawing.  xݗAFEx'`'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateAcadDocument_ActivateTpMsgBoxRFullNameОAcadDocument_BeginClose[hAcadDocument_WindowChanged WindowState|WS_acMinacMaxacNormn!AcadDocument_WindowMovedOrResizeda HWNDFrameQbMovedOMRH^ AcadDocumentZH  t{ q.#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626} @   i `" *8i,XDOCi. *`0K2_V%@.d0l8+ 6@ x * P R Rp R N  p  "8H "P:X  " P p " xd8x ! is ACTIVE.Document ActivateA@o0@ ! will CLOSE.Document Begin CloseA@o`]  $KTF MINIMIZED.'" &KTF MAXIMIZED.'" (KTFNORMAL.'"n The ! window is  "Window has ChangedA@o]x .KTFMOVED.'0KTFRESIZED.'0n0 The ! window has been  0 Window has been Moved or ResizedA@o/ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark# Copyright 2002 Prentice Hall PTRJ 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 andL any accompanying documentation. These example programs are made availableK "as-is" without any explicit or implied warranty. Neither the author norG publisher warrant that these programs are error free or will operate without interruption. Example 13-3. Example 13-4.81Attribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit @ ' A for AutoCAD 2002: Writ MacrosJeffrey PE. Cdk CopyrightE tntiHall PTR7 softw may be 'ely copijand uso long as t disimer,:together withe `above#noA!, includin A%s Cany accomp@A?documentaAN. Theexa`e p@rogramr e1dvail\"as-is""&outy expB_ @\i;Branty.8 Ne1@34 auth norC@publis:ar ;at<$"8errTAwi_oper@CJ#int up7gED7A.P Sub AcadDD_Activ@() MsgBoxI!F.FulB & " is ACTIVE.", x, "@@E@~BeginlCl?e"B CLOSNb X  !cH!4[!WindowChanged(ByVal cS`Ge As LX%Dim WbSStrL'Select Ch+"acMin: MINIMIZED.aaxAXPNorm}SNORMAL 1ۃ<"`9&*=/< @!="`/WS-A=_" h_zD&k/6NM|dOrResiz-`HWNDFqf-, 0b-Boolean0MR0#G/A* /O&VP/: CRE>S3_*gM*%beenb/MR+C`d%,