ࡱ> xME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}@(%H@0= xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit $ !tx$ :`HRoot Entry0bV#VBA_Project4Z0bVVBA_Project_Version(VBA4ZV    !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}acID="{88740214-C622-11D6-B11B-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="44462DB257CB5BCB5BCB5BCB5B" DPB="616308CD09CD09CD" GC="7E7C17F8290847094709B8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=66, 66, 621, 566, Z 566, odule1Module1PROJECTwmx>PROJECTThisDrawing~!Module1 =_VBA_PROJECT dirl__SRP_2__SRP_3_VBA_PROJECTdir)__SRP_0;__SRP_1nh0* pHd ACADProject8@ = t  =( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#Microsoft :" ] Ob Library/;D1tA00}#0#0r AB0A1-C559-11D@6-B11B4761254F9POP\VBE\G.EXD /.E .`M E”–ThisDrawingGThi^Drawng 2 HB1`MB,QB "B+Bodule1GՄo@uB1@ Šm2OM!Hdule1am  *\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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 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{A002B0A1-C559-11D6-B11B-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M   =ThisDrawing1`4abdd671ThisDrawingMModule11b4abdd68dModule1 86{N)}wwI GyI*+s P( Px .  " @2XH h * ( 0@P  ad_LayerSScvHbv; This routine demonstrates the creation of a selection setavxJav? containing all entities on a specified layer, and stepping, through the entities to perform a task.' Developed for AutoCAD 2000 and above.2 Demand load: -vbarun;ad_LayerSS.dvb!ad_LayerSS; version 1.00# Copyright2000-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC 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 longn8 as the entire contents of this header remain intact.nJ 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.]@]`]]ObjSS !(%*.+"F &+$C+"F+$ , " $ B@H4 !.   2 (0Your modifications here  ######k B@4  !6B@8o0'&!This is the layer to be processedof RouhAttribute VB_Name = "Module1" ' ad_La yerSSDThis routine demonstrates the creation of a selecset containing all enptiti>41pecified lv, and `stepp/At2hghp>to performAxtask..DevelopP AutoCAD 2000Zab(ovem6load: -vb arun;.dhvb!;/0versx1.00 Copyrig(ht4-9 AveDwg.8comprpovidV/p urposly^musnot@ be uscrcal applics with your [@Z#@fTatxwihUsA intenG(MJ0may!free(liz#D$ownAison&+ so lhongatrWstAheader rem!act!Q"as-is"Knocla@S, wH@2 or im@Ied,!@m #o iteliabi lity any particu › A5+sol'EYFCriC OpBExliv SubH() Dim ObjSS AsadSS|ad@adDXFCode(0 To 1)ThisDrawingThisDrawingModule1Module1I@:germG@p€„fS@6 0" 'Bx @s`S@[cesT'! `= Draw |.s.Add("SS"bh)8:#?A = 67b v D aciAll, !f i$ IfCount <>" *hena FKEachx In.Col=@ReE@(Ysmodss hereNe,xt EIfC! SS.DAt "*A.Upd !L xG#