ࡱ> (<<< <  X%`` o thh)    B( Dp 8 4 8( ` h  *  J J :` N > P0 P .   " (08*Hx    ad_DwgListcvHbvRoot Entry\mV@!VBA_ProjectmWn\mVVBA_Project_Version(VBAmWn@KmV   !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiklmnopqrsuvwxyz{|}~acID="{CD8D1569-2A60-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C8CA556359635963596359" DPB="C6C45B9FA763A464A464A4" GC="C4C6599DA99AAA9AAA65" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 803, 760, Z gModule1Module1PROJECTwmj>PROJECTThisDrawingtModule1 ; _VBA_PROJECT" dirq__SRP_2__SRP_3em0* pHd ACADProject8@ = t  6:( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft : ] Ob Libr@ary/;D1?t00h}#0#04r 1A69050B-2CC4-11D5 -B117105A11B3C9POP\VBE\G.exd /.E .`M E”<–ThisDrawingGAThi^D@rawnPg 2 QHB1EB,B <"B+Bodule1Go@uB1@ Š&2O O< !H204EF-0am  *\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{1A69050B-2CC4-11D5-B117-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   6:<ThisDrawing0l4abdd250ThisDrawing<EModule10m4abdd250Module1< 8˘&[p2A*]c]IK_ʹH&AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_DwgListadDwg?z AcadDocumentZ adListFile"KadList DocumentsPath2vbCrLfCount0vT   $<< <<xME< This routine creates a list of the currently open drawingsavxJav> and writes them to the file "C:\adDwgList.txt". Each time1 the routine is run, the file is overwritten.. It was developed for AutoCAD 2000 and above.2 Demand load: -vbarun;ad_DwgList.dvb!ad_DwgList; version 1.00# Copyright2000-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and must((C not be used for critical applications without your verification|$|3 that this routine will perform as you intended.zzG This routine may be freely utilized for your own personal use so longz8 as the entire contents of this header remain intact.pJ 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.{]@]`]x'   "  !$\ ! &' R "!( $'+C:/adDwgList.txt   k( VoAttribute VB_Name = "Module1" ' ad_Dw gListDThis routine creat@es a lD of th*urrently open drawPings n`d wrin-m to5file "C:\adr.txt". Each time@cun,A!over`ten.3It was develd for AutoCAD 2000 aIabDemload: -vbarun;.dvtb!;24 0 pThen= F JA# O{/ BBinary!#Cc Put ,\ , EIbClm$a`14?<<#?<<#xME __SRP_0y__SRP_1F(SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit x<<#O