ࡱ> __SRP_1 ThisDrawing ACADProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !`;HA?@ABCDEFGHIJKLNOPRSTUVWXYZ[\]^_`aacadID="{33FFB0A2-2B25-4C51-879F-48012598B7C8}" Document=ThisDrawing/&H00000000 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D8DA1A981E981E981E981E" DPB="B0B2727573757375" GC="888A4A4D4B4D4BB2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 44, 1061, 546, Z ThisDrawingThisDrawingPROJECTwm&PROJECTnThisDrawing 7_VBA_PROJECT)dir$<__SRP_2 Q__SRP_3M__SRP_0 rU~}   CommandNameFileNameh30-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2K*mrU~~~~~~j "QNEgz e 9q,>u!= &Ii9 @!Yȓ6 L)KBx"k AcadDocumentAcadDocument_BeginCommandAcadDocument_EndCommandAcadDocument_EndSave H48 WBLOCK -WBLOCKqN篧J ͶrILMћd_ YK/z:" Do you want to open this wblock that is saved in 2004 DWG format   Tto be able to QSAVE it to 2000 DWG format? NJust QSAVE and CLOSE it if you want to.ƒ6ΛJ0䖌VBE6.DLL  S :uThisDrawing054073edb380* pHd ACADProject8@ = t  s@( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE AutomatXion0tDuxThisDrawingGTJisDrawing 2#(H1KX ,@T5"+am *\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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2004 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation s@uThisDrawing03419751e9ThisDrawing5K  ,0 jFqbf`"#0) AutoCAD" VBAWin16~Win32MacVBA6#Project1  stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZstrCMD+ strFileNameeAcadDocument_BeginCommandC; CommandNameh_AcadDocument_EndCommand Application* PreferencesOpenSaveg SaveAsType3 ac2004_dwgyXMsgBoxR vbNewLineuavbYesNovbYesa? DocumentsItemzCount0vActivate|AcadDocument_EndSaveUFileNamej BeginCommandL5 EndCommandYHEndSaveH<  " rU H(`|(A` (`$n 'oX WBLOCK rU 0 @  9a  y 1Y <a``` IXWLl Cx lx4(x ,l Cxlx0lx0$Z'''8 *#t *#p *#l *#h *FX^ 2tplh6X8"='(%'H%8$ l  0 )m$ l  $ liH%$ l    8) \,(x@ tplhX8Ll Cx lx8(x <<<Hn.@ferences.OpenSave.AsType <> ac@q4_dwg MsgBox("Do you want to o@ t wblockat Pis sd@s  DWG format" & vbNewLine_0A"be QSAVE i0?MeJ_  A CLOSB if.",`YesNo)`pvb@$a50O/ (JV)/ Item(Cou4- 1).Activ b T Ifgh]J$jor ) j o } Eu5#DJuxsE<v,>u!= &Ii9 @!Yȓ6xIi9 @!Yȓ6JuxsE<v,>ME4[LSS>"LLLL<8<<<N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%`  % % `(x+|i 6 '   `k i  <`x+`i> b4@b8@(PX`x`xP`x`x.0,2"@t @0p @Hl @h @X @H @8 @( @ @ @ @  @8 @h @ @ @ 8`P`>x8` H|0s@$*\Rffff*03419751e9*\R1*#106*\R1*#107*\R1*#10a*\R1*#49*\R0*#e*\R0*#1*\R0*#14*\R0*#2*\R1*#11a<  >    "   " (&0 ZX=0.mH x "   P]]` 'oX WBLOCK -WBLOCK @Do you want to open this wblock that is saved in 2004 DWG format .*to be able to QSAVE it to 2000 DWG format? . .'Just QSAVE and CLOSE it if you want to. 0$, 2  !"!4B@ !"!4!8 !"!4%6B@:.kko  >'o By Jimmy Bergmark7 Copyright (C) 1997-2004 JTB World, All Rights Reservedt Website: www.jtbworld.com E-mail: info@jtbworld.com@ Attribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2' By Jimmy Bergmark ' Copyright (C) 1997-2004 JTB World, All Rs Reser<Website: www.jtbw.comE-mail: info@  Dim strCMD As Sng File Pw{ Sub AcadDocument_BeginCommand(BpyVal4B )X = EndA 3IfJ!@WBLOCK" OrM-ThenC)A*MsgBox("Do you want to open t@ wblockat is sDavin BqDWG format" & vbN@ewLine_KE"be BQSAVE i0 ?M5eJ@ m CHLOSifI9.",,YesNo)vb OIa.Applic@ation.Ds.O!&(?L)/ AItem(Cou4- 1).Activ@W !N|Ifd\PS@