ࡱ> __SRP_0__SRP_1 __SRP_4__SRP_5<*N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %* &p )( %@. `0 %000Root Entry)v*VBA_Project`fO>)vVBA_Project_Version(VBAmO>34  m  !"#$%&'()*+,-./0123456789:;<=>?@BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklnopqrstuvwxy{|}~ID="{190101B2-6B46-4154-A908-5079EF28B85E}" Document=ThisDrawing/&H00000000 Class=EventClass Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F0F26C8A708A708A708A70" DPB="A0A23C3F3D3F3D3F" GC="5052CCEFCDEFCD10" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=20, 386, 706, 680, Z EventClass=319, 12, 987, 378, PROJECTwmGPROJECTThisDrawingz EventClass AThisDrawingThisDrawingEventClassEventClas0* pHd ACADProject8@ = t  8( 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#Gj0rAB89669 C8-1E647F2-A348-24BB1FB70198APXWP\VB_VBA_PROJECT dir __SRP_2:__SRP_3E\DO.EXD`7.E .`PM DT@hisDraugGThi@fDrawng 2 HB1¨BE,B I"B+B EventClassGv@n@jCa%s"K 2V ! !!R(C#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   8ThisDrawing0:3d70635fThisDrawingIEventClass0;3d70635fEventClass 8_ImnDS~GbHDH%(P)=dimObject AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateaLine@ EventClass  CreateLineQSjE\ ModelSpace_AddLine8AcadLineeobject_ModifiedpObject IAcadObjectK TerminateyLSP$_EP] StartPointEndPointyMsgBoxR ObjectNameTypeNamevbCrLfLengthYAngleA Thickness'~Erro Description  AcadDocumentZClassT   $0 xME PSS S`$<<<8*\R1*#d2 6  *0 P` R R R` N  (   "  ( 8 H8FX  Hx] e0,X] (!2'. (!4'0  $ ; R (!8 ( $:)... <Length:  (!> <Angle:  (!@n! @ <Start: $., $., $. <End: $0, $0, $0 < Thickness:  (!BA@6P| ,Error: D!FA@6o/ 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 nor= "EveG publisher warrant that these programs are error free or will operatebu without interruption.ut Example 13-5.alAttribute VB_Name = "EventClass"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatab"lTru Pr@edeclaIdBExposeTemplateDerivCustomizD3Option 0licit @ ' A for Aut@oCAD 2: Writing MacrosJeffrey HE. rk CospyrightE untiHall PTR7This softw may be 'ely copijand uso lo!Bas tdisimer,:together withe `above#noA!, includin A%s Cany accomp@AA?docum@aAAN. Theexaae programre1dvail]"as-is"&outy expB_ @\i;Branty. Ne1@34 aut"h norCpublis:ar 9;at<$"erNrTAwi_oxperCJ#idnt up7gEAD713-5.P1c W@&Bs Object As AcadLinʹC.Var@HelpID-1@! Sub oB_Modif@A(ByVal p.IA0) O@7GoTo Termin" Y Dim SP, EP i +CSP .StartP.o@ =.EndHMsgBox#& " (" & _@ Type(d")...@vbCrLf+"Length: & c1 "A0ngle+B * 180 / 3.14159ASP(0)","12 ndE"ckn8ess4 pExitAF!H>:3C.3"EaBrr.Descri"[ NI#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}h H %   x0`%"   8 6  * PH R R RH N    "0 2(2`  Hx] ]`+F+F+ogr+F+F+    ! %" /o0/ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark/ # Copyright 2002 Prentice Hall PTRrosJ 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 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-6.]08"Attribute 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 up7MgED7@6.Dim aLine As(w Ev @D~s Sub e()  S(2) Do@.E!C S(0)1:p S(1AB= 0CEC5: EC" &Se-A.Objectalg.Model!x.AddBS,t EENA