ࡱ> LL#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{BD41D01E-A885-11D3-99C7-0010A4F84B6B}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M Root Entry`G (VBA_ProjectGR`G VBA_Project_Version(VBAGR@     !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmopqrstuvwxyz{|}~ID="{B198B6B9-7C54-400A-8999-9A6553AFB36C}" Document=ThisDrawing/&H00000000 Class=EventClass Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="484AA82EAC2EAC2EAC2EAC" DPB="8280625A9D5B9D5B9D" GC="BCBE5CA4ACDFADDFAD20" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=26, 26, 572, 505, EventClass=52, 52, 598, 531, Z PROJECTwmGPROJECTThisDrawingnJ EventClass ? ThisDrawingThisDrawingEventClassEventClass|0* pHd ACADProject8@ = t  78( 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#_VBA_PROJECT dir __SRP_2__SRP_3_VBA_PROJECTdirT__SRP_0.__SRP_1 0r BD41D01E-A885-11D3-99C7 10A4F84B6BP@OP\VBE\G.EXD /.E .`(M AB"qBTh isDramgGThi^DrawAng 2E HB1B,B <"B+B EventClassGRvnCa%s"K 2V !+!\"!(C#am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.D  78qThisDrawing113d7067feThisDrawing<EventClass123d7067feEventClass\"+8栞v9AZEdlL@A.cH(ObjectAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluatePlineM EventClass  CreatePLine԰Pg ModelSpace_AddLightWeightPolylineClosed,AcadLWPolylineobject_ModifiedpObject IAcadObjectK TerminateyLMsgBoxR ObjectNameAreaBErro Description  AcadDocumentZT   $0%q\"xME PS<S<S<<$<<<<*N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} %* &p )(je%%000 6  * P R` R R Nh     "  ((P X` x] 0,X (!0 area is  (!2A@.|(, Error: 4!6A@.ox/ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark# Copyright 2002 Prentice Hall PTRd?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 andute VBL any accompanying documentation. These example programs are made available FalK "as-is" without any explicit or implied warranty. Neither the author nor As AcG publisher warrant that these programs are error free or will operatect without interruption.  Example 13-unnumbered.eAttribute 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 CopyrightE 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 up7gED713-unnumbe@.AP c W(s Object As AcadLWPolylin.VarHelpID@-1B@% Sub o@_ModifE(ByVal pç.I) X OZBGoTo TerminMsgBox .…& "BDa Q" &FAx ExitF :d "E:& @.Descri)`X \dq<#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626} 0#9# %   nsx%0  6H  * P R  Rx R N( x   " (&H&p& .0@ x] ] `+F+q= ףp?+F++F?+q= ףp?+F++F +Q? +F? +  !%  / !("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-unnumbered.@tAttribute 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 up7 gED7@unnu(mbe.ADim Pline As@*w EvF@s Sub" BePL () @ B (0 @To 11)Do@2AP(0) @0: P(= 0P(2.67P(341&5.56e7Z18f91b-0.33:A#c% Set .O`bjectx. Model".AHddLbWePoly'(P$#b)ф.Clj~E `*.